www.pudn.com > NETv2.0.rar > data_send.pl, change:2003-07-14,size:1602b

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/# 
#_/     NEW CHARA DATA 嶌惉    _/# 
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/# 
 
sub DATA_SEND { 
 
	open(IN,"$TOWN_LIST") or &ERR2("不能找开指定文件夹."); 
	@TOWN = ; 
	close(IN); 
 
	&CHARA_MAIN_OPEN; 
	&HEADER; 
 
	print <<"EOM"; 
登记完成
 
 
$kname在$GAME_TITLE登记.
ID和密码或者错误 
 
ID:$in{'id'}
 
PASS:$in{'pass'}
 
 
社会地位
 
 
名字
$in{'chara_name'}
 
国家
$cou_name
 
职业
$LANK[0]
 
初期位置
$z2name
 
武力
$in{'str'}
 
智力
$in{'int'}
 
统率力
$in{'tou'}
 
mail
$in{'mail'}
 
 
对初学者
 
 
 
 
 
 
 
对有经验的人
 
 
 
 
 
 
EOM 
 
		&FOOTER; 
 
		exit; 
} 
1;