From: Michael Andreen <harv@ruin.nu>
Date: Wed, 11 Jun 2008 12:16:59 +0000 (+0200)
Subject: fixed jgp parser
X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=commitdiff_plain;h=21b4f2fbaeca1db2833e91853af05cf07532d38a

fixed jgp parser
---

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');