\n";
print " $text{'index_location'} | ";
print "$dl->{'desc'} | \n";
print " $text{'index_cyl'} | \n";
print "$dl->{'cyl'} | \n";
print " $text{'index_model'} | ";
print "",$dl->{'type'} ? $dl->{'type'} : $text{'index_unknown'},
" | \n";
print " | \n";
if (!$dl->{'device'}) {
# Drive type unknown..
print "$text{'index_unknown2'}\n";
}
elsif (@parts = &list_partitions($dl->{'device'})) {
# Known and formatted..
print "\n";
print " $text{'index_no'} | ",
"$text{'index_type'} | ",
"$text{'index_extent'} | ",
"$text{'index_start'} | ",
"$text{'index_end'} | ",
"$text{'index_use'} | ",
"$text{'index_free'} | \n";
for($j=0; $j<@parts; $j++) {
$p = $parts[$j];
print " \n";
if ($access{'view'}) {
print $j;
}
else {
print "$j";
}
print " | $p->{'tag'} | \n";
if ($p->{'end'} != 0) {
printf
"",
$extwidth*$p->{'start'}/$dl->{'cyl'};
printf
"",
$extwidth*($p->{'end'}-$p->{'start'})/
$dl->{'cyl'};
printf
"",
$extwidth*($dl->{'cyl'}-$p->{'end'})/
$dl->{'cyl'};
print " | $p->{'start'} | ",
"$p->{'end'} | \n";
@stat = &device_status($p->{'device'});
if ($stat[1] =~ /^meta/) {
print "MetaDisk\n";
}
elsif (!$mountcan) {
print "$stat[0]\n";
}
elsif ($stat[0] && $stat[3] == -1) {
print "$stat[0]\n";
}
elsif ($stat[0]) {
print "$stat[0]\n";
}
print " | \n";
if ($stat[0] ne 'swap' &&
(@space = &disk_space($p->{'device'})) &&
$space[0]) {
printf "%d %%\n",
100 * $space[1] / $space[0];
}
print " | \n";
}
else { print " | \n"; }
}
print " \n";
}
else {
# Disk is not formatted..
print "$text{'index_format'}\n";
}
print " |
\n";
}
print "