📄 login.cgi

📁 信息管理系统

💻 CGI

字号:

#!/perl/bin/perl
require "./setup.pl";
&GetCookies;
$userid=$Cookies{'id'};
unless ($userid)
{
&getform;
$userid=$in{'id'};
$userkey=$in{'key'};
unless (($userid)&&($userkey)) 
{
print qq~
<html>
<head><title>LODIN</title></head>
<body>
<form name=admin method=post action=login.cgi>
I D：<input type="text" name="id" maxlength="20" size="12"><br>
KEY：<input type="password" name="key" maxlength="20" size="12"><br>
<input type="submit" name="Submit" value=" OK ">
</form>
</body>
</html>
~;
exit;
}
unless (-e "$cgipath/data/$userid.dat") {&error("BEINGLESS NAME。");}
open (f,"$cgipath/data/$userid.dat");
@mydata=split(/=/,<f>);
close f;
unless ($userkey eq $mydata[1]) {&error("PASSWORD ERROR。");}
&SetCookies('id',$userid);
print qq~
<html>
<head><title>NOTEBOOK</title></head>
<body>
<center>
<br>
<form method="post" action="gbook.cgi">
<input type="hidden" name="name" value="$mydata[0]">
<input type="hidden" name="email" value="$mydata[2]">
<input type="hidden" name="action" value="add">
CONTENT：<br>
<textarea cols="72" rows="25" name="comment"></textarea>
<br>
    <input type="submit" value=" ENTER ">
     <input type="reset" value=" CANCEL ">
</form>
</center>
</body>
</html>
~;
}
else
{
unless (-e "$cgipath/data/$userid.dat") {&error("BEINGLESS NAME。");}
open (f,"$cgipath/data/$userid.dat");
@mydata=split(/=/,<f>);
close f;
print qq~
<html>
<head><title>notebook</title></head>
<body>
<center>
<br>
<form method="post" action="gbook.cgi">
<input type="hidden" name="name" value="$mydata[0]">
<input type="hidden" name="email" value="$mydata[2]">
<input type="hidden" name="action" value="add">
内容：<br>
<textarea cols="72" rows="25" name="comment"></textarea>
<br>
    <input type="submit" value=" ENTER ">
     <input type="reset" value=" CANCEL ">
</form>
</center>
</body>
</html>
~;
}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -