Commit 7f73d668 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add debug helper script

parent 99af8a8a

lib/Travel/Status/DE/IRIS.pm

+2 −0
Original line number Diff line number Diff line
@@ -157,6 +157,8 @@ sub get_realtime { 
			next;

		}



		$result->add_realtime($s);



		if ($e_tl) {

			$result->add_tl(

				class     => $e_tl->getAttribute('f'),    # D N S F

lib/Travel/Status/DE/IRIS/Result.pm

+7 −1
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ our $VERSION = '0.00'; 


Travel::Status::DE::IRIS::Result->mk_ro_accessors(

	qw(arrival date datetime delay departure line_no platform raw_id

	  route_start route_end

	  realtime_xml route_start route_end

	  sched_arrival sched_departure

	  start stop_no time train_id train_no type unknown_t unknown_o)

);
@@ -102,6 +102,12 @@ sub add_dp { 
	}

}



sub add_realtime {

	my ($self, $xmlobj) = @_;



	$self->{realtime_xml} = $xmlobj;

}



sub add_tl {

	my ( $self, %attrib ) = @_;

scripts/debug

0 → 100755
+35 −0
Original line number Diff line number Diff line 
#!/usr/bin/env perl



use strict;

use warnings;

use 5.018;



binmode( STDOUT, ':encoding(utf-8)' );



use Data::Dumper;

use Travel::Status::DE::DeutscheBahn;

use Travel::Status::DE::IRIS;



my $ris = Travel::Status::DE::DeutscheBahn->new(

	station => $ARGV[0],

	mode => 'dep',

);



my $iris = Travel::Status::DE::IRIS->new(

	station => $ARGV[1],

);



my @res_ris = $ris->results;

my @res_iris = $iris->results;



for my $d (@res_iris) {

	printf("\n\n     %5s %10s %4s %20s (%s)\n", $d->time, $d->train, $d->platform, $d->route_end, join(q{ }, $d->route_interesting));

	my @matching = grep { $_->time . $_->train eq $d->time . $d->train } @res_ris;

	for my $risd (@matching) {

		printf(" ->  %5s %10s %4s %20s (%s)\n", $risd->time, $risd->train, $risd->platform, $risd->route_end, join(q{ }, $risd->route_interesting));

		printf(" ->  %s\n", $risd->info_raw);

	}

	if ($d->realtime_xml) {

		print $d->realtime_xml->toString(1);

	}

}