Vanilla Development Mailing List Archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
CVS update: Vanilla/robots
Date: Thursday July 22, 1999 @ 10:10
Author: ahn
Update of /home/netrek/cvsroot/Vanilla/robots
In directory cvs.castle.real-time.com:/var/tmp/cvs-serv14740
Modified Files:
end_tourney.pl
Log Message:
Changes submitted by Tom Holub.
****************************************
Index: Vanilla/robots/end_tourney.pl
diff -u Vanilla/robots/end_tourney.pl:1.5 Vanilla/robots/end_tourney.pl:1.6
--- Vanilla/robots/end_tourney.pl:1.5 Sun Jul 18 23:14:26 1999
+++ Vanilla/robots/end_tourney.pl Thu Jul 22 10:10:48 1999
@@ -106,19 +106,25 @@
open ( LOG,"$logfile") || die ("Could not open $logfile; $!");
while ( $line = <LOG> ) {
- next if $line !~ /^\s*\d+: INL->ALL\s+Teams are/;
- $line =~ /^\s*\d+: INL->ALL Teams are\s+(.*) \((.*)\): .*, (.*) \((.*)\)/;
- $hometeam = $1;
- $homerace = $2;
- $awayteam = $3;
- $awayrace = $4;
+ last if $line =~ /^\s*\d+: INL->ALL Teams chosen/;
+ next if $line !~ /^\s*\d+: INL->ALL\s+.*team is/;
+
+ $line =~ /^\s*\d+: INL->ALL (....) team is (.*) \((.*)\):/;
+
+ if ( $1 eq "Home" ) {
+ $hometeam = $2;
+ $homerace = $3;
+ } else {
+ $awayteam = $2;
+ $awayrace = $3;
+ }
+
if ( $debug > 1 ) {
print "$hometeam vs. $awayteam, $homerace vs. $awayrace\n";
}
- last;
}
} ### end sub parselog
@@ -215,7 +221,7 @@
# stdout on the clients
format STDOUT =
-@<<<<<<<<<<<<<<< @<<< @<<< @<<< @<<< @<<< @<<<
+@<<<<<<<<<<<<<<< @>>> @>>> @>>> @>>> @>>> @>>>
$name, $tpt, $tpd, $tab, $tek, $def, $acc
.