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

$ver="4.132"; 
($sec,$min,$hour,$mday,$mon,$year)= localtime(time+(3600*$time_hour)); 
$mon=$mon+1; 
if($mon<10){$mon="0".$mon;} 
if($mday<10){$mday="0".$mday;} 
if($hour<10){$hour="0".$hour;} 
if($min<10){$min="0".$min;} 
if($sec<10){$sec="0".$sec;} 
$year=$year+1900; 
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec; 
$lasttime=$year."-".$mon."-".$mday; 
$ftime="$year$mon$mday$hour$min$sec"; 
if($ENV{'HTTP_X_FORWARDED_FOR'}){$from="$ENV{'HTTP_X_FORWARDED_FOR'}";}else{$from=$ENV{'REMOTE_ADDR'};} 
$ImgurlDir="$imagurl/img"; 
sub GetCookies { 
foreach(split(/; /,$ENV{'HTTP_COOKIE'})){($cookie,$value)=split(/=/);$Cookies{$cookie}=$value;} 
if($ftime-$Cookies{nowtime} < 3){print "Set-Cookie:nowtime=$ftime\n";print "Content-type: text/html\n\nLoading...";exit;} 
print "Set-Cookie:nowtime=$ftime\n"; 
if($Cookies{bgcolor}){($color,$bgcolor4,$bgcolor0,$bgcolor,$bgcolor1,$bgcolor2,$bgcolor3)=split(/_/,$Cookies{bgcolor});} 
} 
sub origin { 
if($ENV{'HTTP_REFERER'} eq ""){&errorview("来源错误!");} 
$origin=$ENV{'HTTP_REFERER'}; 
$origin=~s/\http:\/\///isg; 
($origin)=split(/\//,$origin); 
if($origin ne $urlorigin && $origin ne $ENV{'HTTP_HOST'}){&errorview("来源错误
请到社区管理-->社区变量设置-->把主机的域名设置成
$origin");} 
} 
sub win{ 
print "Content-type: text/html\n\n"; 
print < 
 
 
 
 
 
 
 
 
 
谢谢$username，您的信息已成功发出！

请等待系统将自动返回...  


 
(如果您不愿意等待，请点击这里返回) 
 
 
 
EOF 
if($userpsd ne ""){&cookie;} 
exit; 
} 
sub cookie{ 
if($FORM{'xuansave'} eq "1"){$savechecked=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="xuansave="+"$savechecked"+";$savetime"; 
 
EOF 
} 
sub ybbcode { 
my $ThePost = shift; 
$ThePost=~s/(\[URL\])(http|https|ftp):\/\/([^;`'"]+?)(\[\/URL\])/$3<\/A>/isg; 
$ThePost=~s/(\[URL=)(http|https|ftp):\/\/([^;`'"]+?)(])(\[IMG\]http:\/\/)([^;`'"=]+?)(\[\/IMG\])(\[\/URL\])/screen.width-366)this.width=screen.width-366\"><\/A>/isg; 
$ThePost=~s/(\[URL=)(http|https|ftp):\/\/([^;`'"]+?)(])(.+?)(\[\/URL\])/$5<\/A>/isg; 
$ThePost=~s/(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])/$2<\/A>/isg; 
$ThePost=~s/(\[IMG\]http:\/\/)([^;'"=]+?)(\[\/IMG\])/screen.width-366)this.width=screen.width-366\"><\/A>/isg; 
$ThePost =~ s/(\[sound\])\s*(http|https|ftp):\/\/(\S+?)\.(wav|midi|mid)\s*(\[\/sound\])//isg; 
$ThePost=~s/\[font=([^.:;`'"=]+?)\]\s*(.*?)\s*\[\/font\]/$2<\/font>/isg; 
$ThePost=~s/\[color=([^.:;`'"=]+?)\]//isg; 
$ThePost=~s/\[\/color\]/<\/font>/isg; 
$ThePost=~s/\[size=([^.:;`'"=]+?)\]//isg; 
$ThePost=~s/\[\/size\]/<\/font>/isg; 
$ThePost=~s/(\[QUOTE\])(.+?)(\[\/QUOTE\])/
$2<\/td><\/tr><\/table><\/td><\/tr><\/table><\/BLOCKQUOTE>/isg; 
$ThePost=~s,(\[code\])(.+?)(\[/code\]),
code:
$2<\/td><\/tr><\/table><\/td><\/tr><\/table><\/BLOCKQUOTE>,isg; 
$ThePost=~s/(\[i\])(.+?)(\[\/i\])/$2<\/i>/isg; 
$ThePost=~s/(\[b\])(.+?)(\[\/b\])/$2<\/b>/isg; 
$ThePost=~s/(\[u\])(.+?)(\[\/u\])/$2<\/u>/isg; 
$ThePost=~s/(\[strike\])(.+?)(\[\/strike\])/$2<\/strike>/isg; 
$ThePost=~s/(\[center\])(.+?)(\[\/center\])/$2<\/center>/isg; 
$ThePost=~s/(\[marquee\])(.+?)(\[\/marquee\])/$2<\/marquee>/isg; 
if($FORM{'html'} eq 1){$ThePost =~s/\
//isg;$ThePost ="";exit;} 
sub css { 
print "Content-type: text/html\n\n"; 
print < 
EOF 
} 
sub sendmail{ 
open (OUTMAIL,"| $mailprg -t"); 
print OUTMAIL "To: $sendto\n"; 
print OUTMAIL "From: $adminmail\n"; 
print OUTMAIL "Subject: $subject\n"; 
print OUTMAIL "$message"; 
close(OUTMAIL); 
} 
sub monitor{ 
if($Cookies{username} eq ""){&errorview("对不起，您当前的身份是访客，请先登陆！");} 
open (FILE, "$filepath/data/rank"); 
@rank = ; 
close(FILE); 
foreach $ranks (@rank) { 
chomp($ranks); 
if ($ranks eq $Cookies{username}){$rankss="ok";}} 
if($rankss ne ok && $Cookies{username} ne $admname && $Cookies{username} ne $bzmc && $Cookies{username} ne $fbzmc && $Cookies{username} ne $fbzmc2){&errorview("对不起，您没有此项操作的权限！");} 
}