diff options
Diffstat (limited to 'lib/DBInfoscreen/Helper')
| -rw-r--r-- | lib/DBInfoscreen/Helper/HAFAS.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm index 91661a2..31615b1 100644 --- a/lib/DBInfoscreen/Helper/HAFAS.pm +++ b/lib/DBInfoscreen/Helper/HAFAS.pm @@ -186,6 +186,16 @@ sub get_xml_p { my $header = $message->getAttribute('header'); my $lead = $message->getAttribute('lead'); my $display = $message->getAttribute('display'); + + # "something is wrong, but we're not telling what" is not helpful. + # Observed on RRX lines in NRW + if ( $header + =~ m{ : \s St..?rung. \s \(Quelle: \s zuginfo.nrw \) $ }x + and not $lead ) + { + next; + } + push( @{ $ret->{messages} }, { |