www.pudn.com > bbs3000afree.zip > secret.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; 
$FORM{$name} = $value; 
} 
########## 
$menu=$FORM{'menu'}; 
$secret=$FORM{'secret'}; 
$id=$FORM{'id'}; 
$bbs=$FORM{'bbs'}; 
if($menu eq "ok"){&ok;exit;} 
########## 
open (CHAT,"$filepath/list/$id.cgi"); 
$line=; 
close(CHAT); 
($bzmc,$secret,$bzrmail,$outurl,$bbsname,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line); 
&css; 
print <
 
保密论坛
 
请输入论坛访问密码 
 点击这里修改访问密码
 

$jj


Powered by Yuzi Studios © 2001
Yuzi Bulletin BoardTM Version $ver 
EOF 
exit; 
######## 
sub ok{ 
print "Content-type: text/html\n\n"; 
print < 
 
您的信息已经发出，系统正在检验，请稍候..... 


如果系统没有反应，请点击这里返回！ 
EOF 
exit; 
} 
######################### END OF SCRIPT #########################