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

#!/usr/bin/perl 
#------------------------------------------------------# 
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡±¾³ÌÐòΪYuzi¹¤×÷ÊÒÌṩ¡¡  ¡¡¡¡¡¡¡¡¡¡# 
#¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡YuziÂÛ̳3000(BBS3000)v4.00¡¡¡¡¡¡¡¡¡¡¡¡# 
#------------------------------------------------------# 
$cgipa=".";  # CGI³ÌÐòÎļþµÄ¾ø¶Ô·¾¶ 
###################### 
## ÒÔϲ¿·Ö²»ÐèÐÞ¸Ä ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
$cgiurl="yhxiu.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///g; 
$value=~s/\t/    /g; 
$value=~s/>/>/g; 
$value=~s//g; 
$FORM{'comment'}=~s/\n/
/g; 
$FORM{'jiao'}=~s/\n/
/g; 
$FORM{'username'}=~s/\.\.//g; 
} 
########## 
$username=$FORM{'username'}; 
$newpsd=$FORM{'newpsd'}; 
$userpsd=$FORM{'userpsd'}; 
$titles=$FORM{'titles'}; 
$comment=$FORM{'comment'}; 
$jiao=$FORM{'jiao'}; 
$mail=$FORM{'mail'}; 
$home=$FORM{'home'}; 
$city=$FORM{'city'}; 
$work=$FORM{'work'}; 
$love=$FORM{'love'}; 
$qm=$FORM{'qm'}; 
$sex=$FORM{'sex'}; 
$QQ=$FORM{'QQ'}; 
$tu=$FORM{'tu'}; 
$title=$FORM{'title'}; 
$menu=$FORM{'menu'}; 
$photo=$FORM{'photo'}; 
if ($username eq ""){$username=$Cookies{username}}; 
if ($userpsd eq ""){$userpsd=$Cookies{password}}; 
if($menu eq "reguser"){®user;exit;} 
if($menu eq "reg"){®exit;} 
if($menu eq ""){&bzgl;exit;} 
® 
exit; 
########## 
sub reg{ 
if ( -e "$filepath/yhzl/$username.cgi"){ 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSD); 
chomp($line); 
($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$sex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao,$iewin,$QQ,$photo,$rating,$levelname,$level,$lastlytime,$lastlytopic,$realname,$birthday,$shengxiao,$blood,$constellation,$character,$belief,$marital,$education,$college)=split(/\t/,$line); 
$jiao=~s/
//g; 
$rdqm=&unybbcode($rdqm); 
$rdqm=~s/<([^<])*>//g; 
if($userpsd ne "$rdpassword"){&errorview("ÄúµÄÃÜÂë´íÎó£¡");} 
if($sex eq "Å®"){$sexselected=selected;} 
for ($i=0; $i<190; $i++){$oo="";if($i<10){$oo=0;}$portraitno="$portraitno$oo$i";} 
print "Content-type: text/html\n\n"; 
print < 
 
 
 
 
¡¡
 
Óû§×ÊÁÏÐÞ¸Ä
 
¡ñ 
´ø * Ϊ±ØÌî 
 
* 
ÍøÉÏ×ð³Æ£º
 
 
* 
ÄúµÄÃÜÂ룺
ÄúµÄÐÂÃÜÂ룺
¡¡Èç¹ûÄú²»´òËã¸ü¸ÄÃÜÂ룬´Ë´¦ÇëÁô¿Õ£¡
 
*  ÄúµÄEmailµØÖ·£º
 
ÕæʵÐÕÃû£º
 
³öÉúÄê·Ý£º
 
ÐÔ¡¡¡¡±ð£º
 
ÄÐÅ® 
Éú¡¡¡¡Ð¤£º
 
Ѫ¡¡¡¡ÐÍ£º
 
ÐÇ¡¡¡¡×ù£º
 
ÐÔ¡¡¡¡¸ñ£º
 
ÐÅ¡¡¡¡Ñö£º
 
Ö°¡¡¡¡Òµ£º
 
°®¡¡¡¡ºÃ£º
 
 
»éÒö×´¿ö£º
 
×î¸ßѧÀú£º
 
±ÏҵԺУ£º
 
 
QQ¡¡ºÅÂ룺
 
 
¸öÈËÖ÷Ò³£º
  
 
¸öÈËÐÅÏ¢£º
$jiao 
 
 
ÄúµÄÇ©Ãûµµ£º
 
EOF 
if ($ybbcodeAllow eq "on") { 
print <£¨Ö§³Ö YBB ´úÂ룩 
EOF 
} 
print <
$rdqm 
 
ÄúËùÔÚµÄÊ¡·Ý£º
 
ÇëÑ¡ÔñÄúµÄÍ·Ïñ£º
    
ĬÈÏ 
$portraitno ²é¿´ËùÓеÄÍ·ÏñÁбí 
 
[Ãâ·ÑÉêÇë][°æÖ÷×ÊÁÏÐÞ¸Ä][Óû§×ÊÁÏ×¢²á][Óû§×ÊÁÏÐÞ¸Ä][ÂÛ̳Áбí][ÉçÇø¹ÜÀí] 
×¢ÒâÊÂÏ
1¡¢Çë×ñÊØ¡¶¼ÆËã»úÐÅÏ¢ÍøÂç¹ú¼ÊÁªÍø°²È«±£»¤¹ÜÀí°ì·¨¡·ÀïµÄÒ»Çй涨¡£
2¡¢Ê¹ÓÃÇáËɶø½¡¿µµÄ»°Ì⣬ËùÒÔÇë²»ÒªÉæ¼°ÕþÖΡ¢×ڽ̵ÈÃô¸Ð»°Ìâ¡£
3¡¢³Ðµ£Ò»ÇÐÒòÄúµÄÐÐΪ¶øÖ±½Ó»ò¼ä½Óµ¼ÖµÄÃñÊ»òÐÌÊ·¨ÂÉÔðÈΡ£
 
Ãâ·ÑÂÛ̳·þÎñÓÉ $zyname 
Ìṩ¡¡³ÌÐòÖÆ×÷£ºYuzi¹¤×÷ÊÒ
 
EOF 
exit; 
}else{ 
&errorview("¶Ô²»Æ𣬴ËÃû×ÖûÓÐÔÚ±¾ÂÛ̳ע²á¹ý!");exit; 
}} 
########## 
sub reguser{ 
&origin; 
if($newpsd=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`ÿ-]/){&errorview("ÃÜÂëÖв»Äܺ¬ÓÐÌØÊâ×Ö·û!");} 
if(($FORM{'userpsd'} eq "")||($username eq "")||($mail eq "")){&errorview("Ãû×Ö¡¡ÃÜÂë¡¡ÐÅÏä¡¡±Ø˳ҪÌîдµÄ£¬ÇëÖØÐÂÊäÈ룡");} 
if(!($mail=~ /.*\@.*\..*/)){&errorview("ÄúµÄEmailÊäÈë´íÎó£¡");exit;} 
if(length($comment) > 400 ){&errorview("ÄúµÄÇ©Ãû²»ÄÜ´óÓÚ200¸öºº×Ö£¡");} 
if(length($jiao) > 400 ){&errorview("ÄúµÄ¼ò½é²»ÄÜ´óÓÚ200¸öºº×Ö£¡");} 
if(length($city) > 12){&errorview("ÄúÌîдµÄÊ¡·Ý²»ÄÜ´óÓÚ12¸ö×Ö·û£¡");} 
$comment=~s/\[sound]//isg;$comment=~s/\[\/sound]//isg; 
$comment = &ybbcode("$comment"); 
open(PSDD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSDD); 
($rdpassword,$rusername,$rdmail,$rdhome,$rdlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tuu,$djiao,$iewin,$dQQ,$photo,$rating,$levelname,$level,$lastlytime,$lastlytopic,$realname,$birthday,$shengxiao,$blood,$constellation,$character,$belief,$marital,$education,$college)=split(/\t/,$line); 
if($rdpassword ne $userpsd){&errorview("ÄúµÄÃÜÂë´íÎó£¡");} 
if($newpsd ne ""){$userpsd = $newpsd}; 
if($tu eq ""){$tu=$tuu}; 
open(PSD,">$filepath/yhzl/$username.cgi"); 
print PSD $userpsd."\t".$username."\t".$mail."\t".$home."\t".$rdlast."\t".$comment."\t".$sex."\t".$work."\t".$city."\t".$love."\t".$rfy."\t".$rhf."\t".$tu."\t".$jiao."\t".$iewin."\t".$QQ."\t".$photo."\t".$rating."\t".$levelname."\t".$level."\t".$lastlytime."\t".$lastlytopic."\t".$FORM{'realname'}."\t".$FORM{'birthday'}."\t".$FORM{'shengxiao'}."\t".$FORM{'blood'}."\t".$FORM{'constellation'}."\t".$FORM{'character'}."\t".$FORM{'belief'}."\t".$FORM{'marital'}."\t".$FORM{'education'}."\t".$FORM{'college'}; 
close(PSD); 
&css; 
&cookie; 
print "\n"; 
print "\n"; 
print "
\n"; 
print "
×£ ºØ Äú £¡ Äú ÒÑ ¾­ ³É ¹¦ ¸ü ¸Ä ÁË Äú µÄ ×Ê ÁÏ £¡\n"; 
print "
\n"; 
print "
×¢²áÐÕÃû£º
$FORM{username}
ÄúµÄÃÜÂ룺
$userpsd
 
ÐÔ±ð£º
$FORM{sex}
 
ÄúµÄÐÅÏ䣺
$FORM{mail}
 
ÄúµÄÖ÷Ò³£º
$FORM{home} 
Ö°Òµ£º
$FORM{work}
 
°®ºÃ£º
$FORM{love}
 
Ê¡·Ý£º
$FORM{city}
 
×¢²áʱ¼ä£º
$lasttime.
\n"; 
print "\n"; 
print "
[$cityname]

\n"; 
print "
±¾Ò³Ãæ²ÉÓÃCGI³ÌÐò¸üУ¬³ÌÐòÖÆ×÷£º¡°YUZI¹¤×÷ÊÒ¡±
\n"; 
exit; 
} 
######## 
sub bzgl{ 
&css; 
print <Óû§×ÊÁÏÐÞ¸Ä
 

¡ª¡ª Óû§×ÊÁÏÐÞ¸Ä ¡ª¡ª 
ÄúµÄÐÕÃû:
 
ÄúµÄÃÜÂë:
 
 

¡ª¡ª¡¡ÕÒ»ØÃÜÂë¡¡¡ª¡ª
ÇëÊäÈëÄúµÄÓû§Ãû: 

 
[Ãâ·ÑÉêÇë][°æÖ÷×ÊÁÏÐÞ¸Ä][Óû§×ÊÁÏ×¢²á][Óû§×ÊÁÏÐÞ¸Ä][ÂÛ̳Áбí][ÉçÇø¹ÜÀí]
 
 
Ãâ·ÑÂÛ̳·þÎñÓÉ $zyname Ìṩ¡¡³ÌÐòÖÆ×÷ Yuzi¹¤×÷ÊÒ  
 
EOF 
exit; 
} 
######################### END OF SCRIPT #########################