#!/usr/local/bin/perl # copy_part_form.cgi # Display a form for copying the partitions map of this disk to otthers require './format-lib.pl'; &ReadParse(); $access{'view'} && &error($text{'ecannot'}); &ui_print_header(undef, "Copy Partition Map", ""); $extwidth = 400; print "This form allows you to copy the partition map from this disk\n"; print "to others of the same size. This is useful for setting up disks\n"; print "for use as parts of a RAID or mirrored MetaDisk.
\n"; print "
Partition | Tag | \n"; print "Extent | Start | End |
$i | $p[0] | \n"; if ($p[3]) { printf "", $extwidth*$p[2]/$cyl; printf "", $extwidth*($p[3]-$p[2])/$cyl; printf " | \n", $extwidth*($cyl-$p[3])/$cyl; print "$p[2] | $p[3] |
\n";
# find all disks that are not in use
print "Select the disks to copy this partition map to..
\n";
print "