copy_user_form.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# copy_user_form.cgi
# Display a form for copying some user's quotas to others

require './quota-lib.pl';
&ReadParse();
$access{'filesys'} eq "*" ||
	&error("You cannot copy quotas");
&can_edit_user($in{'user'}) ||
	&error("You are not allowed to copy the quotas of this user");
&header("Copy Quotas", "", "copy_user");
print "<hr>\n";

print "<form action=copy_user.cgi>\n";
print "<input type=hidden name=user value=\"$in{'user'}\">\n";
print "<b>Copy quotas for <tt>$in{'user'}</tt> on ",
      "ALL filesystems to ...</b><p>\n";
print "<ul>\n";
print "<input type=radio name=dest value=0 checked> ",
      "<b>All users on your system</b><br>\n";
print "<input type=radio name=dest value=1> <b>Selected users</b>\n";
print "<input name=users size=30> ",&user_chooser_button("users",1),"<br>\n";
print "<input type=radio name=dest value=2> ",
      "<b>Members of selected groups</b>\n";
print "<input name=groups size=30> ",&group_chooser_button("groups",1),"<br>\n";
print "<input type=submit value=Copy></form>\n";
print "</ul>\n";

print "<hr>\n";
&footer("user_filesys.cgi?user=$in{'user'}", "user quota");