From 21b4f2fbaeca1db2833e91853af05cf07532d38a Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Wed, 11 Jun 2008 14:16:59 +0200
Subject: [PATCH] fixed jgp parser

---
 scripts/scans.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/scans.pl b/scripts/scans.pl
index fa27b03..7eff622 100755
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -130,7 +130,8 @@ while (my $scan = $newscans->fetchrow_hashref){
 					,'planet','Production', $res) or die $dbh->errstr;
 			}
 		}elsif ($type eq 'Jumpgate'){
-			while ($file =~ m/(\d+):(\d+):(\d+)\D+"left"\>(Attack|Defend|Return)<\/td><td>([^<]*)<\/td><td>(\d+)\D+(\d+)/g){
+		#print "$file\n";
+			while ($file =~ m{(\d+):(\d+):(\d+)\D+(Attack|Defend|Return)</td><td class="left">([^<]*)\D+(\d+)\D+(\d+)}g){
 				
 				my ($sender) = $dbh->selectrow_array($findplanet,undef,$1,$2,$3,$tick) or die $dbh->errstr;
 				($sender) = $dbh->selectrow_array($findoldplanet,undef,$1,$2,$3,$tick) if ((not defined $sender) && $4 eq 'Return');
-- 
2.39.2