edit_list.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_list.cgi
# Edit an existing mailing 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");
&header("Edit Mailing List", "");
print "<center><font size=+1><tt>$in{'name'}</tt></font></center>\n";
print "<hr>\n";

@links = ( "edit_members.cgi", "edit_info.cgi", "edit_subs.cgi",
	   "edit_mesg.cgi", "edit_access.cgi", "edit_head.cgi",
	   "edit_misc.cgi" );
@titles = ( "List Members", "Messages and Description",
	    "Subscription and Moderation", "Email Options", "Access Control",
	    "Headers and Footers", "Miscellaneous Options" );
map { s/edit_(\S+).cgi/images\/$1.gif/ } (@icons = @links);
@links = map { $_."?name=".$in{'name'} } @links;
&icons_table(\@links, \@titles, \@icons);

print "<hr>\n";
print "<table>\n";
print "<form action=delete_list.cgi>\n";
print "<input type=hidden name=name value=\"$in{'name'}\">\n";
print "<tr> <td><input type=submit value='Delete List'></td>\n";
print "<td>Delete this list, including all associated files\n";
print "and mail aliases</td> </tr>\n";
print "</form>\n";
print "</table>\n";

print "<hr>\n";
&footer("", "mailing lists");