dosendmessage.pl

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

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

###############################################################################
# DoSendMessage                                                               #
###############################################################################
sub DoSendMessage {
	$MessageSize="1000";
	&ShowError("不能发送消息","必须输入对方用户名！") if (!$in{'SendTo_UserName'});
	&ShowError("不能发送消息","您的消息内容不能多于 $MessageSize 个字符。") if (length($in{'Send_Message'})>$MessageSize);

	$in{'SendTo_UserName'}=lc($in{'SendTo_UserName'});
	&ShowError("不能发送消息","用户名不存在。") if (!(-e "$MembersPath/$in{'SendTo_UserName'}.info"));
###############################################################################
	$MessageTime = time;
	$MessageData=$in{'Send_Message'};
	if (!(-e "$CALL_DIRECTORY/$in{'SendTo_UserName'}.call")){
		open(CALL,">$CALL_DIRECTORY/$in{'SendTo_UserName'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'SendTo_UserName'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
			flock(CALL,2) if ($FLock);
				print CALL &EncodeHTML($MessageData.$Spliter.$MessageTime.$Spliter.$UserName);
				print CALL "\n";
			flock(CALL,8) if ($FLock);
		close(COUNT);
		chmod 0666,"$CALL_DIRECTORY/$in{'SendTo_UserName'}.call";
	}
	else{
		open(CALL,"$CALL_DIRECTORY/$in{'SendTo_UserName'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'SendTo_UserName'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
			flock(CALL,1) if ($FLock);
			@CALL_DATA=<CALL>;
		close(CALL);
		if($#CALL_DATA==9){
			for ($i=1;$i<=9;$i++) {
				$CALL_DATA[$i-1]=$CALL_DATA[$i];
			}
			$CALL_DATA[9]=&EncodeHTML($MessageData.$Spliter.$MessageTime.$Spliter.$UserName);
			open(CALL,">$CALL_DIRECTORY/$in{'SendTo_UserName'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'SendTo_UserName'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
				flock(CALL,2) if ($FLock);
					print CALL @CALL_DATA;
					print CALL "\n";
				flock(CALL,8) if ($FLock);
			close(COUNT);
			$#CALL_DATA--;
		}
		else{
			open(CALL,">>$CALL_DIRECTORY/$in{'SendTo_UserName'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'SendTo_UserName'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
				flock(CALL,2) if ($FLock);
					print CALL &EncodeHTML($MessageData.$Spliter.$MessageTime.$Spliter.$UserName);
					print CALL "\n";
				flock(CALL,8) if ($FLock);
			close(COUNT);
		}
	}
	@ToMemberData=&GetMemberData($in{'SendTo_UserName'});
	$ToMemberData[21]=$#CALL_DATA+2;
	&SaveMemberData($in{'SendTo_UserName'},@ToMemberData);
###############################################################################
	&ShowThank(	"消息发送成功",
				"<span style=\"letter-spacing: 4\"><font color=red>谢谢你制造谣言！</font><br>又一谣言产生了，江湖的传奇故事将因此而改变……</span>$Message",
				"3",
				"UltraBoard.$Ext?Action=ShowMessage&ID=$MemberData[0]&Board=$in{'Board'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&Session=$SessionID","Profile","",
	);
	exit;
}
###############################################################################
1;# End of DoSendMessage Function
###############################################################################