#!/usr/local/bin/perl # edit_part.cgi # Edit an existing partition require './format-lib.pl'; $access{'view'} && &error($text{'ecannot'}); $d = $ARGV[0]; $p = $ARGV[1]; @dlist = &list_disks(); $dinfo = $dlist[$d]; &can_edit_disk($dinfo->{'device'}) || &error($text{'edit_ecannot'}); &ui_print_header(undef, $text{'edit_title'}, ""); print "
\n";
print "
\n"; if (@stat) { print "$text{'edit_inuse'}.\n"; } elsif ($new) { print "\n"; } else { print "\n"; print "\n"; } print "\n"; print " | \n";
print "
|