#!/usr/bin/perl
use FindBin '$Bin';
use lib $Bin;
use COD4;

my $server = new COD4;
$server->connect('192.168.39.4:29962');

while (1){
  print "\x1b[2J";
  print "\x1b[H";
  print "At ".localtime(time).":\n";
  my $status = $server->status;
  print $status->{sv_hostname},"\n";
  print $status->{mapname},"\n";
  print $status->{playercount},'/',$status->{sv_maxclients},"\n\n";
  print "Ping\tScore\tName\n";
  foreach my $player (@{$status->{players}}){
    print $player->{ping},"\t",$player->{score},"\t",$player->{name},"\n";
  }
  sleep 60;
}