www.pudn.com > bbs3000afree.zip > photo2.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=~s/\.\.//g; 
$FORM{$name} = $value; 
} 
########## 
$tttname=$FORM{'tttname'}; 
$start=$FORM{'start'}; 
$username=$Cookies{username}; 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
chomp($line); 
close(PSD); 
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$level,$levelstar,$lastlytime,$lastlytopic,$realname,$birthday,$shengxiao,$blood,$constellation,$character,$belief,$marital,$education,$college)=split(/\t/,$line); 
if($rdpassword ne $Cookies{password}){&errorview("对不起，您的密码错误!");} 
open(PSD,">$filepath/yhzl/$username.cgi"); 
print PSD $rdpassword."\t".$rdname."\t".$rdmail."\t".$rdhome."\t".$rlast."\t".$rdqm."\t".$rdsex."\t".$rdwork."\t".$rdcity."\t".$rdlove."\t".$rfy."\t".$rhf."\t".$tu."\t".$jiao."\t".$ENV{'HTTP_USER_AGENT'}."\t".$QQ."\t".$tttname."\t".$rating."\t".$level."\t".$levelstar."\t".$lastlytime."\t"."$lastlytopic\t".$realname."\t".$birthday."\t".$shengxiao."\t".$blood."\t".$constellation."\t".$character."\t".$belief."\t".$marital."\t".$education."\t".$college; 
close(PSD); 
&css; 
if($start eq "1"){print "";} 
if($start eq "2"){print "";} 
print <<"EOM"; 




 
关于上传图片需注意的问题 
 
 
 
 
　　一、用户不得上传任何有争议的图标或图片，其中包括。
 
　　二、我们鼓励用户上传自己的照片或有特色的原创作品。
 
　　三、用户请对自己的行为负责，$zyname对由用户引发的各种争议将不承担任何法律责任。
 
　　如果您已经都明白了，请按　
 
EOM 
exit; 
######################### END OF SCRIPT #########################