diff options
| -rwxr-xr-x | bin/db-iris | 10 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 4 |
2 files changed, 13 insertions, 1 deletions
diff --git a/bin/db-iris b/bin/db-iris index e30dc9b..3920f53 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -92,6 +92,7 @@ for my $efield (@edata_pre) { when ('q') { $edata{qos} = 1 } when ('r') { $edata{route} = 1 } when ('t') { $edata{times} = 1 } + when ('!') { $edata{debug} = 1 } default { $edata{$efield} = 1 } } } @@ -239,6 +240,15 @@ sub display_result { } + if ( $edata{debug} ) { + if ( $d->{unk_ar_hi} ) { + say "[DEBUG] arr:hi = $d->{unk_ar_hi}"; + } + if ( $d->{unk_dp_hi} ) { + say "[DEBUG] dep:hi = $d->{unk_dp_hi}"; + } + } + if ( $edata{messages} ) { for my $message ( $d->messages ) { diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 520932a..a93a42d 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -129,6 +129,7 @@ sub add_result { $data{route_start} = $e_ar->getAttribute('pde'); $data{transfer} = $e_ar->getAttribute('tra'); $data{arrival_wings} = $e_ar->getAttribute('wings'); + $data{unk_ar_hi} = $e_ar->getAttribute('hi'); } if ($e_dp) { @@ -138,6 +139,7 @@ sub add_result { $data{route_end} = $e_dp->getAttribute('pde'); $data{transfer} = $e_dp->getAttribute('tra'); $data{departure_wings} = $e_dp->getAttribute('wings'); + $data{unk_dp_hi} = $e_dp->getAttribute('hi'); } my $result = Travel::Status::DE::IRIS::Result->new(%data); @@ -226,7 +228,7 @@ sub get_realtime { # 0 and 1 (with key "f") are related to canceled trains and # do not appear to hold information - if (defined $value and $value > 1) { + if ( defined $value and $value > 1 ) { $messages{$msgid} = [ $ts, $type, $value ]; } } |