CVS update: Vanilla/robots

[Vanilla CVS Development <vanilla-devel@us.netrek.org>]

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
 .