activate.cgi

Unix下基于Web的管理工具

#!/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("You are not allowed to enable or disable ",
	       "quotas on this filesystem");

if ($in{'active'} == 0) {
	# Turn on quotas
	$whatfailed = "Failed to turn on quotas";
	if ($error = &quotaon($in{'dir'}, $in{'mode'})) {
		&error($error);
		}
	}
else {
	# Turn off quotas
	$whatfailed = "Failed to turn off quotas";
	if ($error = &quotaoff($in{'dir'}, $in{'mode'})) {
		&error($error);
		}
	}
&redirect("");