X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=blobdiff_plain;f=scripts%2Fscans.pl;fp=scripts%2Fscans.pl;h=89dd92c787f18424fc2fe7d7994c0d2aa4aa55aa;hp=200e33f4e8a8d4c59f32b378b505322cf0af962b;hb=a482ae605a2ecb265854e6a02672524bbae2ae7a;hpb=c9c885f1465519d76dc5dd83500f8c538494faf8 diff --git a/scripts/scans.pl b/scripts/scans.pl index 200e33f..89dd92c 100755 --- 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)([^<]*)\D+(\d+)\D+(\d+)}g){ + while ($file =~ m{(\d+):(\d+):(\d+)(?::\d+)?\D+(Attack|Defend|Return)([^<]*)\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');