dojoinfaction.pl

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

###############################################################################
# DoJoinFaction.pl                                                            #
###############################################################################
# Home Ver. 1.61 by LastSun （龙追日）                                         #
# Scripts written by [e-mail]                                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : JoinFaction for UltraBoard v:1.61                            #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 30/12/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 龙追日. All Rights Reserved.                              #
###############################################################################

###############################################################################
# DoJoinFaction                                                               #
###############################################################################
sub DoJoinFaction {
	if (($Group eq "Guest")||(!$Group)) {
        print "Location: UltraBoard.$Ext?Action=SignIn&Ref=ModifyAccount&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}\n\n";
		exit;
	}
	#&ShowError("ACCOUNT CREATION ERROR","You forgot to fill the \"New Password\" field.") if (!$in{'MOD_NewPassword'});
	#&ShowError("ACCOUNT CREATION ERROR","You forgot to fill the \"Verfiy New Password\" field.") if (!$in{'MOD_VerfiyNewPassword'});

	$UserName=lc($UserName);
##############################################################################
	open(GROUP,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUP,1) if ($FLock);
		while (<GROUP>) {
		@Group=&DecodeDBOutput($_);
			if ($MemberData[3] eq $Group[0]) {
		   		$StatusUser=$Group[1];
       			last;
			}
		}
	close(GROUP);

	$Rank="一般";
	@MemberInfo23 = &DecodeDBOutput($MemberData[23]);
	open(GROUP,"$MembersPath/$MemberData[3].rank")||&CGIError("Couldn't open/read the $MemberData[3].rank file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUP,1) if ($FLock);
		while (<GROUP>) {
			@Group=&DecodeDBOutput($_);
			if ($MemberInfo23[0] eq $Group[0]) {
	           	$Rank=$Group[1];
              	last;
			}
		}
	close(GROUP);
	@MemberInfo24 = &DecodeDBOutput($MemberData[24]);
	@MemberInfo25 = &DecodeDBOutput($MemberData[25]);
##############################################################################

	if ($in{'Faction'} eq "") {
		&ShowError("参数错误！","你选择你希望提升的阶级！");
	}

	if ($MemberData[3] ne "moderator") {
		&ShowError("请等待新等级的开发！","你现在的等级已经是依靠程序所能获得等级的上限！");
	}

	if ($MemberInfo23[1]>500) {
		open(GROUP,"$MembersPath/$MemberData[3].grp")||&CGIError("Couldn't read/open the $MemberData[3].grp file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,1) if ($FLock);
				@GROUP_DATA=<GROUP>;
		close(GROUP);
		for ($i=1;$i<=$#GROUP_DATA;$i++) {
			$MemberID=$GROUP_DATA[$i];
			chomp($MemberID);
			if ($MemberData[0] eq $MemberID) {
				$GROUP_DATA[$i]="";
			}
		}
		open(GROUP,">$MembersPath/$MemberData[3].grp")||&CGIError("Couldn't create/write the $MemberData[3].grp file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,2) if ($FLock);
				print GROUP @GROUP_DATA;
			flock(GROUP,8) if ($FLock);
		close(GROUP);
		$MemberData[3]=$in{'Faction'};
		open(GROUP,">>$MembersPath/$MemberData[3].grp")||&CGIError("Couldn't write the $MemberData[3].grp file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,2) if ($FLock);
				print GROUP $MemberData[0];
				print GROUP "\n";
			flock(GROUP,8) if ($FLock);
		close(GROUP);
	}
	else{
		&ShowError("你还没有足够的经验值！","对不起，加入帮派或者升级至少需要有500Exp！请继续努力");
	}
	open(GROUP,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUP,1) if ($FLock);
		while (<GROUP>) {
		@Group=&DecodeDBOutput($_);
			if ($MemberData[3] eq $Group[0]) {
		   		$StatusUser=$Group[1];
       			last;
			}
		}
	close(GROUP);
###############################################################################
&SaveMemberData($MemberData[0],@MemberData);
###############################################################################
	&ShowThank(	"编辑个人信息",
				"恭喜你成功的加入了 <font color=red>$StatusUser</font> ！",
				"3",
				"UltraBoard.$Ext?Action=Home&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID"				
	);
	exit;
}
###############################################################################
1;# End of DoModifyAccount Function
###############################################################################