www.pudn.com > bbs3000afree.zip > bbs1.cgi
#!/usr/bin/perl
#------------------------------------------------------#
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡±¾³ÌÐòΪYuzi¹¤×÷ÊÒÌṩ¡¡ ¡¡¡¡¡¡¡¡¡¡#
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡YuziÂÛ̳3000(BBS3000)v4.00¡¡¡¡¡¡¡¡¡¡¡¡#
#------------------------------------------------------#
$cgipa="."; # CGI³ÌÐòÎļþµÄ¾ø¶Ô·¾¶
######################
## ÒÔϲ¿·Ö²»ÐèÐÞ¸Ä ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
$cgiurl="bbs1.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/\t/ /g;
$value=~s/>/>/g;
$value=~s//g;
$value=~s///g;
$FORM{$name} = $value;
}
##########
$id=$FORM{'id'};
$see=$FORM{'see'};
$emote=$FORM{'emote'};
$username=$FORM{'username'};
$userpsd=$FORM{'userpsd'};
$titles=$FORM{'titles'};
$comment=$FORM{'comment'};
$search=$FORM{'search'};
$no=$FORM{'no'};
$yjhf=$FORM{'yjhf'};
$menu=$FORM{'menu'};
$replytime=$FORM{'replytime'};
$retitles=$FORM{'retitles'};
$deltitle=$FORM{'deltitle'};
$rthistime=$FORM{'rthistime'};
$xgtz=$FORM{'xgtz'};
$rdcomment=$FORM{'rdcomment'};
$slttitle=$FORM{'slttitle'};
if ($username eq ""){$username=$Cookies{username}};
if ($userpsd eq ""){$userpsd=$Cookies{password}};
$no=~s/\.//g;
$id=~s/\.\.//g;
$xgtz=~s/\.//g;
$slttitle=~s/\.//g;
$username=~s/\ //g;
$username=~s/\¡¡//g;
if($id=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`ÿ]/){&errorview("IDÖв»Äܺ¬ÓÐÌØÊâ×Ö·û!");}
if($username=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`ÿ]/){&errorview("Ãû×ÖÖв»Äܺ¬ÓÐÌØÊâ×Ö·û!");}
if($loginok eq "1" && $Cookies{username} eq ""){
print "Content-type: text/html\n\n";exit;
}
##########
if (-d "$filepath/list/$id"){
open (CHAT,"$filepath/list/$id.cgi");
$line=;
close(CHAT);
($bzmc,$secret,$bzrmail,$outurl,$bbsname,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line);
if ($Cookies{secret} ne $secret && $secret ne ""){print "Content-type: text/html\n\n";exit;}}else{&errorview("ϵͳ²»´æÔÚ´ËIDµÄÂÛ̳! ");}
if($username ne ""){
$yhzlurl ="$filepath/yhzl/$username.cgi";
if($regok eq "0"){unless(-f $yhzlurl){
open(PSD,">$yhzlurl");
print PSD $userpsd."\t".$username."\t\t\t".$lasttime;
close(PSD);
chmod(0666,$yhzlurl);}}
open(PSD,"$yhzlurl")||&errorview("¶Ô²»Æ𣬴ËÓû§Ãû»¹Ã»ÓÐ×¢²á!");
$liness=;
close(PSD);
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$savecookie)=split(/\t/,$liness);
if($rdpassword ne $userpsd){&errorview("¶Ô²»Æð£¬ÄúµÄÃÜÂë´íÎó!");}}
if($bbsname eq ""){$bbsname="¹«¸æÀ¸";}
if($FORM{'page'}){$page=$FORM{'page'};}else{$page =0;}
if($menu eq "listtitle"){&listtitle;exit;}
if($menu eq "findtitle"){&findtitle;exit;}
if($menu eq "reply"){do "$cgipa/sub/reply.cgi";exit;}
if($menu eq "show"){&show;exit;}
if($menu eq "addreply"){do "$cgipa/sub/addreply.cgi";exit;}
if($menu eq "win"){&win;exit;}
if($menu eq "viewreply"){&viewreply;exit;}
if($menu eq "delreply"){do "$cgipa/sub/delreply.cgi";exit;}
if($menu eq "deltitle"){do "$cgipa/sub/deltitle.cgi";exit;}
if($menu eq "viewjh"){do "$cgipa/sub/viewjh.cgi";exit;}
if($menu eq "editform"){do "$cgipa/sub/editform.cgi";exit;}
if($menu eq "reditform"){do "$cgipa/sub/reditform.cgi";exit;}
if($menu eq "edit"){do "$cgipa/sub/edit.cgi";exit;}
if($menu eq "redit"){do "$cgipa/sub/redit.cgi";exit;}
elsif($menu eq ""){
print "Content-type: text/html\n\n";
print <
$bbsname