doremovemessage.pl

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

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

###############################################################################
# DoRemoveMessage                                                             #
###############################################################################
sub DoRemoveMessage {
	$in{'ID'}=lc($in{'ID'});
	open(CALL,"$CALL_DIRECTORY/$in{'ID'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'ID'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
		flock(CALL,1) if ($FLock);
			@CALL_DATA=<CALL>;
	close(CALL);
	$#CALL_DATA=0 if ($in{'Number'} eq "all");
	if ($#CALL_DATA == 0) {
		unlink ("$CALL_DIRECTORY/$in{'ID'}.call");
	}
	else{
		for ($i=$in{'Number'};$i<=$#CALL_DATA;$i++){
			if ($i==9){
				$CALL_DATA[9]="";
			}
			else{
				if ($CALL_DATA[$i]) {
					$CALL_DATA[$i]=$CALL_DATA[$i+1];
				}
			}
		}
		open(CALL,">$CALL_DIRECTORY/$in{'ID'}.call")||&CGIError("Couldn't create/write the $CALL_DIRECTORY/$in{'ID'}.call file<br>\nPath: $CALL_DIRECTORY/$in{'Board'}<br>\nReason : $!");
			flock(CALL,2) if ($FLock);
				print CALL @CALL_DATA;
			flock(CALL,8) if ($FLock);
		close(COUNT);
	}
	@ToMemberData=&GetMemberData($in{'ID'});
	$ToMemberData[21]=$#CALL_DATA;
	&SaveMemberData($in{'ID'},@ToMemberData);

###############################################################################
	&ShowThank(	"删除信息成功",
				"删除此信息成功。\n",
				"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","","",
		);
	exit;
}
###############################################################################
1;# End of DoRemoveMessages Function
###############################################################################