📄 login.cgi
字号:
#!/perl/bin/perl
require "./setup.cgi";
use CGI;
$co=new CGI;
$username=$co->param('ID');
$key=$co->param('KEY');
unless(($username)&&($key)) {&error("错误的用户名或密码");}
unless(-e "$userpath/$username.cgi") {&error("用户名不存在");}
open (F,"$userpath/$username.cgi");
@userdata=<F>;
close (F);
&del(@userdata);
unless ($key eq $userdata[0]) {&error("密码错误");}
unless ($userdata[5]>0) {&error("您的帐号时间不够，请及时冲值");}
@s_kind=split(/=/,$userdata[1]); #读出课程分类
$cookie1=$co->cookie(-name=>'name',-value=>$username);
print $co->header(-charset=>'gb2312',-type=>'text/html',-cookie=>$cookie1);
$info=int($userdata[5]/3600);
$info.="小时";
$info.=int(($userdata[5]-3600*int($userdata[5]/3600))/60);
$info.="分";
print qq~
<html>
<head>
<title>正在转入相应页面</title>
<meta http-equiv="refresh" content="0;url=index.cgi?kind=$s_kind[0]">
</head>
</html>
~;
$userdata[4]=time();
open (f,">$userpath/$username.cgi");
foreach (@userdata) {print f "$_\n";}
close f;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -