index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# Display a list of known disks and partitions

require './fdisk-lib.pl';
&error_setup($text{'index_err'});
&header($text{'index_title'}, "", undef, 0, 1);
print "<hr>\n";
$extwidth = 250;

print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'index_disk'}</b></td> ",
      "<td><b>$text{'index_parts'}</b></td> </tr>\n";
foreach $d (&list_disks()) {
	next if (!&can_edit_disk($d->{'device'}));
	print "<tr $cb> <td valign=top><table>\n";
	print "<tr> <td><b>$text{'index_location'}</b></td> ";
	print "<td>",&text('select_device', uc($d->{'type'}),
			   uc(substr($d->{'device'}, -1))),"</td> </tr>\n";
	print "<tr> <td><b>$text{'index_cylinders'}</b></td> ",
	      "<td>$d->{'cylinders'}</td> </tr>\n";
	if ($d->{'model'}) {
		print "<tr> <td><b>$text{'index_model'}</b></td> ",
		      "<td>$d->{'model'}</td> </tr>\n";
		}
	if (defined($d->{'scsiid'}) && defined($d->{'controller'})) {
		print "<tr> <td><b>$text{'index_controller'}</b></td> ",
		      "<td>$d->{'controller'}</td> </tr>\n";
		print "<tr> <td><b>$text{'index_scsiid'}</b></td> ",
		      "<td>$d->{'scsiid'}</td> </tr>\n";
		}
	print "</table></td> <td valign=top>\n";

	@parts = &list_partitions($d->{'device'});
	local $extended = 0;
	local $usedpri = 0;
	if (!@parts) {
		print "<b>$text{'index_none'}</b><p>\n";
		}
	else {
		print "<table> <tr> <td><b>$text{'index_num'}</b></td> ",
		      "<td><b>$text{'index_type'}</b></td> ",
                      "<td><b>$text{'index_extent'}</b></td> ",
                      "<td><b>$text{'index_start'}</b></td> ",
                      "<td><b>$text{'index_end'}</b></td> </tr>\n";
		foreach $p (@parts) {
			if ($p->{'extended'}) {
				print "<tr> <td><a href=\"edit_part.cgi?",
				      "disk=$d->{'index'}&part=$p->{'index'}\">",
				      "$p->{'number'}</a></td>\n";
				$extended++;
				}
			else {
				print "<tr> <td><a href=\"edit_part.cgi?",
				      "disk=$d->{'index'}&part=$p->{'index'}\">",
				      "$p->{'number'}</a></td>\n";
				}
			$usedpri++ if ($p->{'number'} <= 4);
			print "<td>",$p->{'extended'} ? $text{'extended'}
						      : &tag_name($p->{'type'}),
			      "</td> <td>\n";
			printf "<img src=images/gap.gif height=10 width=%d>",
				$extwidth*($p->{'start'} - 1) /
				$d->{'cylinders'};
			printf "<img src=images/use.gif height=10 width=%d>",
				$extwidth*($p->{'end'} - $p->{'start'}) /
				$d->{'cylinders'};
			printf "<img src=images/gap.gif height=10 width=%d>",
			  $extwidth*($d->{'cylinders'} - ($p->{'end'} - 1)) /
				    $d->{'cylinders'};
			print "</td> <td>$p->{'start'}</td> ",
			      "<td>$p->{'end'}</td> </tr>\n";
			}
		print "</table>\n";
		}
	if ($usedpri != 4) {
		print "<a href=\"edit_part.cgi?",
		      "disk=$d->{'index'}&new=1\">",
		      $text{'index_addpri'},"</a>&nbsp;&nbsp;\n";
		}
	if ($extended) {
		print "<a href=\"edit_part.cgi?",
		      "disk=$d->{'index'}&new=2\">",
		      $text{'index_addlog'},"</a>\n";
		}
	elsif ($usedpri != 4) {
		print "<a href=\"edit_part.cgi?",
		      "disk=$d->{'index'}&new=3\">",
		      $text{'index_addext'},"</a>\n";
		}
	print "</td> </tr>\n";
	}
print "</table><p>\n";

print "<hr>\n";
&footer("/", $text{'index'});