📄 login.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000 v3.20 免费版 #
#------------------------------------------------------#
require "setup.cgi";
######################
## 以下部分不需修改 ##
######################
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\t/--/g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$FORM{$name} = $value;
}
$username = $FORM{'username'};
$userpsd = $FORM{'userpsd'};
$yuzi = $FORM{'yuzi'};
$menu = $FORM{'menu'};
if($menu eq "login"){&login; exit;}
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<LINK href="$imagurl/bbs.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY text=#000000 vLink=#0099cc aLink=#0099cc link=#0099cc bgColor=#ffffff leftMargin=0 background="$imagurl/bg.gif" topMargin=0 rightMargin=0 marginwidth="0" marginheight="0">
<CENTER>
<br><br><br><br><br>
<form action="login.cgi" method="post">
<input type="hidden" name="menu" value="login">
<input type="hidden" name="yuzi" value="1">
<table cellSpacing="2" width="205" border="0">
<tr bgColor="#9999ff">
<td width="63" bgColor="#EBEBEB">
<div align="center">
<font size="2"><a class="s" href="list.cgi?menu=show">游客参观</a></font>
</div>
</td>
<td width="61" bgColor="#EBEBEB">
<div align="center">
<font size="2"><a class="s" href="yhreg.cgi">免费注册</a></font>
</div>
</td>
<td width="61" bgColor="#EBEBEB">
<div align="center">
<font size="2"><a class="s" href="yhxiu.cgi#mail">忘记密码</a></font>
</div>
</td>
</tr>
<tr bgColor="#ccccff">
<td colSpan="3" width="197" align="center" bgcolor="#EBEBEB"><font size="2">用户名:</font> <input size="15" name="username"><br>
<font size="2">密<font color="#ccccff"> </font>码:</font> <input type="password" size="15" value name="userpsd"><br>
<font size="2"><input type="submit" value="进入" name="Submit"> <input type="reset" value="取消" name="Submit"></font></FORM>
</td>
</tr>
</table>
</html>
EOF
exit;
sub login{
if ( -e "$filepath/yhzl/$username.cgi"){
open(PSD,"$filepath/yhzl/$username.cgi");
@lines=<PSD>;
close(PSD);
foreach $line (@lines) {
$line=~ s/\n//g;
($rdpassword)=split(/\t/,$line);
if($userpsd ne "$rdpassword"){&errorview("您的密码错误！");exit;}
}
}else{
&errorview("此用户名还没有在本社区注册过！");exit;
}
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE
expireDate = new Date;
if (expireDate.getYear() < 100) {
expireDate.setYear(expireDate.getYear() + 1900 + 1);
} else {
expireDate.setYear(expireDate.getYear()+1);
}
var username = getCookie("UserName");
var password = getCookie("Password");
if (password == null) {
var CookieName = "$username";
var CookiePW = "$userpsd";
if (password == null) {
document.cookie = "username=" + CookieName + ";expires=" + expireDate.toGMTString() + ";";
document.cookie = "password=" + CookiePW + ";expires=" + expireDate.toGMTString() + ";";
}
}
function getCookie(name){
var cname = name + "=";
var dc = document.cookie;
if (dc.length > 0) {
begin = dc.indexOf(cname);
if (begin != -1) {
begin += cname.length;
end = dc.indexOf(";", begin);
if (end == -1) end = dc.length;
return dc.substring(begin, end); }
}
return null;
}
// STOP HIDING FROM OTHER BROWSERS -->
</SCRIPT>
</head>
EOF
if($yuzi eq "1"){
print <<EOF;
<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=list.cgi?menu=show">
EOF
}else{
print <<EOF;
<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=list.cgi">
EOF
}
print <<EOF;
</body>
</html>
EOF
}
######################### END OF SCRIPT #########################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -