📄 setvariables.cgi
字号:
$tempoutput = "<select name=\"emoticons\">\n<option value=\"off\">不使用\n<option value=\"on\">使用\n</select>\n";
$tempoutput =~ s/value=\"$emoticons\"/value=\"$emoticons\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否使用表情字符转换？</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"avatars\">\n<option value=\"off\">不使用\n<option value=\"on\">使用\n</select>\n";
$tempoutput =~ s/value=\"$avatars\"/value=\"$avatars\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否使用个性图片</b><br>使用个性化图片，每个用户将拥有有自己特色的头像。</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b>邮件功能</b>
</font></td>
</tr>
~;
$tempoutput = "<select name=\"emailfunctions\">\n<option value=\"off\">不使用\n<option value=\"on\">使用\n</select>\n";
$tempoutput =~ s/value=\"$emailfunctions\"/value=\"$emailfunctions\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否使用邮件功能？</b><br>推荐你使用</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"emailtype\">\n<option value=\"smtp_mail\">SMTP\n<option value=\"send_mail\">Sendmail\n<option value=\"blat_mail\">Blat\n</select>\n";
$tempoutput =~ s/value=\"$emailtype\"/value=\"$emailtype\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>请选择一个可以使用的邮件协议</b><br>推荐使用 SMTP，可以同时在 NT 和 UNIX 下使用。而 SENDMAIL 只能在 UNIX 中用，Blat 只能在 NT 中用。</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>发送邮件程序位置</b><br>如果您使用的不是 Sendmail，请不要填写</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="SEND_MAIL" value="$SEND_MAIL"></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>SMTP 的位置</b><br>如果您使用的不是 SMTP，请不要填写，一般填写你 ISP 提供的发信服务器地址</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="SMTP_SERVER" value="$SMTP_SERVER"></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>坛主接收邮件使用的信箱</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="adminemail_in" value="$adminemail_in"></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>坛主发送邮件使用的信箱</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="adminemail_out" value="$adminemail_out"></td>
</tr>
~;
$tempoutput = "<select name=\"passwordverification\">\n<option value=\"no\">否\n<option value=\"yes\">是\n</select>\n";
$tempoutput =~ s/value=\"$passwordverification\"/value=\"$passwordverification\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否用邮件通知用户密码？</b><br>建议不使用。若要使用，请确定打开了上面的“是否使用邮件功能？”，并保证你发送邮件是没有问题的。</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"newusernotify\">\n<option value=\"no\">否\n<option value=\"yes\">是\n</select>\n";
$tempoutput =~ s/value=\"$newusernotify\"/value=\"$newusernotify\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>有新用户注册是否用邮件通知您？</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=宋体 color=#990000><b>其他选项</b>
</font></td>
</tr>
~;
$tempoutput = "<select name=\"OS_USED\">\n<option value=\"Nt\">Windows 系列\n<option value=\"Unix\">Unix 系列\n</select>\n";
$tempoutput =~ s/value=\"$OS_USED\"/value=\"$OS_USED\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>请选择运行本程序的操作系统平台</b><BR>请千万不要选错，如果你不能确定，请选择 Windows 系列！！<BR></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"floodcontrol\">\n<option value=\"off\">否\n<option value=\"on\">是\n</select>\n";
$tempoutput =~ s/value=\"$floodcontrol\"/value=\"$floodcontrol\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否灌水预防机制？</b><br>强烈推荐使用</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>用户发贴的相隔时间</b><br>灌水预防机制不会影响到坛主或版主</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="floodcontrollimit" value="$floodcontrollimit"></td>
</tr>
~;
$tempoutput = "<select name=\"timezone\"><option value=\"-23\">- 23<option value=\"-22\">- 22<option value=\"-21\">- 21<option value=\"-20\">- 20<option value=\"-19\">- 19<option value=\"-18\">- 18<option value=\"-17\">- 17<option value=\"-16\">- 16<option value=\"-15\">- 15<option value=\"-14\">- 14<option value=\"-13\">- 13<option value=\"-12\">- 12<option value=\"-11\">- 11<option value=\"-10\">- 10<option value=\"-9\">- 9<option value=\"-8\">- 8<option value=\"-7\">- 7<option value=\"-6\">- 6<option value=\"-5\">- 5<option value=\"-4\">- 4<option value=\"-3\">- 3<option value=\"-2\">- 2<option value=\"-1\">- 1<option value=\"0\">0<option value=\"1\">+ 1<option value=\"2\">+ 2<option value=\"3\">+ 3<option value=\"4\">+ 4<option value=\"5\">+ 5<option value=\"6\">+ 6<option value=\"7\">+ 7<option value=\"8\">+ 8<option value=\"9\">+ 9<option value=\"10\">+ 10<option value=\"11\">+ 11<option value=\"12\">+ 12<option value=\"13\">+ 13<option value=\"14\">+ 14<option value=\"15\">+ 15<option value=\"16\">+ 16<option value=\"17\">+ 17<option value=\"18\">+ 18<option value=\"19\">+ 19<option value=\"20\">+ 20<option value=\"21\">+ 21<option value=\"22\">+ 22<option value=\"23\">+ 23</select>";
$tempoutput =~ s/value=\"$timezone\"/value=\"$timezone\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>服务器时差</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>所在的时区</font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=40 name="basetimes" value="$basetimes"></td>
</tr>
~;
$tempoutput = "<select name=\"announcements\">\n<option value=\"no\">不使用\n<option value=\"yes\">使用\n</select>\n";
$tempoutput =~ s/value=\"$announcements\"/value=\"$announcements\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>是否使用公告论坛</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"sticky\">\n<option value=\"off\">正常顺序，新的放在最后\n<option value=\"on\">紧跟主题，新的放在最上面\n</select>\n";
$tempoutput =~ s/value=\"$sticky\"/value=\"$sticky\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>查看贴子回复的时候，最新的回复是紧跟主题呢？还是放在最后！</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
~;
$tempoutput = "<select name=\"refreshurl\">\n<option value=\"0\">自动返回当前论坛\n<option value=\"1\">自动返回当前贴子\n</select>\n";
$tempoutput =~ s/value=\"$refreshurl\"/value=\"$refreshurl\" selected/;
print qq~
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=宋体 color=#333333><b>发表、回复贴子后自动转移到？</b></font></td>
<td bgcolor=#FFFFFF valign=middle align=left>
$tempoutput</td>
</tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<input type=submit value="提 交"></form></td></tr></table></td></tr></table>
~;
}
}
else {
&adminlogin;
}
print qq~</td></tr></table></body></html>~;
exit;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -