reset.pl

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

##############
# Reset Mode #
##############

sub RESET_MODE{

	# MAIN DATA
	$dir="./charalog/main";
	opendir(dirlist,"$dir");
	while($file = readdir(dirlist)){
		if($file =~ /\.cgi/i){
			unlink("$dir/$file");
		}
	}
	closedir(dirlist);

	# COMMAND DATA
	$dir="./charalog/command";
	opendir(dirlist,"$dir");
	while($file = readdir(dirlist)){
		if($file =~ /\.cgi/i){
			unlink("$dir/$file");
		}
	}
	closedir(dirlist);

	# LOG DATA
	$dir="./charalog/log";
	opendir(dirlist,"$dir");
	while($file = readdir(dirlist)){
		if($file =~ /\.cgi/i){
			unlink("$dir/$file");
		}
	}
	closedir(dirlist);

	# NEW DATA
	@NEW_DATA = ();

	# ACT LOG
	$actfile = "./log_file/act_log.cgi";
	open(OUT,">$actfile");
	print OUT @NEW_DATA;
	close(OUT);

	# BBS LIST
	open(OUT,">$BBS_LIST");
	print OUT @NEW_DATA;
	close(OUT);

	# COUNTRY LIST
	open(OUT,">$COUNTRY_LIST");
	print OUT @NEW_DATA;
	close(OUT);

	# COUNTRY_LIST2 LIST
	open(OUT,">$COUNTRY_LIST2");
	print OUT @NEW_DATA;
	close(OUT);

	# DATE LIST
	open(OUT,">./log_file/date_count.cgi");
	print OUT @NEW_DATA;
	close(OUT);

	# DEF LIST
	open(OUT,">$DEF_LIST");
	print OUT @NEW_DATA;
	close(OUT);

	# MAP LOG LIST
	open(OUT,">$MAP_LOG_LIST");
	print OUT @NEW_DATA;
	close(OUT);

	# MAP LOG LIST2
	open(OUT,">$MAP_LOG_LIST2");
	print OUT @NEW_DATA;
	close(OUT);

	# MESSAGE LIST
	open(OUT,">$MESSAGE_LIST");
	print OUT @NEW_DATA;
	close(OUT);

	# MESSAGE2 LIST
	open(OUT,">$MESSAGE_LIST2");
	print OUT @NEW_DATA;
	close(OUT);

	open(IN,"./log_file/f_town_data.cgi");
	@F_T_DATA = <IN>;
	close(IN);

	# TOWN LIST
	open(OUT,">$TOWN_LIST");
	print OUT @F_T_DATA;
	close(OUT);

	# TOWN2 LIST
	open(OUT,">$TOWN_LIST2");
	print OUT @F_T_DATA;
	close(OUT);

	&MAP_LOG("删出全部资料");
}
1;