Mini Shell
Mini Shell
| Direktori : /usr/share/webmin/fdisk/ |
| Current File : //usr/share/webmin/fdisk/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'}");