joinfaction.pl

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

###############################################################################
# JoinFaction.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.                              #
###############################################################################

###############################################################################
# JoinFaction                                                                 #
###############################################################################
sub JoinFaction {
	if ($DisplayFront eq "") {
		print "Location: $URLSite\n\n";
		exit;
	}
	my ($HTML, $Menu, $List);
	$HTML.="<p>".&Form("UltraBoard.$Ext","POST","","").
				&HiddenBox("Action","DoJoinFaction").
				&HiddenBox("Session",$SessionID);
###############################################################################
	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]);
###############################################################################
	$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$CategoryBGColor).
				&Td("","","2","","","","","","").
					&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
						"<b>你想加入的帮派（需要有500以上Exp）</b><br>".
					"</font>".
				"</td>".
			"</tr></table>".
	&Tr("","",$RowOddBGColor).
		&Td("","","2","","","","","","");
		open(FACTION,"$Faction_DIRECTORY/FactionClass.Data")||&CGIError("Couldn't open/read the FactionClass.Data file<br>\nPath: $Faction_DIRECTORY<br>\nReason : $!");
			flock(FACTION,1) if ($FLock);
				@FACDATA=<FACTION>;
		close(FACTION);
		for (my ($i)=1;$i<=$#FACDATA;$i++) {
			@FAC_DATA=&DecodeDBOutput($FACDATA[$i]);
			$HTML.= 	&Radio("Faction",$FAC_DATA[0],"",$Faction).
							&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
								" <b>$FAC_DATA[1]</b> | ";
		}
	$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$CategoryBGColor).
				&Td("","","2","","","","","","").
					&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
						"<b>你想升级成为的称号（需要有500以上Exp）</b><br>".
					"</font>".
				"</td>".
			"</tr></table>".
	&Tr("","",$RowOddBGColor).
		&Td("","","2","","","","","","");
		open(FACTION,"$Faction_DIRECTORY/HighClass.Data")||&CGIError("Couldn't open/read the HighClass.Data file<br>\nPath: $Faction_DIRECTORY<br>\nReason : $!");
			flock(FACTION,1) if ($FLock);
				@FACDATA=<FACTION>;
		close(FACTION);
		for (my ($i)=1;$i<=$#FACDATA;$i++) {
			@FAC_DATA=&DecodeDBOutput($FACDATA[$i]);
			$HTML.= 	&Radio("Faction",$FAC_DATA[0],"",$Faction).
							&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
								" <b>$FAC_DATA[1]</b> | ";
		}
###############################################################################
	$HTML.=	&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				$List.
				"</tr></table></table>".
				$USERINFO.
	            &Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						"<center>".&Submit("","确 定 加 入","width:$IETextBoxSize")."</center>".
					"</td>".
				"</tr>".
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion().
					"</td>".
				"</tr>".
			&CBTable();
	&PrintTheme("$UBName",$HTML);
	exit;
}
###############################################################################
1;# End of Main Function
###############################################################################