← Back
Editing: relabel.cgi
#!/usr/bin/perl # Re-write the partition table require './fdisk-lib.pl'; &ReadParse(); &can_edit_disk($in{'device'}) || &error($text{'disk_ecannot'}); # Get the disk @disks = &list_disks_partitions(); ($d) = grep { $_->{'device'} eq $in{'device'} } @disks; $d || &error($text{'disk_egone'}); # Wipe the partition &set_partition_table($d->{'device'}, $in{'table'}); &redirect("edit_disk.cgi?device=$in{'device'}");
Save File
Cancel