check_quotas.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# check_quotas.cgi
# Runs quotacheck to update block and file counts on some filesystem

require './quota-lib.pl';
&ReadParse();
$| = 1;
&can_edit_filesys($in{'filesys'}) ||
	&error("You cannot check quotas on this filesystem");

&header("Check Quotas", "");
print "<hr>\n";
print "The <tt>quotacheck</tt> command is now being run to check the\n";
print "block and file usage on <tt>$in{'filesys'}</tt>. This may take\n";
print "a long time for a very large filesystem...<p>\n";

&quotacheck($in{'filesys'});
print "... Done. <p>\n";
print "<hr>\n";
&footer("list_$in{'source'}s.cgi?$in{'filesys'}", "$in{'source'} list");