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