Viewing file:  quotacheck.cgi (1.05 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Actually check quotas
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'newquotacheck_ecannot'});
&ReadParse();
&ui_print_unbuffered_header(undef, $text{'newquotacheck_title'}, "");
# Validate inputs
push(@quotafs, "home") if (&has_home_quotas() && $in{'home'});
push(@quotafs, "mail") if (&has_mail_quotas() && $in{'mail'});
@quotafs || &error($text{'newquotacheck_enone'});
# Run the checks
&require_useradmin();
foreach $fs (@quotafs) {
$dir = $config{$fs.'_quotas'};
if ($in{'who'} == 0 || $in{'who'} == 2) {
# Check users
&$first_print(&text('newquotacheck_udoing', "<tt>$dir</tt>"));
$out = "a::quotacheck($dir, 1);
print "<pre>$out</pre>";
&$second_print($text{'setup_done'});
}
if ($in{'who'} == 1 || $in{'who'} == 2) {
# Check groups
&$first_print(&text('newquotacheck_gdoing', "<tt>$dir</tt>"));
$out = "a::quotacheck($dir, 2);
print "<pre>$out</pre>";
&$second_print($text{'setup_done'});
}
}
&run_post_actions();
&webmin_log("quotacheck");
&ui_print_footer("", $text{'index_return'});
|