add debug foo for ar / dp hi flag

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 ];
 			}
 		}