Viewing file:  activate.cgi (940 B) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/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
&error_setup($text{'activate_eon'});
@list = &list_filesystems();
($fs) = grep { $_->[0] eq $in{'dir'} } @list;
if (!$fs->[4] && $fs->[6]) {
# Try to enable in /etc/fstab
$error = "a_make_possible($in{'dir'}, $fs->[6]);
&error($error) if ($error);
&webmin_log("support", undef, $in{'dir'}, \%in);
}
else {
# Try to turn on
$error = "aon($in{'dir'}, $in{'mode'});
&error($error) if ($error);
&webmin_log("activate", undef, $in{'dir'}, \%in);
}
}
else {
# Turn off quotas
&error_setup($text{'activate_eoff'});
if ($error = "aoff($in{'dir'}, $in{'mode'})) {
&error($error);
}
&webmin_log("deactivate", undef, $in{'dir'}, \%in);
}
&redirect("");
|