#!/usr/local/bin/perl
# edit_disk.cgi
# Display information about a disk, with links to low-level format,
# repair and other dangerous options
require './format-lib.pl';
$access{'view'} && &error($text{'ecannot'});
&ui_print_header(undef, "Edit Disk", "");
print "
\n";
$d = $ARGV[0];
@dlist = &list_disks();
@dinfo = split(/\s+/, $dlist[$d]);
print "\n";
print " Disk Details | \n";
print " \n";
print " Disk Type: | $dinfo[1] | \n";
print " Device: | /dev/dsk/$dinfo[0] | \n";
print " SCSI: | \n";
$dinfo[0] =~ /c(\d+)t(\d+)d(\d+)/;
print "\n";
print " Controller | $1 | \n";
print " Target | $2 | \n";
print " Unit | $3 | | \n";
print " Vendor: | \n";
@inq = &disk_info($d);
print "\n";
print " Name | $inq[0] | \n";
print " Product | $inq[1] | \n";
print " Revision | $inq[2] | | \n";
print " | \n";
print " | \n";
print "\n";
print " Disk Tasks | \n";
@plist = &list_partitions($d);
for($i=0; $i<@plist; $i++) {
@stat = &device_status("/dev/dsk/$dinfo[0]s$i");
if (@stat) { $inuse = 1; }
if ($stat[2]) { $mounted = 1; }
}
print " \n";
}
else {
print " You cannot format this disk because it contains\n";
print "filesystems that are in the system mount list. | \n";
}
print " \n";
print " \n";
print " \n";
print " \n";
print " |
\n";
&ui_print_footer("", "disk list");