setup.cgi

BBS3000 sourceCode

</div>
<div align="center">
<input type="image" border="0" name="imageField" src="$imagurl/sbutton-send2.gif" alt="发 送">
<a href="$cgiurl?id=$id"><img src="$imagurl/sbutton-cal2.gif" border="0" alt="取 消"></div></a>
</center></center>
</td>
<td bgcolor=#7AB7FA><table width=150 border=0 cellpadding=4 cellspacing=0><tr bgcolor=#EEDEAC align=center><td bgcolor=#7AB7FA>请选择您的表情</td></tr><tr bgcolor=#7AB7FA><td><table width=100% border=0><tr><td align=center><input type=radio name=emote value=1><img onclick=inputs('[img]$imagurl/1.gif[/img]') src=$imagurl/1.gif alt=随便说说啦></td><td align=center><input type=radio name=emote value=2 ><img onclick=inputs('[img]$imagurl/2.gif[/img]') src=$imagurl/2.gif></td><td align=center><input type=radio name=emote value=21 ><img onclick=inputs('[img]$imagurl/21.gif[/img]') src=$imagurl/21.gif></td></tr><tr><td align=center><input type=radio name=emote value=3 checked><img onclick=inputs('[img]$imagurl/3.gif[/img]') src=$imagurl/3.gif alt=我来回答你></td><td align=center><input type=radio name=emote value=4><img onclick=inputs('[img]$imagurl/4.gif[/img]') src=$imagurl/4.gif></td><td align=center><input type=radio name=emote value=22 ><img onclick=inputs('[img]$imagurl/22.gif[/img]') src=$imagurl/22.gif></td></tr><tr><td align=center><input type=radio name=emote value=5><img onclick=inputs('[img]$imagurl/5.gif[/img]') src=$imagurl/5.gif alt=坚决同意！></td><td align=center><input type=radio name=emote value=6><img onclick=inputs('[img]$imagurl/6.gif[/img]') src=$imagurl/6.gif></td><td align=center><input type=radio name=emote value=23 ><img onclick=inputs('[img]$imagurl/23.gif[/img]') src=$imagurl/23.gif></td></tr><tr><td align=center><input type=radio name=emote value=7><img onclick=inputs('[img]$imagurl/7.gif[/img]') src=$imagurl/7.gif alt=反对反对！></td><td align=center><input type=radio name=emote value=8><img onclick=inputs('[img]$imagurl/8.gif[/img]') src=$imagurl/8.gif></td><td align=center><input type=radio name=emote value=24><img onclick=inputs('[img]$imagurl/24.gif[/img]') src=$imagurl/24.gif></td></tr><tr><td align=center><input type=radio name=emote value=9><img onclick=inputs('[img]$imagurl/9.gif[/img]') src=$imagurl/9.gif alt=大家过来..></td><td align=center><input type=radio name=emote value=10><img onclick=inputs('[img]$imagurl/10.gif[/img]') src=$imagurl/10.gif></td><td align=center><input type=radio name=emote value=25><img onclick=inputs('[img]$imagurl/25.gif[/img]') src=$imagurl/25.gif></td></tr><tr> <td align=center><input type=radio name=emote value=11><img onclick=inputs('[img]$imagurl/11.gif[/img]') src=$imagurl/11.gif alt=好奇怪哟！></td><td align=center><input type=radio name=emote value=12><img onclick=inputs('[img]$imagurl/12.gif[/img]') src=$imagurl/12.gif></td><td align=center><input type=radio name=emote value=26><img onclick=inputs('[img]$imagurl/26.gif[/img]') src=$imagurl/26.gif></td></tr><tr><td align=center><input type=radio name=emote value=13><img onclick=inputs('[img]$imagurl/13.gif[/img]') src=$imagurl/13.gif alt=哇，原来如此></td><td align=center><input type=radio name=emote value=14><img onclick=inputs('[img]$imagurl/14.gif[/img]') src=$imagurl/14.gif></td><td align=center><input type=radio name=emote value=27><img onclick=inputs('[img]$imagurl/27.gif[/img]') src=$imagurl/27.gif></td></tr><tr><td align=center><input type=radio name=emote value=15><img onclick=inputs('[img]$imagurl/15.gif[/img]') src=$imagurl/15.gif alt=管它呢:--{></td><td align=center><input type=radio name=emote value=16><img onclick=inputs('[img]$imagurl/16.gif[/img]') src=$imagurl/16.gif></td><td align=center><input type=radio name=emote value=28><img onclick=inputs('[img]$imagurl/28.gif[/img]') src=$imagurl/28.gif></td></tr><tr> <td align=center><input type=radio name=emote value=17><img onclick=inputs('[img]$imagurl/17.gif[/img]') src=$imagurl/17.gif alt=号外！号外！></td><td align=center><input type=radio name=emote value=18><img onclick=inputs('[img]$imagurl/18.gif[/img]') src=$imagurl/18.gif></td><td align=center><input type=radio name=emote value=29><img onclick=inputs('[img]$imagurl/29.gif[/img]') src=$imagurl/29.gif></td></tr><tr> <td align=center><input type=radio name=emote value=19><img onclick=inputs('[img]$imagurl/19.gif[/img]') src=$imagurl/19.gif alt=大家小心！></td>
<td align=center><input type=radio name=emote value=20><img onclick=inputs('[img]$imagurl/20.gif[/img]') src=$imagurl/20.gif></td><td align=center><input type=radio name=emote value=30 ><img onclick=inputs('[img]$imagurl/30.gif[/img]') src=$imagurl/30.gif></td></tr></table></td></tr></table></td></tr></table></div></td></tr>
<td>
<input type="checkbox" value="1" name="emailhf"> 将本文章寄一份给原作者　　
EOF
if ($YBBCodeAllow eq "is") {
print <<EOF;
<font color=#FF0000>* </font><a href=javascript:openWindow()>YBB代码</a>支持
EOF
}
print <<EOF;
</td>
</tr>
</table>
</form>
</body>
</html>
EOF
exit;
}
##########
sub addtitle{
if ($YBBCodeAllow eq "is") {
$comment = &YBBCode("$comment");
}
if((($titles eq "")||($username eq "")||($userpsd eq ""))){&errorview("您的尊称、密码、文章标题不能为空！");exit;}
if(length($titles) > 100 ){&errorview("文章标题不能大于50个汉字！");exit;}
if($mail ne ""){
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
};
open(TMP,"$chklast");
$lasttxt=<TMP>;
close(TMP);
($lastcomment)=split(/\t/,$lasttxt);
if($lastcomment eq $from.$year.$mon.$mday.$hour.$min){&errorview("为防止有人用程序灌水，本BBS限制一个人两次发帖间隔必须大于30秒！");exit;}
open(TMP,">$chklast");
print TMP $from.$year.$mon.$mday.$hour.$min;
close(TMP);
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=<TITLES>;
close(TITLES);
$size=@hastitles;
$size=$size+1;
$newtitle=$ftime;
open(TITLES,">$filepath/list/$id/bbs");
print TITLES "$newtitle\n";
for($i=0;$i<=$size;$i++){
$m=@hastitles[$i];
print TITLES "$m";
}
close(TITLES);
$peo="$filepath/list/$id/$ftime";
unless(-f $peo){
open(TMP,">$peo");
close(TMP);
chmod(0666,$peo);
}
if($emote eq ""){$emote="1"};
open(TMP,">$peo");
print TMP $titles."\t".$thistime."\t".$username."\t".$comment."\t".$from."\t0\t".$emote."\t--\t".$thistime."\t"."$ftime"."b"."\t".0;
close(TMP);
open(TMP,">$filepath/list/$id/$ftime"."b");
close(TMP);
chmod(0666,"$filepath/list/$id/$ftime"."b");
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq,$photo)=split(/\t/,$line);
open(PSD,">$filepath/yhzl/$username.cgi");
$rdfy++;if($tu eq ""){$tu=$sec};if($mail ne ""){$rdmail=$mail};if(($home ne "http://")&&($home ne "")){$rdhome=$home};
print PSD $rdpassword."\t".$rdname."\t".$rdmail."\t".$rdhome."\t".$rlast."\t".$rdqm."\t".$rdsex."\t".$rdwork."\t".$rdcity."\t".$rdlove."\t".$rdfy."\t".$rdhf."\t".$tu."\t".$jiao."\t".$ENV{'HTTP_USER_AGENT'}."\t".$oicq."\t".$photo;
close(PSD);
open(NUMBER,"$filepath/guest/2$username.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
$money=$money+3;$charm=$charm+0.5;
open(NUMBER,">$filepath/guest/2$username.cgi");
print NUMBER "$lys"."\t"."$lys"."\t"."$money"."\t"."$charm";
close(NUMBER);
print "Location: $cgiurl?menu=win&username=$username&userpsd=$userpsd&id=$id\n\n";
exit;
}
##########
sub reply{
if ($YBBCodeAllow eq "is") {
$comment = &YBBCode("$comment");
}
if(($username eq "")||($userpsd eq "")||($retitles eq "")){&errorview("您的尊称、密码、回复标题不能为空！");exit;}
if($mail ne ""){
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email输入错误！");exit(0);}
};
open(TMP,"$chklast");
$lasttxt=<TMP>;
close(TMP);
($lastcomment)=split(/\t/,$lasttxt);
if($lastcomment eq $from.$year.$mon.$mday.$hour.$min){&errorview("为防止有人用程序灌水，本BBS限制一个人两次发帖间隔必须大于30秒！");exit;}
open(TMP,">$chklast");
print TMP $from.$year.$mon.$mday.$hour.$min;
close(TMP);
open(TITLES,"$filepath/list/$id/$replytime");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/list/$id/$replytime");
foreach $m (@hastitles){
$m=~ s/\n//g;
($rtitles,$rthistime,$rusername,$rcomment,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$djj)=split(/\t/,$m);
}
if($emote eq ""){$emote="3"};
$rhasreply++;
print TITLES $rtitles."\t".$rthistime."\t".$rusername."\t".$rcomment."\t".$rfrom."\t".$rhasreply."\t".$remote."\t".$username."\t".$thistime."\t".$re."\t".$djj."\n";
close(TITLES);
$addreply=$replytime."\t".$thistime."\t".$username."\t".$comment."\t".$from."\t".$emote."\t".$retitles."\t".0;
$peo="$filepath/list/$id/$re";
unless(-f $peo){
open(TMP,">$peo");
close(TMP);
chmod(0666,$peo);
}
open(REPLY,">>$peo");
print REPLY $addreply."\n";
close(REPLY);
if(($yjhf ne "")&&($FORM{'emailhf'} eq "1")){
$comment=~ s/<([^>]|\n)*>/\n/g;
open (OUTMAIL,"| $mailprg") || die "Mail system error";
print OUTMAIL "To: $yjhf\n";
print OUTMAIL "Subject: $bbsname提醒邮件\n";
print OUTMAIL "亲爱的$rusername, 您好!\n\n";
print OUTMAIL "　　首先, 非常感谢您使用$zyname提供的服务!\n";
print OUTMAIL "这是一封论坛系统自动生成的邮件，请不要回信。\n\n";
print OUTMAIL "在$rthistime, 您在$bbsname\n";
print OUTMAIL "发表过文章 <<$rtitles>>\n\n";
print OUTMAIL "　　后来, 在$thistime, 有位叫做$username\n";
print OUTMAIL "的朋友回应了您的文章, 他来自$rdcity ($from) ,\n";
print OUTMAIL "他的E-mail地址是 $rdmail , 主页是 $rdhome\n";
print OUTMAIL "文章主题是 <<$retitles>>\n\n";
print OUTMAIL "URL: $ym/bbs.cgi?menu=show&slttitle=$replytime&id=$id\n\n";
print OUTMAIL "文章的详细内容如下:\n";
print OUTMAIL "$comment\n\n";
print OUTMAIL "　　欢迎再次光临 $bbsname !\n";
print OUTMAIL "$ym/bbs.cgi?id=$id\n\n";
print OUTMAIL "免费论坛服务由 $zyname($zyurl) 提供　程序制作：Yuzi工作室(http://www.yuzi.net)\n";
print OUTMAIL "\n\n";
close(OUTMAIL);
};
open (GUEST,"$filepath/list/$id/bbs") ;
@lines=<GUEST>;
close(GUEST);
open (GUEST,">$filepath/list/$id/bbs") ;
print GUEST "$replytime\n";
foreach $usersays (@lines) {
$usersays=~ s/\n//g;
($rd_time)=split(/\t/,$usersays);
if($replytime ne $rd_time){
print GUEST "$usersays\n";
}
}
close(GUEST);
open(PSD,"$filepath/yhzl/$username.cgi");
$line=<PSD>;
close(PSD);
($rdpassword,$rdname,$rdmail,$rdhome,$rlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq,$photo)=split(/\t/,$line);
open(PSD,">$filepath/yhzl/$username.cgi");
$rdhf++;if($tu eq ""){$tu=$sec};if($mail ne ""){$rdmail=$mail};if(($home ne "http://")&&($home ne "")){$rdhome=$home};
print PSD $rdpassword."\t".$rdname."\t".$rdmail."\t".$rdhome."\t".$rlast."\t".$rdqm."\t".$rdsex."\t".$rdwork."\t".$rdcity."\t".$rdlove."\t".$rdfy."\t".$rdhf."\t".$tu."\t".$jiao."\t".$ENV{'HTTP_USER_AGENT'}."\t".$oicq."\t".$photo;
close(PSD);
if($rusername ne $username){
open(NUMBER,"$filepath/guest/2$rusername.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
$money=$money+1;$charm=$charm+0.1;
open(NUMBER,">$filepath/guest/2$rusername.cgi");
print NUMBER "$lys"."\t"."$oldlys"."\t"."$money"."\t"."$charm";
close(NUMBER);
open(NU,"$filepath/guest/2$username.cgi");
$NU=<NU>;
close(NU);
($lysy,$oldlysy,$moneyy,$charmy)=split(/\t/,$NU);
$moneyy=$moneyy+1;$charmy=$charmy+0.1;
open(NU,">$filepath/guest/2$username.cgi");
print NU "$lysy"."\t"."$oldlysy"."\t"."$moneyy"."\t"."$charmy";
close(NU);
}
print "Location: $cgiurl?menu=win&username=$username&userpsd=$userpsd&id=$id\n\n";
exit;
}
##########
sub editform{
open(TITLES,"$filepath/list/$id/$deltitle");
@hastitles=<TITLES>;
close(TITLES);
foreach $m (@hastitles){
$m=~ s/\n//g;
($rdtitles,$rdthistime,$rdusername,$nnn,$rdhassee,$rdhasreply,$r3,$r4,$r5,$r6)=split(/\t/,$m);
}
$oldtitle=$rdtitles;
$olduser=$rdusername;
$oldemote=$r3;
$oldcomment=$nnn;
$rd1comment=$rdcomment;
$oldcomment=~ s/<([^>]|\n)*>/\n/g;
&send_html;
print <<EOF;
<html>
<head>
<title>编辑主题</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link {  font-family: "宋体", "serif"; font-size: 9pt; color: #004080; text-decoration: none}
a:hover {  color: #004080; text-decoration: underline; background-color: #CCCC99}
a:visited {  text-decoration: none}
body {  font-family: "宋体", "serif"; font-size: 9pt}
td {  font-family: "宋体", "serif"; font-size: 9pt}
input {  font-size: 9pt}
p {  font-size: 9pt}
br {  font-size: 9pt}
tr {  font-size: 9pt}
table {  font-size: 9pt}
-->
</style>
</head>
<SCRIPT LANGUAGE="JavaScript">
function openWindow(url) {
  popupWin = window.open('$imagurl/ybb.htm','','resizable,scrollbars')
}
</SCRIPT>
<body topmargin=0>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="center" >
<table width="100%" border="0" cellpadding="4" cellspacing="0" background=$imagurl/tablebg.gif>
<tr>
<td width="50%"><font color="#FFFFFF">您当前的位置：<a href="$cgiurl?id=$id"><font color="#FFFFFF">$bbsname</font></a>->>>编辑主题</font></td>
<td align=right>
EOF
if(($outurl ne "")&&($outurl ne "http://")){
print "<a href=$outurl target=_blank><font color=#FFFFFF>$outurl</font></a></td>";
}
print <<EOF;
</tr>
</table>
<br>
<form ACTION="$cgiurl" METHOD="POST" align="center">
<input type="hidden" name="menu" value="edit">
<input type="hidden" name="deltitle" value=$deltitle>
<div align="center">
<table border="0" cellpadding="0" width="590" cellspacing="0" align="left">
<tr bgcolor="#7AB7FA">
<td>
<div align="center">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr valign="top">
<td width="100%">
<div align="center"><font color=#FFFFFF>编辑主题</font><br>
<table width="549" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr>
<td bgcolor=#FFF5E1 align="left" width="543" colspan="2">文章标题： <INPUT size=68 maxLength=50 name=titles value=$oldtitle>
<input type="hidden" name="id" size="28" value="$id" maxlength="46">
<input type="hidden" name="username" size="28" value="$username" maxlength="46">
<input type="hidden" name="userpsd" size="28" value="$userpsd" maxlength="46">
<input type="hidden" name="rdcomment" value="$rd1comment">

</td>
<tr bgcolor="#ffedc8">
<td background=$imagurl/tablebg.gif height="168" colspan="2" width="545">
<p>
<center>文章内容</center><textarea name="comment" cols="75" rows="9">$oldcomment</textarea>
</p>
</td>
</tr>
</table>  </center>
</div>
<div align="center">
<input type="image" border="0" name="imageField" src="$imagurl/sbutton-send2.gif" width="59" height="21">
<a href="$cgiurl?id=$id"><img src="$imagurl/sbutton-cal2.gif" width="59" height="21" border="0"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
EOF
if ($YBBCodeAllow eq "is") {
print <<EOF;
<tr>
<td>
<align=left><font color=#FF0000>* </font><a href=javascript:openWindow()>YBB代码</a>支持
</td></tr>
</form>
</body>
</html>
EOF
} else {
print <<EOF;
<tr>
<td>
</td></tr>
</form>
</body>
</html>
EOF
}
exit;
}
##########
sub reditform{
open(TITLES,"$filepath/list/$id/$no");
@hastitles=<TITLES>;