Annotation of /t2stats/qstatconv

#!/usr/bin/perl

$datetime = `date -u '+%Y%m%d/%H%M'`;
chomp $datetime;

$/ = '';
$sep = '\\\\';

while ($server = <>) {
        chomp $server;
        @data = split /\n/, $server;
        ($type, $ip, $name, $map, $maxplayers, $players, $ping, $tries)
                                                        = split /$sep/, $data[0];
        next if $type ne 'T2S';
        next if $name eq 'TIMEOUT' or $name eq 'DOWN';
        next if $map eq '?';
        %detail = ('bot_count' => 0, 'game' => '?', 'mission' => '?');
        foreach $detail (split /$sep/, $data[1]) {
                ($key, $value) = split /=/, $detail, 2;
                $detail{$key} = $value;
        }
        $players -= $detail{'bot_count'};

        print "$datetime\t$detail{'game'}\t$detail{'mission'}\t$map\t$maxplayers\t$players\n";
}

1	james	3	#!/usr/bin/perl
2
3			$datetime = `date -u '+%Y%m%d/%H%M'`;
4			chomp $datetime;
5
6			$/ = '';
7			$sep = '\\\\';
8
9			while ($server = <>) {
10			chomp $server;
11			@data = split /\n/, $server;
12			($type, $ip, $name, $map, $maxplayers, $players, $ping, $tries)
13			= split /$sep/, $data[0];
14			next if $type ne 'T2S';
15			next if $name eq 'TIMEOUT' or $name eq 'DOWN';
16			next if $map eq '?';
17			%detail = ('bot_count' => 0, 'game' => '?', 'mission' => '?');
18			foreach $detail (split /$sep/, $data[1]) {
19			($key, $value) = split /=/, $detail, 2;
20			$detail{$key} = $value;
21			}
22			$players -= $detail{'bot_count'};
23
24			print "$datetime\t$detail{'game'}\t$detail{'mission'}\t$map\t$maxplayers\t$players\n";
25			}
26