📄 showmessage.pl
字号:
###############################################################################
# ShowMessage.pl #
###############################################################################
# ShowMessage Ver. 1.61 by LastSun （龙追日） #
# Scripts written by lastsun@netease.com #
# --------------------------------------------------------------------------- #
# 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 ShowMessage {
$NewMessage ="<img src=/vrcdata/Images/NewMessage.gif border=0>";
$imgRCall ="<img src=/vrcdata/Images/RMessage.gif border=0><span style=\"font:9pt\"><font color=7E7E03>立即回 Call</font></span>";
$imgMoveCall ="<img src=/vrcdata/Images/RemoveMessage.gif border=0><span style=\"font:9pt\"><font color=7E7E03>删除本条信息</font></span>";
$imgCallEmail ="<img src=/vrcdata/Images/Mail.gif border=0><span style=\"font:9pt\"><font color=7E7E03>给他发送电子邮件</font></span>";
###############################################################################
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]) {
$Status=$Group[1];
last;
}
}
close(GROUP);
$Rank="";
($MemberInfo23[0], $MemberInfo23[1]) = split(/\|\^\|/, $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);
$HTML.= "<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
&Tr("","",$HeaderBGColor).
&Td("","","","","","","","","").
&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
"<b>$Status$Rank（$MemberData[1]）你的社区Call机上现有 <font color=yellow>$MemberData[21]</font> 条信息</b>".
"</font>";
if (-e "$CALL_DIRECTORY/$MemberData[0].call"){
$HTML.= &Td("","","","","RIGHT","","","","").
&Link("UltraBoard.$Ext?Action=DoRemoveMessage&Number=all&ID=$MemberData[0]&Board=$in{'Board'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID","","",
"删除全部信息").
$imgRemoveThread."<font color=black>"."全部信息"."</font>".
"</a>".
"</td>";
}
$HTML.= "</td>".
"</tr>".
&CBTable();
&PrintTheme("$UBName",$HTML);
printf("<div align=center><table width=700><tr><td>");
if (!(-e "$CALL_DIRECTORY/$MemberData[0].call")){
exit;
}
chmod 0666,"$CALL_DIRECTORY/$MemberData[0].call";
open(MESSAGE,"$CALL_DIRECTORY/$MemberData[0].call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$MemberData[0].call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
flock(MESSAGE,1) if ($FLock);
@MESSAGE_DATA=<MESSAGE>;
close(MESSAGE);
for ($i=0;$i<=$#MESSAGE_DATA;$i++) {
@MessageInfo=&DecodeDBOutput($MESSAGE_DATA[$i]);
$MessageDoc=&DecodeHTML(&EncodeUBCodes(&RemoveUBCodes(&RemoveUBCodes($MessageInfo[0]))));
$MessageTime=$MessageInfo[1];
$MessageFrom=$MessageInfo[2];
if ($MessageInfo[2]) {
@MemberInfo=&GetMemberData($MessageInfo[2]);
}
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="";
($MemberInfo23[0], $MemberInfo23[1]) = split(/\|\^\|/, $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];
last;
}
}
close(GROUP);
$OnlineMessage="<font color=purple> 断线中！</font>";
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 ($ONLINE);
while (<ONLINE>){
@Online=&DecodeDBOutput($_);
if ($MemberInfo[0] eq $Online[0]){
$OnlineMessage="<font color=blue> 在线中！</font>";
last;
}
}
close(ONLINE);
if ($MemberInfo[22] eq "male"){
$GenderColor="<font color=smalt>";
}
elsif ($MemberInfo[22] eq "female"){
$GenderColor="<font color=claret>";
}
elsif (!($MemberInfo[22])){
$GenderColor="<font color=blue>";
}
$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>".
&Tr("","",$CategoryBGColor).
&Td("","","","","","","","","").
&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
$NewMessage.
"（<font color=navy>".
&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Board=$in{'Board'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID","Profile","",
"显示 $MemberInfo[1] ($MemberInfo[0]) 的个人信息").
"$Status"."$Rank".
"</font><font color=red>*</font>".
"$GenderColor".
"$MemberInfo[1]".
"</font></a>）".
"<font color=purple>".
"$OnlineMessage".
"</font></a>"."于 ".
&GetDate($MessageTime,$TextColor,$TextColor,$TextSize,$TextSize)." ".
"发送给你的信息：".
"</font>".
"</td>".
"</tr>".
&Tr("","",$RowOddBGColor).
"<td height=80>".
&Font($FontFace,$TextSize,$TextColor).
"<span style=\"letter-spacing: 4\">$MessageDoc</span>".
"</font>".
"</td>".
"</tr>".
$Message.= &Tr("","",$MenuBGColor).
&Td("","","","","","","","","").
&Font($FontFace,$TextSize,$TextColor).
&Link("UltraBoard.pl?Action=SendMessage&ReName=$MessageFrom&Ref=$in{'Action'}&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","","",
"立即回Call他 ($MessageFrom)").
"$imgRCall".
"</a>".
$imgSperater.&Link("UltraBoard.$Ext?Action=DoRemoveMessage&Number=$i&ID=$MemberData[0]&Board=$in{'Board'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID","","",
"删除本条信息").
$imgMoveCall.
"</a>".
$imgSperater.&Link("mailto:$MemberInfo[4]","","","给 $MemberInfo[1] 发送电子邮件").
$imgCallEmail.
"</a>".
"</td>".
"</tr><table height=30><tr><td></td></tr></table>";
printf($Message);
$Message="";
}
printf("</td></tr></table>");
exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -