📄 exit.cgi
字号:
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->cookie('name');
unless(-e "$userpath/$username.cgi") {&error("未知错误，请联系管理员");}
open (f,"$userpath/$username.cgi");
@userdata=<f>;
close f;
&del(@userdata);
$userdata[5]=$userdata[5]-(time()-$userdata[4]);
$userdata[4]=time();
open (f,">$userpath/$username.cgi");
foreach (@userdata) {print f "$_\n";}
close f;
$info=int($userdata[5]/3600);
$info.="小时";
$info.=int(($userdata[5]-3600*int($userdata[5]/3600))/60);
$info.="分";
print $co->header(-charset=>'gb2312',-type=>'text/html');
print qq~
<html>
<head>
<title>本窗口在5秒后自动关闭</title>
</head>
<body background=pic/0052.gif>
<script language="JavaScript">
setTimeout("self.close()",5000)
</script>
<center><br><br><br><br>
<font color=yellow size=5>您的帐号还剩下$info</font><br><br><br><br>
<p align="center">【<a href="javascript:window.close()"><font color=white size=3>关闭</font></a>】</p>
</body>
</html>
~;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -