country_write.pl

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

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
#_/       夛媍幒彂偒崬傒     _/#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#

sub COUNTRY_WRITE{

	&CHARA_MAIN_OPEN;
	&TIME_DATA;
	&HOST_NAME;
	&COUNTRY_DATA_OPEN("$kcon");

	if($xcid eq "0"){&ERR("无国家不能使用");}
	if(length($in{'title'}) > 40 || length($in{'ins'}) > 1000) { &ERR("请传达简单的话"); }

	if(($in{'title'} eq "" && $in{'b_no'} eq "")|| $in{'ins'} eq "") { &ERR("没有写消息."); }

	if($lockkey) { &F_LOCK; }
	open(IN,"$BBS_LIST") or &ERR2('不能打开文件.err no :country');
	@BBS_DATA = <IN>;
	close(IN);

	$bbs_num = @BBS_DATA;
	if($bbs_num > $MES_MAX) { pop(@BBS_DATA); }

	$numm = int($kclass / $LANK);
	if($numm>20){$numm = 20;}
	$bbname = "<B>$kname更新</B> LANK「$LANK[$numm]」\[$xname国家\]";
	if($in{"type"} eq "all"){$bbtype = 1;$back = "COUNTRY_ALL_TALK"}else{$bbtype = 0;$back = "COUNTRY_TALK"}

	($lbbid,$lbbtitle,$lbbmes,$lbbcharaimg,$lbbname,$lbbhost,$lbbtime,$lbbele,$lbbcon,$lbbtype,$lbbno,$lbbheap)=split(/<>/,$BBS_DATA[0]);

	$bno = $lbbno + 1;

	if($in{'b_no'} ne ""){
		$b_heap = $in{'b_no'};
	}else{
		$b_heap = 0;
	}
	unshift(@BBS_DATA,"$kid<>$in{'title'}<>$in{'ins'}<>$kchara<>$bbname<>$host<>$daytime<>$xele<>$kcon<>$bbtype<>$bno<>$b_heap<>\n");

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

	if (-e $lockfile) { unlink($lockfile); }
	&HEADER;
	print <<"EOM";
<CENTER><hr size=0><h2>会议室</h2><p>

<form action="./mydata.cgi" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=$back>
<input type=submit value="决定"></form></CENTER>
EOM
	&FOOTER;
	exit;
	
}
1;