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

require './quota-lib.pl';
&ReadParse();
$| = 1;
$theme_no_table = 1;
&can_edit_filesys($in{'filesys'}) ||
	&error($text{'check_ecannot'});

&header($text{'check_title'}, "");
print "<hr>\n";
print &text('check_running', $in{'filesys'}), "<p>\n";

&quotacheck($in{'filesys'});
&webmin_log("check", undef, $in{'filesys'});
print "$text{'check_done'}<p>\n";
print "<hr>\n";
if ($in{'source'} eq "user") {
	$retlist_name = $text{'check_ruser'};
} else {
	$retlist_name = $text{'check_rgroup'};
}
&footer("list_$in{'source'}s.cgi?$in{'filesys'}", &text('check_return', $retlist_name));

