edit_members.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_members.cgi
# Display a form for editing the members of some list

require './majordomo-lib.pl';
&ReadParse();
%access = &get_module_acl();
&can_edit_list(\%access, $in{'name'}) ||
	&error("You are not allowed to edit this mailing list");
$list = &get_list($in{'name'}, &get_config());
&header("List Members", "");
print "<center><font size=+1>For <tt>$in{'name'}</tt></font></center>\n";
print "<hr>\n";

if ($access{'edit'}) {
	print "Use the text box below to edit the list of email addresses\n";
	print "that will receive mail sent to this list.<br>\n";
	}
else {
	print "The text box below lists all email addresses that will\n";
	print "receive mail sent to this list.<br>\n";
	}
print "<form action=save_members.cgi method=post>\n";
print "<input type=hidden name=name value=$in{'name'}>\n";
print "<textarea rows=15 cols=60 name=members>\n";
open(MEMS, $list->{'members'});
while(<MEMS>) { print; }
close(MEMS);
print "</textarea>\n";
if (!$access{'edit'}) {
	print "<p>\n";
	}
else {
	print "<br><input type=submit value=Update name=update>\n";
	print "<hr>\n";

	print "<table>\n";
	print "<tr> <td><b>Subscribe address to list:</b></td>\n";
	print "<td><input name=addr_a size=40> ",
	      "<input type=submit name=add value='Add'></td> </tr>\n";

	print "<tr> <td><b>Remove address from list:</b></td>\n";
	print "<td><input name=addr_r size=40> ",
	      "<input type=submit name=remove value='Remove'></td> </tr>\n";
	print "</table></form>\n";

	print "<hr>\n";
	print "<form action=save_auto.cgi>\n";
	print "<input type=hidden name=name value='$in{'name'}'>\n";
	print "<table>\n";
	$sync = $config{"sync_$in{'name'}"};
	print "<tr> <td><b>Synchronise Unix users with list?</b></td> <td>\n";
	printf "<input type=radio name=sync value=1 %s> Yes\n",
		$sync ? "checked" : "";
	printf "<input type=radio name=sync value=0 %s> No</td> </tr>\n",
		$sync ? "" : "checked";

	$shost = $config{"shost_$in{'name'}"};
	print "<tr><td><b>Domain name to append to usernames:</b></td>\n";
	print "<td><input name=shost size=40 value='$shost'>\n";
	print "<input type=submit value=Update></td> </tr>\n";

	print "</table></form>\n";
	}

print "<hr>\n";
&footer("edit_list.cgi?name=$in{'name'}", "mailing list");