edit_mesg.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_mesg.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("Email Options", "");
print "<center><font size=+1>For <tt>$in{'name'}</tt></font></center>\n";
print "<hr>\n";

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

print "<tr>\n";
print &opt_input("reply_to", "Reply-To: address in resent email",
		 $conf, "None", 20);
print &opt_input("sender", "Sender: address in email", $conf,
		 "Default", 15);
print "</tr>\n";

print "<tr>\n";
print &opt_input("resend_host", "Hostname for resent email", $conf,
		 "Default", 15);
print &opt_input("subject_prefix", "Subject: prefix for resent email",
		 $conf, "Default", 20);
print "</tr>\n";

print "<tr>\n";
print &select_input("precedence", "Resent email priority", $conf,
		    "first-class", "First class",
		    "special-delivery", "Special delivery",
		    "list", "List", "bulk", "Bulk", "junk", "Junk");
print &choice_input("purge_received",
		    "Remove Recieved: headers from resent email", $conf,
		    "yes", "Yes", "no", "No");
print "</tr>\n";

print "<tr>\n";
print &opt_input("maxlength", "Maximum allowable message size", $conf,
		 "Default", 8, "bytes");
print "</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");