showonline.pl

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

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

###############################################################################
# ShowOnline                                                                  #
###############################################################################
sub ShowOnline {
	$ColSpan="5";
	$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>玩家名称及ID</b>"."</font>"."</td>".
				&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前所属</b>"."</font>"."</td>".
					&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前身份</b>"."</font>"."</td>".
						&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前所在</b>"."</font>"."</td>".
							&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>已经发呆(秒)</b>"."</font>"."</td>";
	open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't open/read the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
		flock(COUNT,1) if ($FLock);
			@COUNT_DATA=&DecodeDBOutput(<COUNT>);
	close(COUNT);
	$Mark=0;
	$SystemTime=time;
	open(ONLINE,"$Online_DIRECTORY/Online.Data")||&CGIError("Couldn't open/read the $Online_DIRECTORY/Online.Data file<br>\nPath: $DBPath/UserData<br>\nReason : $!");
		flock(ONLINE,1) if ($FLock);
			@ONLINE_DATA=<ONLINE>;
	close(ONLINE);
	$#ONLINE_DATA++;
		$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$HeaderBGColor).
				&Td("","","","","CENTER","","","","").
					&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
						"<b>现在有 <font color=yellow>$#ONLINE_DATA</font> 位英雄在江湖里闯荡。</b>".
						&Td("","","","","RIGHT","","","","").
							&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
								"丐帮大会决议：此处信息<b><font color=orange>暂时免费</font></b>提供！".
							"</font>".
						"</font>".
					"</td>".
				"</td>".
			"</tr>";
		printf("<div align=center><table width=700><tr><td>");

	for($i=0;$i<$#ONLINE_DATA;$i++){
		@OnlineInfo=&DecodeDBOutput($ONLINE_DATA[$i]);
		if (-e "$MembersPath/$OnlineInfo[0].info") {
		@MemberInfo=&GetMemberData($OnlineInfo[0]);
		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 ($MemberInfo[3] eq $Group[0]) {
				$Status=$Group[1];
		       			last;
				}
			}
		close(GROUP);

		$Rank="一般";
		$ChatLevel=10;
		@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
		open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[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];
					$ChatLevel=10 - $Group[2];
	              	last;
				}
			}
		close(GROUP);

		$UserPlace="塞外大漠";
		$Bemused=0;
        open(BOARD,"$DBPath/Boards.db")||&CGIError("Couldn't open/read the Boards.db file<br>\nPath: $DBPath<br>\nReason : $!");
			flock(BOARD,1) if ($FLock);
			while (<BOARD>) {
				@Board=&DecodeDBOutput($_);
				if ($OnlineInfo[2] eq $Board[0]) {
					$UserPlace=$Board[1];
					last;
				}
			}
		close(BOARD);
		$Bemused=$SystemTime-$OnlineInfo[1];

			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			if($Mark==0){
				$Message.= &Tr("","",$HeaderTextColor);
				$Mark=1;
			}
			else{
				$Message.= &Tr("","",$MenuBGColor);
				$Mark=0;
			}
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"显示人物详细资料").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"navy").
									$Status.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"navy").
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"brown").
									$UserPlace.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$Bemused.
								"</font>".
							"</td>";
				}
			}
		$HTML.=	"</table></td></tr></table><p>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				"</tr>".
				$List.
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion("YES").
					"</td>".
				"</tr>".
			&CBTable();
		&PrintTheme("$UBName",$HTML);
	printf("</td></tr></table>");
	exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################