📄 create_form.cgi
字号:
#!/usr/local/bin/perl# create_form.cgi# Display a form for creating a new mailing listrequire './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");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -