fixed jgp parser

diff --git a/scripts/scans.pl b/scripts/scans.pl
index fa27b0312fd1070fc4e76aea82f2b51bcdbc77e7..7eff622938190c8b66f6e5bac9a78f55f5ce04cd 100755 (executable)
--- 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');