www.pudn.com > NETv2.0.rar > get_man2.pl

#_/_/_/_/_/_/_/_/_/_/# 
#        搊梡俀      # 
#_/_/_/_/_/_/_/_/_/_/# 
 
sub GET_MAN2 { 
 
	if($in{'no'} eq ""){&ERR("NO:没有选择");} 
	if($in{'num'} eq ""){&ERR("没有选择对方");} 
	if(length($in{'mes'}) > 120) { &ERR("信，请用全身 60 文字以下输入."); } 
 
	&CHARA_MAIN_OPEN; 
	&COUNTRY_DATA_OPEN($kcon); 
	if($kgold < 100){&ERR("钱不够");} 
 
	$num = $in{'num'}; 
	$hit=0; 
 
	open(IN,"./charalog/main/$num\.cgi") or &ERR('不用任用'); 
	@E_DATA = ; 
	close(IN); 
	($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$E_DATA[0]); 
 
 
	open(IN,"./charalog/command/$kid.cgi"); 
	@COM_DATA = ; 
	close(IN); 
 
	$mes_num = @COM_DATA; 
 
	if($mes_num > $MAX_COM) { pop(@COM_DATA); } 
 
	$add_mes = "$xname国家的使者"; 
 
	@NEW_COM_DATA=();$i=0; 
	if($in{'no'} eq "all"){ 
		while(@NEW_COM_DATA < $MAX_COM){ 
				push(@NEW_COM_DATA,"$in{'mode'}<>$ename<>$ename提拔任用<>9999<>$add_mes:$in{'mes'}<>$in{'num'}<>$kcon<>\n"); 
		} 
		$no = $in{'no'}; 
	}else{ 
		foreach(@COM_DATA){ 
			($cid,$cno,$cname,$ctime,$csub,$cnum,$cend) = split(/<>/); 
			if($i eq $in{'no'}){ 
				push(@NEW_COM_DATA,"$in{'mode'}<>$ename<>$ename提拔任用<>9999<>$add_mes:$in{'mes'}<>$in{'num'}<>$kcon<>\n"); 
			}else{ 
				push(@NEW_COM_DATA,"$_"); 
			} 
			$i++; 
		} 
		$no = $in{'no'} + 1; 
	} 
	open(OUT,">./charalog/command/$kid.cgi") or &ERR('打不开文件'); 
	print OUT @NEW_COM_DATA; 
	close(OUT); 
 
	&HEADER; 
 
	print <<"EOM"; 
NO:$no在$ename任用
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
 
	exit; 
 
} 
1;