www.pudn.com > bbs3000afree.zip > login.cgi

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
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///g; 
$value=~s/\t/    /g; 
$value=~s/>/>/g; 
$value=~s/ 
 
EOF 
exit; 
} 
exit; 
################### 
sub login_frame{ 
$back=-1; 
if($url ne ""){$back=-2;} 
&css; 
print <登陆社区




 
 
 
 
社区首页 
免费注册 
忘记密码 
用户名称: 
 
用户密码: 
 
记住密码 
隐身登陆 

　 
 
 

BACK 
 
EOF 
exit; 
} 
################### 
sub login{ 
if($username eq ""){&errorview("请输入您的用户名称");} 
if ( -e "$filepath/yhzl/$username.cgi"){ 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSD); 
($rdpassword)=split(/\t/,$line); 
if($userpsd ne "$rdpassword"){&errorview("您的密码错误！");}}else{ 
&errorview("此用户名还没有在本社区注册过！");exit; 
} 
print "Content-type: text/html\n\n"; 
if($FORM{'xuansave'} eq "1"){$savetime="expires=\"+expireDate.toGMTString()+\";";} 
print < 
expireDate=new Date; 
expireDate.setYear(expireDate.getYear()+1); 
document.cookie="username="+"$username"+";$savetime"; 
document.cookie="password="+"$userpsd"+";$savetime"; 
document.cookie="estate="+"$FORM{'estate'}"+";$savetime"; 
document.cookie="xuansave="+"$FORM{'xuansave'}"+";$savetime"; 
 
yuzi 
if($FORM{'url'} ne ""){ 
print qq~ 
 
~ 
}else{ 
print qq~ 
 
~ 
} 
} 
######################### END OF SCRIPT #########################