From 10458f5b1956c234b96ac7006886ba7f0be5b9ee Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 23 May 2009 12:47:53 +0200 Subject: efa: Fixed parsing of "Fußweg" messages MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Note: Fußweg without timestamp is still unsupported, but only happens when from and to are really close --- bin/efa | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/bin/efa b/bin/efa index f601768..ae562ab 100755 --- a/bin/efa +++ b/bin/efa @@ -67,6 +67,10 @@ sub parse_content($) { for (my $i = 0; @{$raw->[$offer]} >= (($i+1) * $groupsize); $i++) { $offset = $i * $groupsize; undef(@extra); + if ($raw->[$offer]->[$offset+3] =~ /^Fußweg/) { + # Fußweg messages lack the last element, so inject it + splice(@{$raw->[$offer]}, $offset+7, 0, ''); + } for my $j (0, 4, 8) { until (not exists($raw->[$offer]->[$offset+$j]) or $raw->[$offer]->[$offset+$j] =~ /^\d+:\d+$/) { last unless (exists($raw->[$offer]->[$offset+$j])); -- cgit v1.2.3