From aee4364ac18d6ec1c7ba9e225423ea46aafdeee7 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Thu, 1 Feb 2007 15:17:56 +0000 Subject: [PATCH] better parsing --- ND/Web/Pages/LaunchConfirmation.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ND/Web/Pages/LaunchConfirmation.pm b/ND/Web/Pages/LaunchConfirmation.pm index 0842b32..dda401e 100644 --- a/ND/Web/Pages/LaunchConfirmation.pm +++ b/ND/Web/Pages/LaunchConfirmation.pm @@ -62,8 +62,9 @@ sub render_body { } my @missions; $DBH->begin_work; - while ($missions =~ m/\S+\s+(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)\s+\((?:(\d+)\+)?(\d+)\).*?(?:\d+hrs\s+)?\d+mins\s+(Attack|Defend|Return|Fake Attack|Fake Defend)(.*?)(?:Launching in tick (\d+), arrival in tick (\d+)|ETA: \d+, Return ETA: (\d+))/sg){ + while ($missions =~ m/\S+\s+(\d+):(\d+):(\d+)\s+(\d+):(\d+):(\d+)\s+\((?:(\d+)\+)?(\d+)\).*?(?:\d+hrs\s+)?\d+mins\s+(Attack|Defend|Return|Fake Attack|Fake Defend)(.*?)(?:Launching in tick (\d+), arrival in tick (\d+)|ETA: \d+, Return ETA: (\d+)|Return ETA: (\d+))/sg){ my %mission; + next if $9 eq 'Return'; my $tick = $self->{TICK}+$8; $tick += $7 if defined $7; -- 2.39.2