edit_subs.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_subs.cgi
# Edit subscription options

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());
$conf = &get_list_config($list->{'config'});
&header("Subscription and Moderation", "");
print "<center><font size=+1>For <tt>$in{'name'}</tt></font></center>\n";
print "<hr>\n";

print "<form action=save_subs.cgi>\n";
print "<input type=hidden name=name value='$in{'name'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Subscription and moderation options</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";

$pol = &find_value("subscribe_policy", $conf);
if ($pol =~ /(\S+)\+confirm/) { $pol = $1; $confirm = 1; }
print "<tr> <td><b>Subscribe policy</b></td> <td colspan=3 nowrap>\n";
printf "<input name=subscribe_policy type=radio value=open %s> %s\n",
	$pol eq "open" ? "checked" : "", "Anyone can subscribe themself";
printf "<input name=subscribe_policy type=radio value=auto %s> %s\n",
	$pol eq "auto" ? "checked" : "", "Anyone can subscribe anyone";
printf "<input name=subscribe_policy type=radio value=closed %s> %s\n",
	$pol eq "closed" ? "checked" : "", "Maintainer approval required";
print "</td> </tr>\n";

$upol = &find_value("unsubscribe_policy", $conf);
print "<tr> <td><b>Unsubscribe policy</b></td> <td colspan=3 nowrap>\n";
printf "<input name=unsubscribe_policy type=radio value=open %s> %s\n",
	$upol eq "open" ? "checked" : "", "Anyone can unsubscribe themself";
printf "<input name=unsubscribe_policy type=radio value=auto %s> %s\n",
	$upol eq "auto" ? "checked" : "", "Anyone can unsubscribe anyone";
printf "<input name=unsubscribe_policy type=radio value=closed %s> %s\n",
	$upol eq "closed" ? "checked" : "", "Maintainer approval required";
print "</td> </tr>\n";

print "<tr> <td><b>Require subscribe confirmation?</b></td> <td>\n";
printf "<input name=subscribe_policy_c type=radio value='+confirm' %s> Yes\n",
	$confirm ? "checked" : "";
printf "<input name=subscribe_policy_c type=radio value='' %s> No</td>\n",
	$confirm ? "" : "checked";
print &choice_input("welcome", "Send introductory message?", $conf,
		    "yes", "Yes", "no", "No");
print "</tr>\n";

print "<tr>\n";
print &choice_input("strip", "Add only raw address to list?", $conf,
		    "yes", "Yes", "no", "No");
print &choice_input("announcements",
		    "Notify maintainer of subscribes and unsubscribes?",
		    $conf, "yes", "Yes", "no", "No");
print "</tr>\n";

print "<tr>\n";
print &choice_input("administrivia",
		    "Forward subscribe/unsubscribe requests to maintainer?",
		    $conf, "yes", "Yes", "no", "No");
print &opt_input("admin_passwd", "Maintenance password", $conf,
		 "Default", 10);
print "</tr>\n";

print "<tr> <td colspan=4><hr></td> </tr>\n";
print "<tr>\n";
print &choice_input("moderate", "Moderated list?", $conf,
		    "yes", "Yes", "no", "No");
print &opt_input("moderator", "Moderator's address?", $conf, "Maintainer", 20);
print "</tr>\n";

print "<tr>\n";
print &opt_input("approve_passwd", "Moderation password", $conf,
		 "Default", 10);
print "</tr>\n";

print "<tr> <td colspan=4><hr></td> </tr>\n";
$aliases_files = &get_aliases_file();
@aliases = &foreign_call("sendmail", "list_aliases", $aliases_files);
foreach $a (@aliases) {
	$owner = $a->{'value'}
		if (lc($a->{'name'}) eq lc("$in{'name'}-owner") ||
		    lc($a->{'name'}) eq lc("owner-$in{'name'}"));
	$approval = $a->{'value'}
		if (lc($a->{'name'}) eq lc("$in{'name'}-approval"));
	}
print "<tr> <td><b>Owner's email address</b></td>\n";
print "<td><input name=owner size=20 value='$owner'></td>\n";

print "<td><b>Approval email address</b></td>\n";
print "<td><input name=approval size=20 value='$approval'></td> </tr>\n";

print "</table></td></tr></table>\n";
print "<input type=submit value=Save></form>\n";

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