fsck_form.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# fsck_form.cgi
# Display a form asking for fsck options

require './format-lib.pl';
&ReadParse();
&can_edit_disk($in{'dev'}) || &error("You are not allowed to fsck this disk");
&header("Repair Filesystem", "");
print "<hr>\n";

@stat = &device_status($in{dev});
if (@stat) { $mnt = " for mounting on <tt><b>$stat[0]</b></tt>"; }
$fs = &filesystem_type($in{dev});
print "<form action=fsck.cgi>\n";
print "<input type=hidden name=dev value=\"$in{dev}\">\n";
print "Clicking the <tt>Repair</tt> button will check and optionally repair\n";
print "the <b>",&fstype_name($fs),"</b> on <tt><b>$in{dev}</b></tt>$mnt.\n";
print "The level of checking and repair is determined by your choice\n";
print "below. <p>\n";

print "<input type=radio name=mode value=\"-m\">\n";
print "Only report the filesystem status.<br>\n";

print "<input type=radio name=mode value=\"-n\">\n";
print "Check the entire filesystem for errors, but do not fix any errors ",
      "found. <br>\n";

print "<input type=radio name=mode value=\"-y\" checked>\n";
print "Check for and fix any errors found on the entire filesystem. <br>\n";
print "<p>\n";

print "<div align=center><input type=submit value=Repair></div>\n";
print "</form>\n";

print "<hr>\n";
&footer("", "disks list");