#!/usr/local/bin/perl
#------------------------------------------------------#
#                 本程序為飛喵喵提供 
#                Yuzi論壇3000 免費版 v3.47             
#                                                      
#                                                      
#                此程式由 飛喵喵空服網 中文化            
#                                                      
#    中文化版本 : v3.47b5                              
#    日期       : 2001.2.11                            
#    中文化作者 : 飛喵喵空服網站長 DC                    
#                                                      
#    飛喵喵空服網 http://meowfly.myweb.hinet.net                  
#                                                      
#------------------------------------------------------#
require "setup.cgi";
$regbbsok=1;# 0=允許申請論壇                 1=不允許申請論壇
$regbbsx =0;# 0=申請後的論壇自動顯示在列表上 1=申請後的論壇不顯示在列表上
######################
## 以下部分不需修改 ##
######################
if($regbbsok eq "1"){&errorview("對不起申請暫停中...........");exit;}
$cgiurl    = "reg.cgi";
$from    = $ENV{'REMOTE_ADDR'};
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour));
$mon=$mon+1;
if($mon <10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
if($hour<10){$hour="0".$hour;}
if($min<10){$min="0".$min;}
if($sec<10){$sec="0".$sec;}
$year=$year+1900;
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec;
$lasttime=$year."-".$mon."-".$mday;
##########
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;
$FORM{$name} = $value;
$FORM{'htmlt'}=~s/\n//g;
$FORM{'htmlw'}=~s/\n//g;
$FORM{'jj'}=~s/\n//g;
$FORM{'jj'}=~ s/<([^>]|\n)*>/ /g;
}
##########
$username = $FORM{'username'};
$newpsd   = $FORM{'newpsd'};
$userpsd  = $FORM{'userpsd'};
$titles   = $FORM{'titles'};
$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'};
&GetCookies;
if ($username eq ""){$username=$Cookies{username}};
$regd=0;
$regda=0;
$regdb=0;
if($menu eq "reguser"){&reguser; exit;}
if($menu eq "reg"){&reg;exit;}
&reg;
exit;
##########
sub send_html {
if ($has_send ne "1") {
print "Content-type: text/html\n\n";
$has_send = "1";
}
}
##########
sub reg{
&send_html;
print <<EOF;
<HTML><HEAD><TITLE>免費論壇申請表</TITLE>
<body background=$imagurl/bei.gif>
<STYLE type=text/css>TD {
FONT-FAMILY: Arial; FONT-SIZE: 9pt; LINE-HEIGHT: 20px
}
.pt9 {
FONT-FAMILY: "宋體", "Arial", "Times New Roman"; FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
.pt9w {
COLOR: #ffffff; FONT-FAMILY: "宋體", "Arial", "Times New Roman"; FONT-SIZE: 9pt; LINE-HEIGHT: 13pt
}
.pt9b {
FONT-FAMILY: "宋體", "Arial", "Times New Roman"; FONT-SIZE: 9pt; FONT-WEIGHT: bold; LINE-HEIGHT: 13pt
}
.pt10 {
FONT-FAMILY: 黑體, "Arial", "Times New Roman"; FONT-SIZE: 16px; LINE-HEIGHT: 21px
}
A:link {
COLOR: rgb(152,78,50); CURSOR: hand; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:visited {
COLOR: #666666; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:active {
COLOR: rgb(198,198,198); FONT-STYLE: normal; TEXT-DECORATION: none
}
A:hover {
COLOR: rgb(72,105,191); TEXT-DECORATION: none
}
</STYLE>
<style><!--  .ourfont{font-size: 12px;line-height: 17px;}
A:link {text-decoration: none; color: #ffffff}       A:visited {text-decoration: none; color:#8080FF }      A:active {text-decoration: none}      A:hover {text-decoration: none; color: #FF0000}   --></style>
</HEAD>
<BODY bgColor=#ffffff textcolor="000000">
<form method="post" action="$cgiurl">
<input type="hidden" name="menu" value="reguser">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" width="310" bgcolor="#FFCC66" bordercolorlight="#008000" bordercolordark="#FFFFFF">
<tr>
<TD><center><p><b>免費論壇系統申請表</b></p></TD>
</tr>
<tr>
<TD>
<P class=pt9>●
申請完成後，您即可獲得自己的論壇($ym/bbs.cgi?id=論壇管理員名稱) <BR>●
帶<FONT color=red>*</FONT>為必填 </P></TD>
</tr>
<tr>
<TD>
<TABLE bgColor=#bbbbbb width="627">
<TBODY>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>  請設定論壇的名稱：</TD>
<TD class=pt9 width="466"><INPUT maxLength=20 name=title size=65></TD></TR>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
請設定論壇版主的名稱：</TD>
<TD class=pt9 width="466"><INPUT maxLength=10 size=10 name=username value=$username> <FONT color=red>（註意：您填入的版主名稱必須有<a href=yhreg.cgi target=_blank>註冊</a>過，否則不能申請論壇）</FONT></TD></TR>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>
輸入您註冊時填的密碼：</TD>
<TD class=pt9 width="466"><INPUT name=userpsd type=password size="10"></TD></TR>
<TR>
<TD align=right class=pt9 width="186"><FONT color=red>*</FONT>  您的Email地址：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=mail size=50></TD></TR>
<TR>
<TD align=right class=pt9 width="186">您的主頁的URL：</TD>
<TD class=pt9 width="466"><INPUT maxLength=80 name=home size=65 value=http://></TD></TR>
<TR>
<TD align=right class=pt9 width="186">論壇簡介：</TD>
<TD class=pt9 width="466"><textarea cols=63 name=jj rows=5></textarea></TD></TR>
<TR>
<TD align=right class=pt9 width="186">論壇頭部顯示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD class=pt9 width="466"><textarea cols=63 name=htmlt rows=5></textarea></TD></TR>
<TR>
<TD align=right class=pt9 width="186">論壇尾部顯示信息：<br><FONT color=red>（支持 html）</FONT></TD>
<TD class=pt9 width="466"><textarea cols=63 name=htmlw rows=5></textarea></TD></TR>
</TBODY></TABLE></TD>
</tr>
<tr>
<TD class=pt9>
<P><input type="submit" value="填好了，繼續！"><P align=center
class=pt9>凡申請使用本論壇系統的用戶均可以獲得<BR><B>$ym/bbs.cgi?id=用戶名</B><BR>的域名指向其論壇系統！<BR>
<P align=right class=pt9>[免費申請]<a href="xiu.cgi">[版主資料修改]</a><a href="yhreg.cgi">[用戶資料註冊]</a><a href="yhxiu.cgi">[用戶資料修改]</a><a href="list.cgi" target=_top>[論壇列表]</a><a href="cjyh.cgi">[社區管理]</a>
<P>
<DIV
class=pt9>註意事項：<BR>1、不得使用本論壇系統建立任何包含色情、非法、以及攻擊空地勤組員的內容;<BR>2、不得在本系統用戶所擁有的論壇內發布任何色情、非法、或者攻擊網友的言論;<BR>3、以上規則違者責任自負，本站有權刪除該類用戶或者內容，并追究其法律責任。<BR></DIV></TD>
</tr>
<td align="middle">免費論壇服務由<font color=#cc0033>
</font><font color=#ff6633><b><font Helvetica, sans-serif><a href=$zyurl>$zyname</a></font></b></font><font color=#cc0033>
</font>提供：<b><a href="http://meowfly.myweb.hinet.net" target="_blank">飛喵喵</b></a><br>中文化 :<a href="http://meowfly.myweb.hinet.net" target="_blank"><font color=ff0000>飛喵喵空服網</a></font></td>
　</td>
</tr>
</table>
</form>
</BODY></HTML>
EOF
exit;
}
##########
sub reguser{
if ( -e "$filepath/yhzl/$username.cgi"){
open(TITLESyu,"$filepath/yhzl/$username.cgi");
$myu=<TITLESyu>;
close(TITLESyu);
($rpass)=split(/\t/,$myu);
if($userpsd ne "$rpass"){&errorview("您的輸入的版主密碼錯誤！");exit;}
}else{
&errorview("請先註冊版主的用戶名，再來申請論壇");exit;}
if(($username eq "")||($mail eq "")||($title eq "")){&errorview("顯示標題　名字　密碼　信箱　必順要填寫的，請重新輸入！");exit;}
if(length($title) > 50 ){&errorview("您的簡介不能大於25個字！");exit;}
if(length($jj) > 400 ){&errorview("您的簡介不能大於200個字！");exit;}
if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email輸入錯誤！");exit(0);}
if ( -e "$filepath/list/$username.cgi"){
&errorview("對不起，用戶名已被別人註冊! 換一個吧！");exit;
}else{
mkdir("$filepath/list/$username",0777);
unless(-f "$filepath/list/$username.cgi"){
open(PSD,">>$filepath/list/$username.cgi");
print PSD $username."\t\t".$mail."\t".$home."\t".$title."\t\t".$lasttime."\t".$htmlt."\t".$htmlw."\t".$jj;
print PSD "\n";
close(PSD);
chmod(0666,"$filepath/list/$username.cgi");
}
   open (OUTMAIL,"| $mailprg");
   print OUTMAIL "To: $FORM{mail}\n";
   print OUTMAIL "Subject: 交流區系統開通通知\n";
   print OUTMAIL "親愛的$username, 您好!\n\n";
   print OUTMAIL "　　恭喜! 您已經成功的申請了$zyname($zyurl)的論壇系統, 非常感謝您使用$zyname的服務!\n\n";
   print OUTMAIL "　* 我們免費為您的論壇提供了一個比較好記的地址,請您試試\n";
   print OUTMAIL "URL: $ym/bbs.cgi?id=$username\n\n";
   print OUTMAIL "　* 同時飛喵喵免費為您的論區提供了一個比較好記的地址,請您試試\n";
   print OUTMAIL "URL: $ym/list.cgi?id=$username\n\n";
   print OUTMAIL "　* 同時我們還免費為您的論壇提供了一段比較好記的代碼,讓您的主頁與論壇同步更新，您只要將以下代碼加到主頁上即可使用\n";
   print OUTMAIL "<SCRIPT src=$ym/new.cgi?id=$username></SCRIPT>\n\n";
   print OUTMAIL "　* 您的帳號是:$username　密碼是:$userpsd\n\n";
   print OUTMAIL "　* 最後, 有幾點註意事項請您牢記\n";
   print OUTMAIL "1、不得使用本飛喵喵系統建立任何包含色情、非法、攻擊空地勤組員的內容的文章\n";
   print OUTMAIL "2、不得在本系統用戶所擁有的論壇內發布任何政治色情、非法、攻擊組員的言論;\n";
   print OUTMAIL "3、以上規則違者責任自負，本站有權刪除該類用戶或者內容，追究其法律責任。\n\n\n";
   print OUTMAIL "免費論壇服務由 $zyname($zyurl) 提供　修正：飛喵喵(http://meowfly.myweb.hinet.net)\n";
   print OUTMAIL "中文化：飛喵喵(http://meowfly.myweb.hinet.net)\n\n\n";
   close(OUTMAIL);
if($regbbsx eq "0"){
open(PSD,">>$filepath/data/list.cgi");
print PSD "$username\n";
close(PSD);
}
open(PSD,">$filepath/list/$username/bbs");
close(PSD);
chmod(0666,"$filepath/list/$username/bbs");
}
&send_html;
print "<HEAD>\n";
print "<TITLE>祝 賀 您 ！ 您 已 經 成 功 申 請 ！</TITLE>\n";
print "</HEAD>\n";
print "<style type=text/css>TD{FONT-SIZE:9pt}A{FONT-SIZE:9pt;TEXT-DECORATION:none}A:hover{FONT-SIZE:9pt;TEXT-DECORATION:underline}</style>\n";
print "<body background=$imagurl/bei.gif>\n";
print "<br>\n";
print "<p class=pt10 align=center><b>祝 賀 您 ！ 您 已 經 成 功 申 請 ！</b>\n";
print "<p class=pt10 align=center><b><a href=bbs.cgi?id=$username target=_blank>我們為您的新論壇免費提供了一個屬於您自己的域名：<br>$ym/bbs.cgi?id=$username<br>請記住它！</a></b>\n";
print "<p class=pt10 align=center><b><a href=bbs.cgi?id=$username target=_blank>請在此行上點您滑鼠的右鍵，<br>把這個域名加入您的書簽或者收藏夾中</a></b>\n";
print "<p class=pt10 align=center>\n";
print "<table cellspacing=4 cellpadding=3><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>顯示標題：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{title}</font><td class=pt9 bgcolor=#FFF5E1><b>您的主頁：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{home}</font><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>註冊姓名：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{username}</font><td class=pt9 bgcolor=#FFF5E1><b>您的密碼：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$userpsd</font><tr><td class=pt9 align=right bgcolor=#FFF5E1><b>您的信箱：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$FORM{mail}</font><td class=pt9 bgcolor=#FFF5E1><b>註冊時間：</b><td class=pt9 align=left bgcolor=#FFF5E1><font color=#FF0000>$lasttime.</font></table>\n";
print "</table>\n";
print "<br>\n";
print "<div align=center><center><table border=1 borderColorDark=#ffffff borderColorLight=#008000 cellPadding=0 cellSpacing=0 width=60%><tbody><tr><td align=middle width=100%>本頁面由飛喵喵設計更新：<a href=http://meowfly.myweb.hinet.net target=_blank>飛喵喵</a><br>中文化 :<a href=http://meowfly.myweb.hinet.net target=_blank><font color=ff0000>飛喵喵空服網</a></font></td></tr></tbody></table></center></div>\n";
exit;
}
######################### END OF SCRIPT #########################
