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

###############################################################################
# ShowMessage                                                                 #
###############################################################################
sub ShowOther {
	if ($in{'Function'} eq "UserRumor") {
		open(USERRUMOR,"$Shop_DIRECTORY/BeggarData/UserRumor.Data")||&CGIError("Couldn't open/read the UserRumor.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(USERRUMOR,1) if ($FLock);
				@USERRUMOR_DATA=<USERRUMOR>;
		close(USERRUMOR);
		open(CATEGORY,"$DBPath/$in{'Category'}.cat")||&CGIError("Couldn't open/read the $in{'Category'}.cat file<br>\nPath: $DBPath<br>\nReason : $!");
			flock(CATEGORY,1) if ($FLock);
				@CATEGORY_DATA=<CATEGORY>;
		close(CATEGORY);
		@CATEGORY_INFO=&DecodeDBOutput($CATEGORY_DATA[0]);
		for ($i=1;$i<=$#CATEGORY_DATA;$i++) {
			@CATEGORY_THIS=&DecodeDBOutput($CATEGORY_DATA[$i]);
			if ($CATEGORY_THIS[0] eq $in{'Function'}) {
				$Title_This  =$CATEGORY_THIS[1];
				$Message_This=$CATEGORY_THIS[2];
				last;
			}
		}
		$ColSpan="5";
		$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>场景名称</b>"."</font>"."</td>".
					&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>场景所属</b>"."</font>"."</td>".
						&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<center><b>江湖事件</b></center>"."</font>"."</td>".
							&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<center><b>需要费用</b></center>"."</font>"."</td>".
								&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>其它说明</b>"."</font>"."</td>";
		for (my ($i)=1;$i<=$#USERRUMOR_DATA;$i++) {
			@RUMOR_DATA=&DecodeDBOutput($USERRUMOR_DATA[$i]);
			if ($RUMOR_DATA[5] eq "Active") {
			$OtherStatus="特殊区域";
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("20","","","","","","","","").
										$Shop_Image.
									"</td>".
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=DoUserRumor&Function=$RUMOR_DATA[0]&Category=$in{'Category'}&Session=$SessionID","","",
												"$OtherStatus").
												"<b>".$RUMOR_DATA[1]."</b>".
											"</a>".													
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>".
						&Td("","","","","","","",$ColumnEvenBGColor,"").
						&Font($FontFace,$TextSize,$TextColor);
						if ($RUMOR_DATA[4]) {
							open(GROUP,"$MembersPath/$RUMOR_DATA[4].grp")||&CGIError("Couldn't open/read the $RUMOR_DATA[4].grp file<br>\nPath: $MembersPath<br>\nReason : $!");
								flock(GROUP,1) if ($FLock);
									@GROUP_DATA=<GROUP>;
							close(GROUP);
							@GroupInfo=&DecodeDBOutput($GROUP_DATA[0]);
							$List.=	$GroupInfo[1];
						}else{
							$List.=	"N/A";
						}			
					$List.=		"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									"<center>".$RUMOR_DATA[3]."</center>".
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									"<center>".$RUMOR_DATA[6]."（VRM）"."</center>".
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$RUMOR_DATA[7].
								"</font>".
							"</td>";
					if (($DisplayBoardDes)&&($RUMOR_DATA[2])) {
						$List.=	&Tr("","",$RowEvenBGColor).
									&Td("","",$ColSpan,"","","","","","").
								        &Font($FontFace,$BoardDesTextSize,$TextColor).
											$RUMOR_DATA[2].
										"</font>".
									"</td>".
								"</tr>";
			        }
				}
			}

		$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$CategoryBGColor).
					&Td("","","","","","","","","").
						"<span style=font:9pt>你现在的位置：</span>".
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
						&Link("UltraBoard.$Ext?Session=$SessionID","","").
							"<font color=black><u>江湖入口</u>".
						"</a>";
		if ($UseCategory) {
			$HTML.=	" -=> ".
						&Link("UltraBoard.$Ext?Action=ShowCategory&Category=$CATEGORY_INFO[0]&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID","","",
							"显示 ($CategoryInfo[1]) 讨论区域").
							"<font color=black><u>$CATEGORY_INFO[1]</u>".
						"</a>";
		}
			$HTML.=		" -=> ".
							"<font color=blue>".$Title_This.
							"</font>".
						"</td>".
					"</tr>";
		if ($Message_This ne "") {
			$HTML.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","","","").
							&Font($FontFace,$CategoryDesTextSize,$CategoryTextColor).
								$Message_This.
							"</font>".
						"</td>".
					"</tr>";
		}
		$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);
	}
#	&ShowError("艰苦建设中！","请各位关注并提供宝贵的意见！");
	exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################