Commit d13e9426 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add debug foo for ar / dp hi flag

parent 380e2f0e

bin/db-iris

+10 −0
Original line number Original line Diff line number Diff line
@@ -92,6 +92,7 @@ for my $efield (@edata_pre) { 
		when ('q') { $edata{qos}        = 1 }

		when ('q') { $edata{qos}        = 1 }

		when ('r') { $edata{route}      = 1 }

		when ('r') { $edata{route}      = 1 }

		when ('t') { $edata{times}      = 1 }

		when ('t') { $edata{times}      = 1 }

		when ('!') { $edata{debug}      = 1 }

		default    { $edata{$efield}    = 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} ) {

		if ( $edata{messages} ) {

			for my $message ( $d->messages ) {

			for my $message ( $d->messages ) {

lib/Travel/Status/DE/IRIS.pm

+3 −1
Original line number Original line Diff line number Diff line
@@ -129,6 +129,7 @@ sub add_result { 
		$data{route_start} = $e_ar->getAttribute('pde');

		$data{route_start} = $e_ar->getAttribute('pde');

		$data{transfer}    = $e_ar->getAttribute('tra');

		$data{transfer}    = $e_ar->getAttribute('tra');

		$data{arrival_wings} = $e_ar->getAttribute('wings');

		$data{arrival_wings} = $e_ar->getAttribute('wings');

		$data{unk_ar_hi}     = $e_ar->getAttribute('hi');

	}

	}





	if ($e_dp) {

	if ($e_dp) {
@@ -138,6 +139,7 @@ sub add_result { 
		$data{route_end}    = $e_dp->getAttribute('pde');

		$data{route_end}    = $e_dp->getAttribute('pde');

		$data{transfer}     = $e_dp->getAttribute('tra');

		$data{transfer}     = $e_dp->getAttribute('tra');

		$data{departure_wings} = $e_dp->getAttribute('wings');

		$data{departure_wings} = $e_dp->getAttribute('wings');

		$data{unk_dp_hi}       = $e_dp->getAttribute('hi');

	}

	}





	my $result = Travel::Status::DE::IRIS::Result->new(%data);

	my $result = Travel::Status::DE::IRIS::Result->new(%data);