signup.pl

这个社区是虚拟社区使用的程序

###############################################################################
# SignUp.pl                                                                   #
###############################################################################
# UltraBoard Ver. 1.61 by UltraScripts.com                                    #
# Scripts written by Jacky W.W. Yung, [e-mail]              #
# Available from http://www.UltraScripts.com/UltraBoard/                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : UltraBoard                                                   #
# VERSION : 1.61                                                              #
# LAST MODIFIED : 30/06/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 Jacky Yung. All Rights Reserved.                         #
#                                                                             #
# This program is free software; you can change or modify it as you see fit.  #
# However, modified versions cannot be sold or distributed.  You cannot alter #
# the copyright and "powered by" notices throughout the scripts. These        #
# notices must be clearly visible to the end users.                           #
#                                                                             #
# WARRANTY DISCLAIMER:                                                        #
#                                                                             #
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT WITHOUT #
# ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF MERCHANTABILITY OR       #
# FITNESS FOR A PARTICULAR PURPOSE.                                           #
###############################################################################

###############################################################################
# SignUp                                                                      #
###############################################################################
sub SignUp {
	if (!$AllowRegister) {
		print "Location: UltraBoard.$Ext&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}\n\n";
	}
    if (($UseRule ne "")&&(!defined $in{'Agreement'})) {
        open(RULE,"$VarsPath/Rule.txt");
            flock(RULE,2) if ($FLock);
            my (@Rule)=<RULE>;
            $Rule=join("",@Rule);
            $Rule=~s/\\n/\n/isg;
        close(RULE);
        $HTML.= "<p>".&Form("UltraBoard.$Ext","POST","","").
                &HiddenBox("Action","SignUp").
                &HiddenBox("Ref",$in{'Ref'}).
                &HiddenBox("Category",$in{'Category'}).
                &HiddenBox("Board",$in{'Board'}).
                &HiddenBox("Post",$in{'Post'}).
                &HiddenBox("Idle",$in{'Idle'}).
                &HiddenBox("Sort",$in{'Sort'}).
                &HiddenBox("Order",$in{'Order'}).
                &HiddenBox("Page",$in{'Page'}).
                &BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
					&Tr("","",$HeaderBGColor).
                        &Td("","","2","","","","","","").
                            &Font($FontFace,$HeaderTextSize,$HeaderTextColor).
                                "<b>虚 拟 社 区 服 务 条 款</b>".
                            "</font>".
                        "</td>".
			                   &Tr("","",$CategoryBGColor).
                       &Td("50%","","","","","","","","").
                           "<center>".&Submit("Agreement","同  意","width:$IETextBoxSize")."</center>".
                       "</td>".
                       &Td("50%","","","","","","","","").
                           "<center>".&Submit("Agreement","不同意","width:$IETextBoxSize")."</center>".
                        "</td>".
                    "</tr>".
                    "</tr>".
                    &Tr("","",$RowOddBGColor).
                        &Td("","","2","","","","","","").
                            &Table("100%","CENTER","5","10","","").
                                &Tr("","","").
                                    &Td("","","","","","MIDDLE","","","").
                                        &Font($FontFace,$TextSize,$TextColor).
                                            $Rule.
                                        "</font>".
                                    "</td>".
                                "</tr>".
                            "</table>".
                        "</td>".
                    "</tr>".
#                   &Tr("","",$CategoryBGColor).
#                       &Td("50%","","","","","","","","").
#                           "<center>".&Submit("Agreement","同  意","width:$IETextBoxSize")."</center>".
#                       "</td>".
#                       &Td("50%","","","","","","","","").
#                           "<center>".&Submit("Agreement","不同意","width:$IETextBoxSize")."</center>".
#                        "</td>".
#                    "</tr>".
                    &Tr("","",$MenuBGColor).
                        &Td("","","2","","","","","","").
                            &PrintVersion().
                        "</td>".
                    "</tr>".
                "</table></td></tr></table>".
                "</form>";
	    &PrintTheme("$UBName - 注册新用户",$HTML);
        exit;
    }elsif (($UseRule ne "")&&($in{'Agreement'} eq "不同意")) {
        print "Location: UltraBoard.$Ext?Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}\n\n";
    }
	$HTML.=	"<p>".&Form("UltraBoard.$Ext","POST","","").
			&HiddenBox("Action","DoSignUp").
			&HiddenBox("Ref",$in{'Ref'}).
			&HiddenBox("Category",$in{'Category'}).
			&HiddenBox("Board",$in{'Board'}).
			&HiddenBox("Post",$in{'Post'}).
            &HiddenBox("Idle",$in{'Idle'}).
            &HiddenBox("Sort",$in{'Sort'}).
            &HiddenBox("Order",$in{'Order'}).
            &HiddenBox("Page",$in{'Page'}).
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>新人报道</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>用户名 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"用户名必须使用<font COLOR=red>英文字母或数字</font>，最多<font COLOR=red>26个</font>，不能有空格，大小写敏感。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_UserName","",$TextBoxSize,"26","width:$IETextBoxSize").
					"</td>".
				"</tr>".

				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>绰名 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"绰号只能输入为中文名，最多只能输入<font COLOR=red>10个汉字！</font>。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&TextBox("REG_NickName","",$TextBoxSize,"20","width:$IETextBoxSize").
					"</td>".
				"</tr>".

				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>性别 (<font color=red>*</font>)</b><br>".
						"</font>".
					"</td>".
				"</tr>".

				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&Radio("REG_Gender","male","",$Gender,checked).
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>男</b> | ".
						&Radio("REG_Gender","female","",$Gender).
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>女</b>".						
					"</td>".
				"</tr>";

	if (!$VerifyReg) {
		$HTML.=	&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>密码 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"密码必须使用<font COLOR=red>英文字母或数字</font>，最多<font COLOR=red>26个</font>，大小写敏感。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&PasswordBox("REG_Password","",$TextBoxSize,"26","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>验证密码 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"请再一次输入密码。".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","","","").
						&PasswordBox("REG_VerfiyPassword","",$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>";
	}else{
        $EmailMessage = "您的密码将通过您输入的电子邮件地址寄给您。";
    }
	$HTML.=		&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>飞鸽传书 (<font color=red>*</font>)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"请输入电子邮件地址。".$EmailMessage.
							"</font>".
						"</font>".