bbs3000afree.zip yhreg.cgi

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

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
$cgiurl="yhreg.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{'jiao'}=~s/\n/
/g; 
$FORM{'username'}=~s/\ //g; 
$FORM{'username'}=~s/\//g; 
$FORM{'username'}=~s/\.\.//g; 
} 
########## 
$Friend_name=$FORM{'Friend_name'}; 
$Friend_email=$FORM{'Friend_email'}; 
$username=$FORM{'username'}; 
$index=$FORM{'index'}; 
$newpsd=$FORM{'newpsd'}; 
$userpsd=$FORM{'userpsd'}; 
$titles=$FORM{'titles'}; 
$comment=$FORM{'comment'}; 
$mail=$FORM{'mail'}; 
$home=$FORM{'home'}; 
$jiao=$FORM{'jiao'}; 
$city=$FORM{'city'}; 
$work=$FORM{'work'}; 
$love=$FORM{'love'}; 
$index=$FORM{'index'}; 
$QQ=$FORM{'QQ'}; 
$qm=$FORM{'qm'}; 
$tu=$FORM{'tu'}; 
$sex=$FORM{'sex'}; 
$title=$FORM{'title'}; 
$menu=$FORM{'menu'}; 
$newpsd=$FORM{'newpsd'}; 
$title=$FORM{'title'}; 
$id=$FORM{'id'}; 
if($username eq ""){$username=$Cookies{username}}; 
if($menu eq ""){&rule;exit;} 
elsif($menu eq "reg"){®exit;} 
elsif($menu eq "reguser"){®user;exit;} 
elsif($menu eq "mail"){&mail;exit;} 
elsif($menu eq "mailfriend"){&mailfriend;exit;} 
elsif($menu eq "email"){&email;exit;} 
elsif($menu eq "viewuser"){&viewuser;exit;} 
elsif($menu eq "qm"){&qm;exit;} 
elsif($menu eq "online"){&online;exit;} 
elsif($menu eq "email"){&email;exit;} 
elsif($menu eq "badname"){&badname;exit;} 
elsif($menu eq "rating"){&rating;exit;} 
elsif($menu eq "online_frame"){ 
print "Content-type: text/html\n\n"; 
print <$bbsname 
 
EOF 
exit; 
} 
exit; 
########## 
sub rule{ 
&css; 
print <TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px} 
 
 
$cityname
     

 
 
               $cityname用户守则 
 
一．用户守则 
1.不得发表违反中华人民共和国宪法和法律、违反改革 
  开放和四项基本原则的言论。 
2.不得发表造谣、诽谤他人、煽动颠覆国家政权的言论。 
3.不得发表暴力、色情、迷信的言论。  
4.不得泄露国家机密。 
5.请勿张贴宣扬种族歧视、破坏民族团结的言论和消息。  
6.用户发表的文章仅代表个人观点，与$zyname无关。  
7.不得在灌水版之外版区发表灌水文章或张贴垃圾信息。  
8.不得将广告文章发布于非广告发布区。  
9.不得在讨论组中发表与版区主题无关的文章。  
10.不得将同一文章重复发表或转贴超过三个版以上。  
 
二．处罚办法 
1.对于违反以上规定的文章，在不需要解释的情况下，版主 
  和工作人员有权转贴或删除当前文章。对于被删除文章的 
  用户，将依照规则，扣除部分经验值， 
2.发表与版区主题无关的文章，轻者予以转贴或删除，情节 
  特别严重者，版主有权屏蔽用户在该版的发言权。 
3.发生以下情况下，除转贴或删除当前文章外，还将在一周 
  内屏蔽用户讨论组发言权，情节特别严重者，工作人员有 
  权永久屏蔽该用户的发言权。 
  * 在灌水版外和广告版外发表灌水文章或发布广告 
  * 重复发表或转贴超过三个版区以上 
4.在社区（讨论组）中有非法商业行为或公然发表猥亵、色 
  情、反动、和个人攻击性的文章，工作人员有权屏蔽该用 
  户的讨论组发言权，情节特别严重者，$zyname保留删除其 
  用户名的权利。 
5.如果社区（讨论组）内存在用户违反中华人民共和国法律 
  法规的行为，将上交公安机关处理。 
 
三．附则 
1.所有用户发表的文章因版权引起的纠纷，与$zyname无关。  
2.如果您登录$cityname，意味着您将遵守以上规则，  
  并完全服从于本讨论组的统一管理。  
3.$zyname版权所有，未经授权禁止复制或建立镜像。 
4.根据国家相关法律法规要求，$cityname对部分敏感文字 
  进行了过滤。 
5.本办法由$zyname制定，解释权在$zyname。  
6.$zyname有权在必要时修改讨论组的服务内容，同时 
  $zyname保留修改或中断服务而不需事先通知用户的 
  权利。 
7.本守则服务条款与中国的国家法律解析一致，包括法律  
  条款中有争议抵触的内容。用户和$zyname一致同意服  
  从高等法院所有管辖。若有任何服务条款与法律相抵触，  
  那这些条款将按尽可能接近的方法重新解析，而其它条  
  款则保持对用户产生法律效力和影响。  


 
 
  
EOF 
exit; 
} 
sub badname{ 
print "Content-type: text/html\n\n"; 
print < 
EOF 
exit; 
} 
sub reg{ 
if($regyh eq "off"){&errorview("对不起，本论坛暂时不开放注册新用户名称！");} 
for ($i=0; $i<190; $i++){$oo="";if($i<10){$oo=0;}$portraitno="$portraitno";} 
print "Content-type: text/html\n\n"; 
print < 
 
 
用户资料注册 
　 
用户资料注册
 
● 
带 * 为必填 
 
EOF 
if($passwordok eq "0"){ 
print < 
EOF 
} 
print < 
* 
网上尊称：  
* 
您的密码： 
*  您的Email地址： 
 我们将根据您提供的邮件地址把注册密码发送给您 
真实姓名：  
出生年份：  
性　　别： 
生　　肖：  
血　　型：  
星　　座：  
性　　格：  
信　　仰： 
 
职　　业：  
 
爱　　好：  
 
婚姻状况：  
最高学历： 
毕业院校：  
 
 
QQ　号码：  
 
个人主页：    
个人信息：
 
 
 
您的签名档：
 
EOF 
if ($ybbcodeAllow eq "on") { 
print <（支持 YBB 代码） 
EOF 
} 
print <   
 
请选择您所在的省份：     
北京  
广东  
上海  
新疆  
辽宁 
 
广西  
海南  
湖南  
甘肃  
河北 
 
湖北  
江西  
江苏  
西藏  
山东 
 
浙江  
福建  
安徽  
吉林  
山西 
 
云南  
贵州  
四川  
陕西  
内蒙古 
 
重庆  
天津  
河南  
青海  
黑龙江 
 
宁夏  
台湾  
香港  
澳门  
其它 
 
请选择您的头像：     
 查看所有的头像列表 
 
[免费申请][版主资料修改][用户资料注册][用户资料修改][论坛列表][社区管理] 
注意事项：
1、请遵守《计算机信息网络国际联网安全保护管理办法》里的一切规定。
2、使用轻松而健康的话题，所以请不要涉及政治、宗教等敏感话题。
3、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。
 
免费论坛服务由 $zyname 
提供　程序制作：Yuzi工作室 
EOF 
exit; 
} 
########## 
sub reguser{ 
&origin; 
$username=~s/\　//g; 
if($passwordok ne "0"){$userpsd=$ftime}; 
if($username=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`�]/){&errorview("名字中不能含有特殊字符!");} 
if($userpsd=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`�]/){&errorview("密码中不能含有特殊字符!");} 
if(($userpsd eq "")||($username eq "")){&errorview("请填写您的名字和密码！");} 
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit;} 
foreach (@badmail){$mail =~s/$_//gi;} 
if($mail eq "" || $Cookies{badren} eq "1"){&errorview("您的Email被禁止注册！"); 
} 
($ip1,$ip2,$ip3,$ip4)=split(/\./,$from);$badi="$ip1.$ip2.$ip3"; 
foreach $badip (@badip) {&errorview("对不起！此段IP被禁止注册资料！") if($badip eq $badi);exit if($badip eq $badi);} 
foreach $badname (@badwords) {&errorview("对不起！此用户名中含有被禁止注册字符串！") if($username =~/$badname/i);exit if($username =~/$badname/i);} 
if(length($username) > 12){&errorview("您的名字不能大于12个字符！");} 
if(length($comment) > 400 ){&errorview("您的签名不能大于200个汉字！");} 
if(length($jiao) > 400 ){&errorview("您的简介不能大于200个汉字！");} 
$comment=~s/\[sound]//isg;$comment=~s/\[\/sound]//isg; 
$comment = &ybbcode("$comment"); 
if ( -e "$filepath/yhzl/$username.cgi"){ 
&errorview("对不起，名字已被别人注册! 换一个吧！");exit; 
}else{ 
if($Cookies{yhreg} eq $min){&errorview("为防止有人恶意注册，本BBS限制一个人两次注册间隔必须大于60秒！");} 
print "Set-Cookie:yhreg=$min\n"; 
if($tu eq ""){$tu=$sec}; 
$rusername=$username; 
do "$cgipa/sub/level.cgi"; 
($kkk)=split(/\)/,$ENV{'HTTP_USER_AGENT'}); 
($bzd,$ie,$win,$me)=split(/;/,$kkk); 
if($me eq " Win 9x 4.90"){$win=" Windows Me"} 
elsif($win eq " Windows NT 5.0"){$win=" Windows 2000"} 
elsif($win eq " Windows NT 5.1"){$win=" Windows XP"}; 
open(PSD,">$filepath/yhzl/$username.cgi"); 
print PSD $userpsd."\t".$username."\t".$mail."\t".$home."\t".$lasttime."\t".$comment."\t".$sex."\t".$work."\t".$city."\t".$love."\t".$fy."\t".$hf."\t".$tu."\t".$jiao."\t$ie$win\t".$QQ."\t\t".$rating."\t".$levelname."\t".$level."\t\t\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); 
chmod(0666,"$filepath/yhzl/$username.cgi"); 
############### 
open (CHAT,"$filepath/data/setup"); 
$line=; 
close(CHAT); 
($badwords,$badmail,$badip,$message)=split(/\t/,$line); 
if($message){ 
$message=~s/ //isg; 
open(NUMBER1,">$filepath/guest/1$username.cgi"); 
print NUMBER1 "$ftime|$admname|$username|$thistime|【系统信息】$message(请不要回复此消息)\n"; 
close(NUMBER1); 
chmod(0666,"$filepath/guest/1$username.cgi"); 
open(NUMBER2,">$filepath/guest/2$username.cgi"); 
print NUMBER2 "1"."\t"."1"."\t"."100"."\t"."30"; 
close(NUMBER2); 
chmod(0666,"$filepath/guest/2$username.cgi"); 
}else{ 
open(NUMBER,">$filepath/guest/2$username.cgi"); 
print NUMBER "0"."\t"."0"."\t"."100"."\t"."30"; 
close(NUMBER); 
chmod(0666,"$filepath/guest/2$username.cgi"); 
} 
} 
opendir(mmm,"$filepath/yhzl"); 
@mmm=readdir(mmm); 
closedir(mmm); 
$mmm=@mmm; 
$mmm=$mmm-2; 
open(NUMBER,">$filepath/data/newmember"); 
print NUMBER "$FORM{username}"."\t"."$mmm"; 
close(NUMBER); 
&css; 
print "祝 贺 您 ！ 您 已 经 成 功 地 注 册 了 您 的 资 料 ！\n"; 
if($passwordok eq "0"){&cookie;} 
print "\n"; 
print "
\n"; 
print "祝 贺 您 ！ 您 已 经 成 功 地 注 册 了 您 的 资 料 ！\n"; 
print "
\n"; 
print ""; 
if($passwordok eq "0"){ 
print ""; 
}else{ 
print ""; 
} 
print "注册姓名： $FORM{username}
您的密码： $userpsd
您的密码： 已经发送到 $FORM{mail}
性别： $FORM{sex}
您的信箱： $FORM{mail} 
您的主页： $FORM{home} 
职业： $FORM{work} 
爱好： $FORM{love} 
省份： $FORM{city}
注册时间： $lasttime."; 
print "
[$cityname]

\n"; 
print "
本页面采用CGI程序更新，程序制作：“Yuzi工作室”\n"; 
$sendto="$mail"; 
$subject="用户名注册成功 "; 
$message="\n亲爱的$username, 您好!\n\n　　恭喜! 您已经成功地注册了您的资料, 非常感谢您使用$zyname的服务!\n\n　* 您的帐号是:$username　密码是:$userpsd\n\n　* $cityname($ym/list.cgi)\n\n　* 最后, 有几点注意事项请您牢记\n1、请遵守《计算机信息网络国际联网安全保护管理办法》里的一切规定。\n2、使用轻松而健康的话题，所以请不要涉及政治、宗教等敏感话题。\n3、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。\n\n\n免费论坛服务由 $zyname($zyurl) 提供　程序制作：Yuzi工作室(http://www.yuzi.net)\n\n\n"; 
if(-e $mailprg){&sendmail;}else{do "$cgipa/sub/smtp.cgi";} 
exit; 
} 
sub viewuser{ 
if ( -e "$filepath/yhzl/$username.cgi"){ 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSD); 
chomp($line); 
($rpassword,$rusername,$mail1,$home1,$lasttime1,$qm1,$sex1,$work1,$city1,$love1,$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); 
($lastlytime2)=split(/\./,$lastlytime); 
$rfy=$rfy+0; 
$rhf=$rhf+0; 
$tol=$rfy+$rhf; 
open(NUMBER,"$filepath/guest/2$username.cgi"); 
$NUMBER=; 
close(NUMBER); 
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER); 
if($sex1 eq ""){$sex1="(不告诉您)"}; 
if($QQ eq ""){$QQ="(不告诉您)"}; 
if($city1 eq ""){$city1="(不告诉您)"}; 
if($home1 eq ""){$home1="　"}; 
if($mail1 eq ""){$mail1="　"}; 
if($qm1 eq ""){$qm1="　"}; 
if($rating eq ""){$rating="0";} 
$qm1=~s/<([^<])*>//g; 
if($jiao eq ""){$jiao="这家伙很懒,什么都没有留下。"}; 
$qm1=~s///isg; 
if (-e "$ImgDir/img/$username.jpg") {$ttt="$ImgurlDir/$photo.jpg"}else{$ttt="$imagurl/photo.gif"}}else{ 
&errorview("对不起，此名字没有在本论坛注册过!");exit; 
} 
&css; 
print < 
 
$username 个人资料 
 
 
  $username 个人资料 - BBS3000 Internet Explorer  
 
 
　秘密档案请勿外传 ：） 屏蔽此人  
加为好友 发送讯息 
 
  昵　　称  
$rusername   个人照片   
性　　别 $sex1  
等　　级 $levelname 
威　　望 $rating 
省　　份 $city1 
纹　　银 $money 
  魅　　力 $charm
QQ　号码 $QQ
发表文章 $rfy 篇
回复文章 $rhf 篇  
总发表文章 $tol 篇 星　　级 $level  
Email $mail1 
社区注册日期 $lasttime1 
个人主页 $home1 
上次登陆日期 $lastlytime2 
个性签名 个人信息 
$qm1 $jiao 
 
　　最后发表　　$lastlytopic　$lastlytime
 
个人生活信息
 
真实姓名 $realname 
出生年月 $birthday 
生　　肖 $shengxiao 
星　　座 $constellation 
血　　型 $blood 
信　　仰 $belief 
爱　　好 $love1 
职　　业 $work1 
性　　格 $character 
最高学历 $education 
婚姻状况 $marital 
毕业院校 $college 

 
EOF 
exit; 
} 
sub online { 
open (PEO,"$filepath/data/people.cgi"); 
@lines=; 
close (PEO); 
&css; 
print <if(top==self)document.location='yhreg.cgi?menu=online_frame'; 
当 前 在 线 ！
当 前 在 线 人 员 名 单

 
IP地址 
姓名 活动时间 
目前位置 当前动作 
 
EOF 
foreach $line (@lines) { 
chomp($line); 
($rip,$r1,$r2,$r3,$rname,$tu,$bbsname,$rtitles,$act)=split(/\t/,$line); 
if($admname ne $username){$rip= "已记录";} 
if($tu eq "estate"){$rname="隐 身";} 
elsif($rname ne ""){$rname=" $rname";} 
else{$rname="访 客";} 
if($rtitles eq ""){$bbsname="$bbsname";}else{$rtitles="浏览“$rtitles”";} 
print <$rip 
$rname$r1:$r2:$r3$bbsname 
$rtitles 
LLL 
} 
print "
[  返 回  ]\n"; 
exit;} 
########## 
sub mail{ 
if($username eq ""){&errorview("请输入您的用户名!");} 
if( -e "$filepath/yhzl/$username.cgi"){ 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSD); 
($rdpassword,$rdname,$rdmail)=split(/\t/,$line); 
$sendto="$rdmail"; 
$subject="遗忘密码通知"; 
$message="\n　　您的帐号是:$rdname　密码是:$rdpassword\n\n\n免费论坛服务由 $zyname($zyurl) 提供　程序制作：Yuzi工作室(http://www.yuzi.net)\n\n\n"; 
if(-e $mailprg){&sendmail;}else{do "$cgipa/sub/smtp.cgi";} 
&okview("密码已经发送到 $rdmail 信箱了，请去收信！");exit; 
}else{ 
&errorview("对不起，系统中没有此用户的资料!");exit; 
} 
exit; 
} 
sub email { 
open(TITLES,"$filepath/list/$id/$index"); 
$hastitles=; 
close(TITLES); 
($rtitles,$rthistime,$rusername,$rcomment,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$djj)=split(/\t/,$hastitles); 
if($username ne ""){ 
open(PSD,"$filepath/yhzl/$username.cgi"); 
$line=; 
close(PSD); 
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rfy,$rhf,$tu,$jiao)=split(/\t/,$line); 
} 
&css; 
print <Send to a friend
 
 
 
 
   

将此页发给您的朋友 
 
    
   如果您认为您的朋友同样对这篇文章感兴趣的话，您只需填写几个简单的信息后点“发送”即可将此文的地址发送给您的朋友 
 
  
   
注释（可选项） 
请您填写姓名及E-mail只是为了您的朋友方便的了解此条信息的来源！ 
   您朋友的姓名 

您朋友的E-mail地址 
您的姓名

您的E-mail地址 

 　   
 
 
EOF 
exit; 
} 
sub mailfriend{ 
if(!($Friend_email=~ /.*\@.*\..*/)){&errorview("您朋友的Email输入错误！");exit(0);} 
$comment=~s/<([^>]|\n)*>/\n/g; 
$sendto="$Friend_email"; 
$adminmail=$mail; 
$subject="$titles"; 
$message="\n$Friend_name，您好！\n\n我想您可能会喜欢看这内容的，所以我发给您这网页的链接\n\n$ym/bbs.cgi?menu=show&slttitle=$index&id=$id\n\n============================================================\n$comment\n============================================================\n　　　　　　　　　　　　　　　　　　　　您的朋友：$username\n\n免费论坛服务由 $zyname($zyurl) 提供　程序制作：Yuzi工作室(http://www.yuzi.net)\n\n\n"; 
if(-e $mailprg){&sendmail;}else{do "$cgipa/sub/smtp.cgi";} 
&css; 
print <Send to a friend
 
 
   

谢谢使用 
 
    
    
 
  
 
您的信息已经被发送致
$Friend_email 
 
 
 
EOF 
exit; 
} 
######################### END OF SCRIPT #########################