if ((($mark eq "says") ($mark eq "login") ($mark eq "logout")) && ($markend eq "end")) {
if ($mark eq "says") {
if (($chktowhoway eq "private") && (($chktowhoip ne "toall") ($chktowhoname ne "toall") ($chktowholevel ne "toall"))) {
if (($total_mess2<$allow_mess) && ($total_mess1<$allow_mess)) {print MESS "$mess_line";}
$total_mess2++;}
else {
if ($total_mess1<$allow_mess) {print MESS "$mess_line";}
$total_mess1++;}
}
elsif (($mark eq "login") ($mark eq "logout")) {
if ($total_mess1<$allow_mess) {print MESS "$mess_line";}
$total_mess1++;}
}
}
#flock(MESS,8);
close(MESS);
}
##########
sub return_mess {
open(MESS,"$messfile") error("$!");
#flock(MESS,1);
@mess = <MESS>;
#flock(MESS,8);
close(MESS);
if (($kicked==1) && ($kickoutway eq "level1")) {
print "<html><head><title>$title</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT="1;URL=$kickouturl"></head>\n";
print "<body bgcolor=#000000 text=#ffffdd>\n";
print "<center><h2>您将自动跳离本视窗</h2></center>\n";
print "</body></html>\n";
}
else {
print "<html><head><title>Look</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT="$reload;URL=$cgiurl?room=$room&reload=$reload&job=look$userinfo">\n";
print "<style type="text/css">\n<!--\n.font {font-family:宋体;font-size:9pt;color:#0f0f4f}\n--></style>\n";
print "</head>\n";
print "<body bgcolor=$saysback text=$saysword>\n";
print "<basefont size=2>\n";
print "<span class=font>\n";
foreach $mess_line (@mess) {
($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowhoip,$chktowhoname,$chktowholevel,$chkwordcolor,$chkaddsays,$chksays,$chkaddimage,$chktime,$markend,$last) = split(/‖/, $mess_line);
if ((($mark eq "says") ($mark eq "login") ($mark eq "logout")) && ($markend eq "end")) {
local($chkusername1) ="$chkusername";
local($chktowhoname1) ="$chktowhoname";
local($chkusername1) ="<u>$chkusername</u>" if ($chkusername eq $username);
local($chktowhoname1) ="<u>$chktowhoname</u>" if ($chktowhoname eq $username);
上一篇:Cgi入门教程之：7 回应脚本
下一篇:使用脚本下载网页
|
精品推荐