mirror of
https://github.com/webmin/webmin.git
synced 2026-02-01 23:47:04 +00:00
38 lines
946 B
Perl
Executable File
38 lines
946 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
|
|
&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("");
|
|
|