dosignup.pl

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

	}
	&SaveMemberData($in{'REG_UserName'},
					$in{'REG_UserName'},
					$in{'REG_NickName'},
					$NewPassword,
					$DefaultGroup,
					$in{'REG_Email'},
					"0",
					$Status,
					"N/A",
					$in{'REG_HomePage'},
					&RemoveCensorWords($in{'REG_Location'}),
					$in{'REG_Age'},
					&RemoveCensorWords($in{'REG_Occupation'}),
					&RemoveCensorWords($in{'REG_Interests'}),
					$in{'REG_ICQ'},
					&RemoveCensorWords($in{'REG_Comments'}),
					&RemoveCensorWords($in{'REG_Signature'}),
					$RegTime,
					$in{'REG_ShowEmail'},
					"0",
					"/vrcdata/UserImages/Default",
					$IP,
					"1",
					$in{'REG_Gender'},
					"public".$Spliter."0",
					"20".$Spliter."20".$Spliter."20".$Spliter."20".$Spliter."5",
					"80".$Spliter."80".$Spliter."100".$Spliter."100".$Spliter."100".$Spliter."100".$Spliter."160".$Spliter."200"
	);
	open(CALL,">$CALL_DIRECTORY/$in{'REG_UserName'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'SendTo_UserName'}.call file<br>\nPath: $CALL_DIRECTORY<br>\nReason : $!");
		flock(CALL,2) if ($FLock);
			print CALL &EncodeHTML("欢迎来到虚拟社区！".$Spliter.$RegTime.$Spliter."lastsun");
			print CALL "\n";
		flock(CALL,8) if ($FLock);
	close(COUNT);
	chmod 0666,"$MembersPath/$in{'REG_UserName'}.info";
	chmod 0666,"$CALL_DIRECTORY/$in{'REG_UserName'}.call";
###############################################################################
	if ($ViewRegister) {
		open(DB,">>$MembersPath/Members.rev")||&CGIError("Couldn't write the Members.rev file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(DB,2) if ($FLock);
			print DB $in{'REG_UserName'}."\n";
			flock(DB,8) if ($FLock);
		close(DB);
		my ($Subject) = "龙翔资讯—笑傲江湖虚拟社区—新用户注册----$UBName";
		my ($Message) = "您好，\n";
			$Message .= "新用户 ($in{'REG_UserName'}) 已经注册，注册时间 ".&GetDate($RegTime)."\n";
			$Message .= "请您验证此用户，登录地址\n";
			$Message .= "$URLCGI/UBAdmin.$Ext\n\n";
			$Message .= "以下是你的注册信息:\n";
			$Message .= "----------------------------------------\n";
			$Message .= "用户名: $in{'REG_UserName'}\n";
			$Message .= "绰名: $in{'REG_NickName'}\n";
			$Message .= "飞鸽传书: $in{'REG_Email'}\n";
			$Message .= "拜帖: $in{'REG_HomePage'}\n";
			$Message .= "ICQ: $in{'REG_ICQ'}\n";
			$Message .= "年龄: $in{'REG_Age'}\n";
			$Message .= "住址: ".&RemoveCensorWords($in{'REG_Location'})."\n";
			$Message .= "职业: ".&RemoveCensorWords($in{'REG_Occupation'})."\n";
			$Message .= "爱好: ".&RemoveCensorWords($in{'REG_Interests'})."\n";
			$Message .= "江湖履历:\n".&RemoveCensorWords($in{'REG_Comments'})."\n";
			$Message .= "----------------------------------------\n";
			$Message .= "$UBName Administrator Center\n";
		&SendMail($EmailAddress,$Subject,$Message,$EmailAddress);
	}else{
		my ($Subject, $Message);
		if ($NotifyRegister) {
			$Subject = "龙翔资讯—笑傲江湖虚拟社区—新用户注册—----$UBName";
			$Message .= "您好，\n";
			$Message .= "新用户 ($in{'REG_UserName'}) 已经注册，注册时间 ".&GetDate($RegTime)."\n";
			$Message .= "以下是你的注册信息:\n";
			$Message .= "----------------------------------------\n";
			$Message .= "用户名: $in{'REG_UserName'}\n";
			$Message .= "绰名: $in{'REG_NickName'}\n";
			$Message .= "飞鸽传书: $in{'REG_Email'}\n";
			$Message .= "拜帖: $in{'REG_HomePage'}\n";
			$Message .= "ICQ: $in{'REG_ICQ'}\n";
			$Message .= "年龄: $in{'REG_Age'}\n";
			$Message .= "住址: ".&RemoveCensorWords($in{'REG_Location'})."\n";
			$Message .= "职业: ".&RemoveCensorWords($in{'REG_Occupation'})."\n";
			$Message .= "爱好: ".&RemoveCensorWords($in{'REG_Interests'})."\n";
			$Message .= "江湖履历:\n".&RemoveCensorWords($in{'REG_Comments'})."\n";
			$Message .= "----------------------------------------\n";
			$Message .= "$UBName Administrator Center\n";
			&SendMail($EmailAddress,$Subject,$Message,$EmailAddress);
		}
		if ($VerifyReg) {
			$Subject = "龙翔资讯—笑傲江湖虚拟社区—新用户注册—----$UBName ($URLSite)";
			$Message = "您好, $in{'REG_NickName'}\n\n";
			$Message .= "下面是您的注册信息:\n";
			$Message .= "------------------------------------\n";
			$Message .= "用户名: $in{'REG_UserName'}\n";
			$Message .= "密码: $in{'REG_Password'}\n";	
			$Message .= "------------------------------------\n";
			$Message .= "感谢您在我们的 $UBName 注册，欢迎您经常光临本站,\n";
			$Message .= "WebMaster, $UBName\n";
			$Message .= "$EmailAddress\n";
			$Message .= "$URLSite\n";
			$Message .= "------------------------------------\n";
			$Message .= "$UBName Administrator Center\n";
			&SendMail($EmailAddress,$Subject,$Message,$in{'REG_Email'});
		}
	}
###############################################################################
	if ($VerifyReg or $ViewRegister) {
		$in{'REG_Password'}="";
	}
	if (($in{'REG_Remember'})&&($in{'REG_Idle'} eq "default")) {
		print &CookiesHeader(time+31536000,"UserName",$in{'REG_UserName'},"Password",$in{'REG_Password'},"Idle","","Order","","Sort","");
	}elsif (($in{'REG_Remember'})&&($in{'REG_Idle'} ne "default")) {
		print &CookiesHeader(time+31536000,"UserName",$in{'REG_UserName'},"Password",$in{'REG_Password'},"Idle",$in{'REG_Idle'},"Order",$in{'REG_Order'},"Sort",$in{'REG_Sort'});
	}elsif ($in{'REG_Remember'}) {
		print &CookiesHeader(time+31536000,"UserName",$in{'REG_UserName'},"Password",$in{'REG_Password'});
	}elsif ($in{'REG_Idle'} eq "default") {
		print &CookiesHeader(time+31536000,"Idle","","Order","","Sort","");
	}elsif ($in{'REG_Idle'} ne "default") {
		print &CookiesHeader(time+31536000,"Idle",$in{'REG_Idle'},"Order",$in{'REG_Order'},"Sort",$in{'REG_Sort'});
	}
	if ($VerifyReg and $ViewRegister) {
		$Message=" 感谢您的注册，经过我们的管理员验证后，您将收到一个随机密码，请用它登录到论坛更改。";
	}elsif ($VerifyReg) {
		$Message=" 您将在24小时内收到您的密码，如果您没有收到的话请与 龙追日 (".&Link("mailto:$EmailAddress","","").$EmailAddress.&CLink().") 联系。";
	}elsif ($ViewRegister) {
		$Message=" 感谢您的注册，经过我们的管理员验证后，您将收到通知邮件。";
	}
	&ShowThank(	"用户建立成功",
				"<span style=\"letter-spacing: 4\"><font color=red>恭喜您成为新一代的江湖人士！</font><br>又一位携带着憧憬之梦的人踏上了江湖路，江湖的传奇故事将因此而改变……</span>$Message",
				"5",
				"UltraBoard.$Ext?Action=$in{'Ref'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}"				
	);
	exit;
}
###############################################################################
1;# End of DoSignUp Function
###############################################################################