#!/usr/bin/perl5

#

#  quake-mrtg.pl

# 

#  counts the number of players currently on a given

#  quake2/quakeworld/unreal/etc server, using the 'qstat' 

#  program available from: ftp://ftp.activesw.com/pub/quake/

#

#  Usage:

#   Target[quakeserv]:  `quake-mrtg.pl quake.server.com 27910 Q2`

#   

#   ^^^ Gets usage from a Q2 server running on quake.server.com, 

#       port 27910.

#

#  - joey miller, inficad communications, llc.

#    <joeym@inficad.com>, 2/5/1999

#

my($qstat) = "./qstat";

$| = 1;

if ( scalar(@ARGV) < 3 ) {

    print STDERR "usage: $0 server.address port game-type\n\n";

    print STDERR "\tgame-types: QS, QW, QWM, H2S, HWS, Q2, UNS, HLS, SNS\n";

    print STDERR "\tQW = quakeworld, Q2 = quake2, etc, etc\n";

    exit -1;

}

my($serv) = $ARGV[0];

my($port) = $ARGV[1];

my($game) = $ARGV[2];

if ( ! open(QSTAT, "$qstat -raw : -default $game $serv:$port |") ) {

    print STDERR "Couldn't exec $qstat\n";

    exit -2;

}

my($users);

while(<QSTAT>) {

    ($users) = (split(/:/))[6];

    last;

}

close(QSTAT);

print "$users\n";

print "$users\n";

print "0\n";

print "$serv:$port\n";