create_form.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# create_form.cgi
# Display a form for creating a new mailing list

require './majordomo-lib.pl';
%access = &get_module_acl();
$access{'create'} || &error("You are not allowed to create new lists");
&header("Create Mailing List", "");
print "<hr>\n";

print <<EOF;
<form action=create_list.cgi method=post>
<table border width=100%>
<tr $tb> <td><b>New list details</b></td> </tr>
<tr $cb> <td><table width=100%>

<tr> <td><b>List name</b></td> <td><input name=name size=15></td> </tr>
<tr> <td><b>List maintainer's address</b></td>
     <td><input name=owner size=30></td> </tr>
<tr> <td><b>Maintenance password</b></td>
     <td><input name=password type=password size=10></td> </tr>
<tr> <td><b>Description</b></td>
     <td><input name=desc size=50></td> </tr>
<tr> <td valign=top><b>Introductory message</b></td>
     <td><textarea name=info rows=5 cols=60></textarea></td> </tr>
<tr> <td valign=top><b>Forwarded mail footer</b></td>
     <td><textarea name=footer rows=3 cols=60></textarea></td> </tr>

<tr> <td><b>Moderated list?</b></td>
     <td><input type=radio name=moderate value=yes> Yes
         <input type=radio name=moderate value=no checked> No</td> </tr>
<tr> <td><b>Moderator's address</b></td>
     <td><input type=radio name=moderator_def value=1 checked>
	 Same as maintainer
         <input type=radio name=moderator_def value=0>
         <input name=moderator size=20></td> </tr>

</table></td></tr></table>
<input type=submit value=Create></form>
<hr>
EOF
&footer("", "mailing lists");