📄 chat-error.pl
字号:
sub error {
&send_html;
$error = $_[0];
#print "Content-type: text/html\n\n";
if ($error eq 'wrong_passwd') {
print "<html><head><title>$title ERROR: 密码不正确或名字已被他人登录</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 密码不正确或名字已被他人登录</h1>\n";
print "<p>请重新填写密码或更换名字,注意名字中不能有空格。<br><hr size=0 width=75%><p></center>\n";
}
elsif ($error eq 'cookie') {
print "<html><head><title>$title Error</title></head>\n";
print $bodyset;
print "<center>COOKIE密码验证错误\n";
print "密码是：$userpassword";
print "<p></center>\n";
}
elsif ($error eq 'script') {
print "<html><head><title>$title Error</title></head>\n";
print $bodyset;
print "<center><h1>对不起，不能使用脚本程序！</h1>\n";
print "<p>您现在采用了不正常的手段进行不正常的聊天！<BR>请做文明聊客！谢谢合作！";
print "<p></center>\n";
}
elsif ($error eq 'wrong_room') {
print "<html><head><title>$title Error</title></head>\n";
print $bodyset;
print "<center><h1>对不起，单间错误！</h1>\n";
print "<p><br>请正常登陆<hr size=0 width=75%>";
print "<p></center>\n";
}
elsif ($error eq 'wrong_passwd1') {
print "<html><head><title>$title ERROR: 密码不正确</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 密码不正确</h1>\n";
print "<p>对不起，您没有通过正常程序进入聊天室<br><hr size=0 width=75%>";
print "<a href=$cgiurl?job=showform target=_top>按这里重新进入聊天室</a>";
print "<p></center>\n";
require "$chathead/chat-writeonline.pl";
require "$chathead/chat-writemsg.pl";
#require "$chathead/chat-addcount.pl";
#&addcount;
&write_online("outline");
&write_message("out") if ($exist ne "no");
}
elsif ($error eq 'dnderror') {
print "<html><head><title>$title</title></head>\n";
print $bodyset;
print "<center><h1>对不起，您在$towho请勿打扰名单中！</h1>\n";
print "<p><br>$towho现在不想和您说话！<hr size=0 width=75%><p></center>\n";
}
elsif ($error eq 'passwd_file') {
print "<html><head><title>$title ERROR:无法打开用户密码文件</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 无法打开用户密码文件</h1>\n";
print "<p>请向管理员报告<br><hr size=0 width=75%><p></center>\n";
}
elsif ($error eq 'bad_words') {
print "<html><head><title>$title ERROR:注意文明</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 请注意文明</h1>\n";
print "<p>请保持文明网友形象，如果你继续的话，系统自动将您踢出，谢谢合作！<br><hr size=0 width=75%><p></center>\n";
}
elsif ($error eq 'wrong_name') {
print "<html><head><title>$title ERROR:名字错误</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 名字错误</h1>\n";
print "请注意名字中不能有空格<br><hr size=0 width=75%></center>\n";
}
elsif($error eq 'kickright'){
print "<html><head><title>$title ERROR:权限错误</title></head>\n";
print $bodyset;
print "<center><h1>对不起，您没有踢人权利,<BR>或信用点不够踢人<BR>（踢人一次将花费信用点$kickfu）。</h1></center>\n";
}
else{
print "<html><head><title>$title ERROR:不知名错误</title></head>\n";
print $bodyset;
print "<center><h1>ERROR: 不知名错误</h1></center>\n";
print "<p>请向管理员报告<br><hr size=0 width=75%><p>\n";
}
exit;
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -