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

#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
$cgiurl="xiu.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; 
$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'}; 
$newusername=$FORM{'newusername'}; 
$newpsd=$FORM{'newpsd'}; 
$userpsd=$FORM{'userpsd'}; 
$comment=$FORM{'comment'}; 
$yhq=$FORM{'yhq'}; 
$fbzmc=$FORM{'fbzmc'}; 
$fbzmc2=$FORM{'fbzmc2'}; 
$mail=$FORM{'mail'}; 
$home=$FORM{'home'}; 
$htmlt=$FORM{'htmlt'}; 
$htmlw=$FORM{'htmlw'}; 
$title=$FORM{'title'}; 
$menu=$FORM{'menu'}; 
$newpsd=$FORM{'newpsd'}; 
$jj=$FORM{'jj'}; 
if($menu eq "reguser"){®user;exit;} 
if($menu eq "reg"){®exit;} 
if($username eq ""){&bzgl;exit;} 
® 
exit; 
########## 
sub reg{ 
if ( -e "$filepath/list/$username.cgi"){ 
open(PSD,"$filepath/list/$username.cgi"); 
@lines=; 
close(PSD); 
foreach $line (@lines) { 
chomp($line); 
($rname,$secret,$rmail,$rhome,$rtitle,$fbzmc2,$rtime,$htmlt,$htmlw,$jj,$fbzmc)=split(/\t/,$line); 
open(TITLESyu,"$filepath/yhzl/$rname.cgi"); 
$ayu=; 
close(TITLESyu); 
chomp($ayu); 
($rpass)=split(/\t/,$ayu); 
if($userpsd ne "$rpass"){&errorview("您的密码错误！");} 
print "Content-type: text/html\n\n"; 
print < 
 
 
 
　
 
版主资料修改
 
● 
申请完成后，您即可获得自己的论坛($ym/bbs.cgi?id=论坛ID) 
● 
带 * 为必填 
 
*  论坛名称：
 
 
 
保密论坛访问密码：
 
　如果您不想将这个论坛保密，此处请留空
 
*  您的Email地址：
 
您的主页的URL：
 
 
论坛简介：
$jj
 
论坛头部显示信息：
（支持 html）
 
$htmlt
 
论坛尾部显示信息：
（支持 html）
 
$htmlw
 
请设定副版主名称：
　　如果您不想有副版主，此处请留空
 
凡申请使用本论坛系统的用户均可以获得
$ym/bbs.cgi?id=论坛ID
的域名指向其论坛系统！
 
[免费申请][版主资料修改][用户资料注册][用户资料修改][论坛列表][社区管理] 
注意事项：
1、不得使用本论坛系统建立任何包含色情、非法、以及危害国家安全的内容的论坛;
2、不得在本系统用户所拥有的论坛内发布任何色情、非法、或者危害国家安全的言论;
3、以上规则违者责任自负，本站有权删除该类用户或者内容，并追究其法律责任。
 
免费论坛服务由 $zyname 
提供　程序制作：Yuzi工作室
 
EOF 
exit; 
}}else{ 
&errorview("对不起，您输入的ID是错误的，系统不存在此ID的信息！");exit; 
}} 
########## 
sub reguser{ 
&origin; 
unless ( -e "$filepath/yhzl/$newusername.cgi"){&errorview("对不起，您输入的新版主名称错误，系统没有此用户的资料!");} 
if ($fbzmc ne ""){ 
unless ( -e "$filepath/yhzl/$fbzmc.cgi"){&errorview("对不起，您输入的副版主 $fbzmc 错误，系统没有此用户的资料!");}} 
if ($fbzmc2 ne ""){ 
unless ( -e "$filepath/yhzl/$fbzmc2.cgi"){&errorview("对不起，您输入的副版主 $fbzmc2 错误，系统没有此用户的资料!");}} 
open(PSD,"$filepath/list/$username.cgi"); 
$line=; 
close(PSD); 
($rname)=split(/\t/,$line); 
open(TITLESyu,"$filepath/yhzl/$rname.cgi"); 
$ayu=; 
close(TITLESyu); 
($rpass)=split(/\t/,$ayu); 
if($userpsd ne "$rpass"){&errorview("您的密码错误！");} 
if(($userpsd eq "")||($newusername eq "")||($mail eq "")||($title eq "")){&errorview("显示标题　名字　密码　信箱　必顺要填写的，请重新输入！");} 
if(length($title) > 50 ){&errorview("您的标题不能大于25个汉字！");} 
if(length($jj) > 400 ){&errorview("您的简介不能大于200个汉字！");} 
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);} 
if($home eq "http://"){$home="";} 
open(PSD,">$filepath/list/$username.cgi"); 
print PSD $newusername."\t$FORM{'secret'}\t".$mail."\t".$home."\t".$title."\t".$fbzmc2."\t".$FORM{'rtime'}."\t".$htmlt."\t".$htmlw."\t".$jj."\t".$fbzmc; 
close(PSD); 
chmod(0666,"$filepath/list/$username.cgi"); 
&css; 
print "\n"; 
print "\n"; 
print "
\n"; 
print "
祝 贺 您 ！ 您 已 经 成 功 更 改 ！\n"; 
print "
我们为您的新论坛免费提供了一个属于您自己的域名：
$ym/bbs.cgi?id=$username
请记住它！\n"; 
print "
请在此行上点击您鼠标的右键，
把这个域名加入您的书签或者收藏夹中\n"; 
print "
\n"; 
print "
显示标题：
$FORM{title}
您的主页：
$FORM{home}
论坛ID ：
$FORM{username}
您的密码：
$userpsd
您的信箱：
$FORM{mail}
注册时间：
$FORM{'rtime'}
\n"; 
print "\n"; 
print "
\n"; 
print "
本页面采用CGI程序更新，程序制作：“YUZI工作室”
\n"; 
exit; 
} 
######## 
sub bzgl{ 
&css; 
print <版主资料修改
 

—— 版主资料修改 —— 
论坛 ID :
 
版主密码:
 
 

——　找回密码　——
请输入您的用户名: 

 
[免费申请][版主资料修改][用户资料注册][用户资料修改][论坛列表][社区管理]
 
 
免费论坛服务由 $zyname 提供　程序制作 Yuzi工作室  
 
EOF 
exit; 
} 
######################### END OF SCRIPT #########################