📄 save.pl
字号:
##############################
sub save {
if(-e "$homedir/temp/$info.txt"){ #计算经验值
open(TEMP,"<$homedir/temp/$info.txt") || &error("你已不在$title中!");
@dt = <TEMP>;
close(TEMP);
($date,$room,$last)= split(/=/, $dt[0]);
$userinfo ="&username=$username&usersex=$usersex&userpassword=$userpassword&userlevel=$userlevel&room=$room&id=$id";
$userinfo=~s/\n//g;
open(paSS,"$homedir/userdb/$username") || &error("无法打开文件userdb/$username");
@pass_line = <paSS>;
close(paSS);
open (DATA,">$homedir/userdb/$username")|| &error("无法打开文件userdb/$username");
($chkuserlevel,$chkuserpassword,$chkwelcom,$chkuserid,$chkuseremail,$chkurl,$chkgeyan,$chkpotourl,$chkuserip,$chkmdfip,$chktime,$chknow_sec,$chklasttime,$chkjingyan) = split(/__/, $pass_line[0]);
$jingyan = abs(int($now_sec - $date));
$totaljy = $jingyan + $chkjingyan;
if ($chkuserlevel < $hight_level){
if($totaljy < $level){
$userlevel = 1;
}else{
$userlevel = abs(int(sqrt($totaljy/$level)));
}
}else{ $userlevel = $hight_level; }
if($userlevel < 1) { $userlevel = 1; }
$willlevel = ($userlevel+1)."级";
if ($userlevel >= $hight_level) {
$willlevel = "";
$show = "作为网管,很有成就感吧?觉得累的话,事情都让我来做吧!?";
}else {
if ($userlevel > $chkuserlevel) {
$show = "恭喜,你已经升级至";
}else { $show = "恭喜,你即将升级至"; }
}
print DATA $userlevel."__".$chkuserpassword."__".$chkwelcom."__".$chkuserid."__".$chkuseremail."__".$chkurl."__".$chkgeyan."__".$chkpotourl."__".$chkuserip."__".$chkmdfip."__".$normal_time2."__".$now_sec."__".$chklasttime."__".$totaljy;
close (DATA);
open(DATA,">$homedir/temp/$info.txt")|| &error("无法打开文件$info.txt");#写用户标识文件
print DATA $now_sec."=".$room."\n";
close(DATA);
if (!($_[0] )) {
print "<html><head><title>$title</title>\n";
print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\"></head>\n";
print "<script LANGUAGE=\"JavaScript\"><!-- \n setTimeout(\"self.close();\",10000);//--></script>\n";
print "<body bgcolor=$saysback text=$saysword link=$link_color alink=$alink_color vlink=$vlink_color>\n";
print "<div align=\"center\"><center>\n";
print "<table border=\"0\" width=\"100%\" height=\"100%\" cellspacing=\"0\" cellpadding=\"0\">\n";
print "<tr><td width=\"100%\"><p align=\"center\">\n";
print "<span class=\"head1\"><center><hr width=60% size=1>\n";
if ($userlevel < $hight_level) {
print "<p align=\"center\"><table><tr><td><span class=\"text1\">您的经验值已自动纪录入档</td></tr></table><table><tr><td><span class=\"text\">您目前的经验值:</td><td><span class=\"head\">$totaljy</td><td><span class=\"text\">点</td></tr>\n";
print "<tr><td><span class=\"text\">你目前的等级是:</td><td><span class=\"head\">$userlevel</td><td><span class=\"text\">级</span></td></tr></table>\n";
}
print "<hr size=1><center>$show$willlevel\n";
&Tailer;
}
}else{ &error("你已不在聊室中,无法计算经验!请重新登陆..."); }
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -