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

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
if($regbbsok eq "off"){&errorview("对不起，论坛暂时不允许申请！");} 
$cgiurl= "reg.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/\.\.//g; 
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
$FORM{$name} = $value; 
$FORM{'htmlt'}=~s/\n//g; 
$FORM{'htmlw'}=~s/\n//g; 
$FORM{'jj'}=~s/\n//g; 
$FORM{'jj'}=~s/<([^>]|\n)*>/ /g; 
$FORM{'title'}=~s/<([^>]|\n)*>/ /g; 
$FORM{'username'}=~s/\.\.//g; 
} 
########## 
$username=$FORM{'username'}; 
$newpsd=$FORM{'newpsd'}; 
$userpsd=$FORM{'userpsd'}; 
$comment=$FORM{'comment'}; 
$mail=$FORM{'mail'}; 
$home=$FORM{'home'}; 
$title=$FORM{'title'}; 
$yhq=$FORM{'yhq'}; 
$htmlt=$FORM{'htmlt'}; 
$htmlw=$FORM{'htmlw'}; 
$menu=$FORM{'menu'}; 
$newpsd=$FORM{'newpsd'}; 
$jj=$FORM{'jj'}; 
if ($username eq ""){$username=$Cookies{username}}; 
$regd=0; 
$regda=0; 
$regdb=0; 
if($menu eq "reguser"){®user;exit;} 
if($menu eq "reg"){®exit;} 
® 
exit; 
########## 
sub reg{ 
print "Content-type: text/html\n\n"; 
print < 
 
 
 
　
 
免费论坛系统申请表
 
● 
申请完成后，您即可获得自己的论坛($ym/bbs.cgi?id=论坛ID) 
● 
带 * 为必填 
 
*  论坛名称：
 
* 
论坛版主的名称：
 （注意：您填入的版主名称必须有注册过，否则不能申请论坛）
 
* 
您注册时填的密码：
 
*  您的Email地址：
 
您的主页的URL：
 
 
论坛简介：
 
论坛头部显示信息：
（支持 html）
 
论坛尾部显示信息：
（支持 html）
 
凡申请使用本论坛系统的用户均可以获得
$ym/bbs.cgi?id=论坛ID
的域名指向其论坛系统！
 
[免费申请][版主资料修改][用户资料注册][用户资料修改][论坛列表][社区管理] 
注意事项：
1、不得使用本论坛系统建立任何包含色情、非法、以及危害国家安全的内容的论坛;
2、不得在本系统用户所拥有的论坛内发布任何色情、非法、或者危害国家安全的言论;
3、以上规则违者责任自负，本站有权删除该类用户或者内容，并追究其法律责任。
 
免费论坛服务由$zyname 
提供　程序制作：Yuzi工作室
 
EOF 
exit; 
} 
########## 
sub reguser{ 
&origin; 
if ( -e "$filepath/yhzl/$username.cgi"){ 
open(TITLESyu,"$filepath/yhzl/$username.cgi"); 
$myu=; 
close(TITLESyu); 
($rpass)=split(/\t/,$myu); 
if($userpsd ne "$rpass"){&errorview("您的输入的版主密码错误！");}}else{ 
&errorview("请先注册版主的用户名，再来申请论坛");} 
if(($username eq "")||($mail eq "")||($title eq "")){&errorview("显示标题　名字　密码　信箱　必顺要填写的，请重新输入！");} 
if(length($title) > 30 ){&errorview("您的标题不能大于30个字符！");} 
if(length($jj) > 400 ){&errorview("您的简介不能大于200个汉字！");} 
if(!($mail=~ /.*\@.*\..*/)){&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);} 
if($home eq "http://"){$home="";} 
$ftime="$year$mon$mday$hour$min"; 
if ( -e "$filepath/list/$ftime.cgi"){ 
&errorview("服务器过忙，请稍候按刷新继续！");exit; 
}else{ 
mkdir("$filepath/list/$ftime",0777); 
unless(-f "$filepath/list/$ftime.cgi"){ 
open(PSD,">>$filepath/list/$ftime.cgi"); 
print PSD $username."\t\t".$mail."\t".$home."\t".$title."\t\t".$lasttime."\t".$htmlt."\t".$htmlw."\t".$jj; 
close(PSD); 
chmod(0666,"$filepath/list/$ftime.cgi"); 
} 
if($regbbsx eq "1"){ 
open(PSD,">>$filepath/data/list.cgi"); 
print PSD "$ftime\t$FORM{title}\n"; 
close(PSD); 
open(TMP,">>$filepath/data/leftlist"); 
print TMP "$ftime\t$FORM{title}\n"; 
close(TMP); 
} 
open(PSD,">$filepath/list/$ftime/bbs"); 
close(PSD); 
chmod(0666,"$filepath/list/$ftime/bbs"); 
} 
&css; 
print "\n"; 
print "\n"; 
print "
\n"; 
print "
祝 贺 您 ！ 您 已 经 成 功 申 请 ！\n"; 
print "
我们为您的新论坛免费提供了一个属于您自己的域名：
$ym/bbs.cgi?id=$ftime
请记住它！\n"; 
print "
请在此行上点击您鼠标的右键，
把这个域名加入您的书签或者收藏夹中\n"; 
print "
\n"; 
print "
显示标题：
$FORM{title}
您的主页：
$FORM{home}
注册姓名：
$FORM{username}
您的密码：
$userpsd
您的信箱：
$FORM{mail}
注册时间：
$lasttime.
\n"; 
print "\n"; 
print "
\n"; 
print "
本页面采用CGI程序更新，程序制作：“YUZI工作室”
\n"; 
$sendto="$FORM{mail}"; 
$subject="论坛系统开通通知"; 
$message="\n亲爱的$username, 您好!\n\n　　恭喜! 您已经成功的申请了$zyname($zyurl)的论坛系统, 非常感谢您使用$zyname的服务!\n\n　* 我们免费为您的论坛提供了一个比较好记的地址,请您试试\nURL: $ym/bbs.cgi?id=$ftime\n\n　* 同时我们也免费为您的社区提供了一个比较好记的地址,请您试试\nURL: $ym/list.cgi?id=$ftime\n\n　* 同时我们还免费为您的论坛提供了一段比较好记的代码,让您的主页与论坛同步更新，您只要将以下代码加到主页上即可使用\n\n\n　* ID:$ftime　密码:$userpsd\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; 
} 
######################### END OF SCRIPT #########################