PAL.C.T MINI SHELL
#!/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'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`