index.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index.cgi
# Display a list of known filesystems, and indicate which are currently mounted

require './mount-lib.pl';
&header("Disk and Network Filesystems", "", undef, 1, 1);
print "<hr>\n";

print "<h3>Known Filesystems</h3>\n";
print "<table width=100% border>\n";
print "<tr $tb> <td><b>Mounted As</b></td> <td><b>Type</b></td>\n";
print "     <td><b>Location</b></td> <td><b>In use?</b></td>\n";
print "     <td><b>Permanent?</b></td> </tr>\n";

# List filesystems from fstab
foreach (&list_fstypes()) { $can_edit{$_}++; }
$i = 0;
foreach (&list_mounts()) {
	@minfo = @{$_};
	print "<tr $cb>\n";
	$p = &simplify_path($minfo[0], $minfo[2]);
	if ($can_edit{$minfo[2]}) {
		print "<td><a href=\"edit_mount.cgi?index=$i\">$p</a></td>\n",
		}
	else {
		print "<td>$p</td>\n";
		}
	print "<td>",$minfo[2] eq "*" ? "Automatic"
				      :  &fstype_name($minfo[2]),"</td>\n";
	print "<td>$minfo[1]</td>\n";
	$p = $minfo[2] eq "swap" ? "*" : $minfo[0];
	@mmodes = &mount_modes($minfo[2]);
	printf "<td>%s</td>\n",
	  &get_mounted($p, $minfo[1])>=0 || $mmodes[1]==0 ? "Yes" : "No";
	print "<td>Yes</td>\n";
	$already{$minfo[1],$minfo[0]}++;
	$i++;
	print "</tr>\n";
	}

# List filesystems from mnttab
$i = 0;
foreach (&list_mounted()) {
	@minfo = @{$_};
	if ($already{$minfo[1],$minfo[0]}) { $i++; next; }
	print "<tr $cb>\n";
	$p = &simplify_path($minfo[0], $minfo[2]);
	if ($can_edit{$minfo[2]}) {
		print "<td><a href=\"edit_mount.cgi?temp=1&index=$i\">$p</a></td>\n";
		}
	else {
		print "<td>$p</td>\n";
		}
	print "<td>",&fstype_name($minfo[2]),"</td>\n";
	print "<td>$minfo[1]</td>\n";
	print "<td>Yes</td>\n";
	print "<td>No</td>\n";
	$i++;
	}

print "</table>\n";
print "<form action=\"edit_mount.cgi\">\n";
print "<input type=submit value=\"Add Mount\">  Type:\n";
print "<select name=type>\n";
foreach (&list_fstypes()) {
	$nm = &fstype_name($_);
	if (!$donefs{$nm}++) { print "<option value=\"$_\">$nm\n"; }
	}
print "</select></form>\n";

print "<hr>\n";
&footer("/", "index");

sub simplify_path
{
if ($_[1] eq "swap") {
	return "<i>Virtual Memory</i>";
	}
elsif (length($_[0]) > 20) {
	return "... ".substr($_[0], length($_[0])-20);
	}
else {
	return $_[0];
	}
}