Workaround for the hidden 4th dimension

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 200e33f4e8a8d4c59f32b378b505322cf0af962b..89dd92c787f18424fc2fe7d7994c0d2aa4aa55aa 100755 (executable)
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -113,7 +113,7 @@ sub parse_jumpgate {
        my ($scan,$file) = @_;
 
        $file =~ s/,//g;
-       while ($file =~ m{(\d+):(\d+):(\d+)\D+(Attack|Defend|Return)</td><td class="left">([^<]*)\D+(\d+)\D+(\d+)}g){
+       while ($file =~ m{(\d+):(\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,$scan->{tick});
                ($sender) = $dbh->selectrow_array($findoldplanet,undef,$1,$2,$3,$scan->{tick})
                        if ((not defined $sender) && $4 eq 'Return');