《../sdba/impages/QSTAT.first》檔案內容

View 《../sdba/impages/QSTAT.first》

<% 
#HEAD: Game Server Status

#Your server ip:port
$server = "199.173.50.165:27490";

#Get game from qstat settings - just run qstat from command line to see options.
#-hls is Half-Life
$game = "-hls";

$Rules = 0;

#Put full path to where you store qstat - on windows use DOUBLE backslashes \\
# linux, normal forward slashes
# get Qstat at www.qstat.org
$temp = `c:\\bots\\impages\\qstat.exe $game $server`;
if ($INCOMINGMSG eq "p"||$INCOMINGMSG eq "P"){
	$temp = `c:\\bots\\impages\\qstat.exe $game $server -P`;
}
if ($INCOMINGMSG eq "r"||$INCOMINGMSG eq "R"){
	$temp = `c:\\bots\\impages\\qstat.exe $game $server -R`;
	$Rules=1;
}
@tmp = split("\n",$temp);

#Put any header you like here
imecho "WTFO Server Status\n\n";
if ($Rules == 1){
	foreach $tmp (@tmp){
		if ($tmp =~ /,/){
			@rules = split(",",$tmp); 
			foreach $rule (@rules){
				imecho "$rule\n";
			}
		} else {
			imecho "$tmp\n";
		}
	}
} else {
	foreach $tmp (@tmp){
		imecho "$tmp\n\n";
	}
}
#Any footer you want below
%>
[P]layers, [R]ules, e[X]it