mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
28 lines
632 B
Perl
Executable File
28 lines
632 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# activate.cgi
|
|
# Turn quotas on or off for some filesystem
|
|
|
|
require './quota-lib.pl';
|
|
&ReadParse();
|
|
&can_edit_filesys($in{'dir'}) && $access{'enable'} ||
|
|
&error($text{'activate_eallow'});
|
|
|
|
if ($in{'active'} == 0) {
|
|
# Turn on quotas
|
|
$whatfailed = $text{'activate_eon'};
|
|
if ($error = "aon($in{'dir'}, $in{'mode'})) {
|
|
&error($error);
|
|
}
|
|
&webmin_log("activate", undef, $in{'dir'}, \%in);
|
|
}
|
|
else {
|
|
# Turn off quotas
|
|
$whatfailed = $text{'activate_eoff'};
|
|
if ($error = "aoff($in{'dir'}, $in{'mode'})) {
|
|
&error($error);
|
|
}
|
|
&webmin_log("deactivate", undef, $in{'dir'}, \%in);
|
|
}
|
|
&redirect("");
|
|
|