mes_send.pl

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
#      儊僢僙乕僕憲怣張棟      #
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#

sub MES_SEND {

	if($in{'message'} eq "") { &ERR("没有写消息"); }
	if($in{'mes_id'} eq "") { &ERR("没有选择对方"); }
	if(length($in{'message'}) > 200) { &ERR("写信用全角100字之内"); }
	&CHARA_MAIN_OPEN;
	if($in{'mes_id'} eq "$kid") { &ERR("自己不会寄."); }
	&TOWN_DATA_OPEN($kpos);
	&COUNTRY_DATA_OPEN($kpos);

	$mes_id = $in{'mes_id'};

    &F_LOCK;
	&TIME_DATA;

	$bum = length($mes_id);

	open(IN,"$MESSAGE_LIST") or &ERR('打不开文件.');
	@MES_REG = <IN>;
	close(IN);

	if($in{'mes_id'} eq "111"){
		$jname = "$zname";
	}elsif($bum < 4){
		$jname = "$cou_name[$mes_id]国家";
	}else{
		open(IN,"./charalog/main/$in{'mes_id'}.cgi");
		@C_DATA = <IN>;
		close(IN);
		($jid,$jpass,$jname) = split(/<>/,$C_DATA[0]);
	}

	$mes_num = @MES_REG;

	if($mes_num > $MES_MAX) { pop(@MES_REG); }

	unshift(@MES_REG,"$in{'mes_id'}<>$kid<>$kpos<>$kname<>$in{'message'}<>$jname<>$daytime<>$kchara<>$kcon<>\n");

	open(OUT,">$MESSAGE_LIST") or &ERR('打不开文件.');
	print OUT @MES_REG;
	close(OUT);

	&UNLOCK_FILE();

	&HEADER;

	print <<"EOM";
<CENTER><hr size=0><h2>$jname寄信.</h2><p>
<form action="$FILE_STATUS" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=STATUS>
<input type=submit value="决定"></form></CENTER>
EOM
	&FOOTER;

	exit;

}
1;