Unverified Commit 9e6728a3 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Journeys->add: a little bit of sanity checking for route timestamps

parent f9b69b59

lib/Travelynx/Model/Journeys.pm

+10 −2
Original line number Diff line number Diff line
@@ -189,6 +189,7 @@ sub add { 
			time_zone => 'Europe/Berlin'

		);

		my @unknown_stations;

		my $prev_epoch = 0;



		for my $station ( @{ $opt{route} } ) {

			my $ts;
@@ -199,8 +200,15 @@ sub add { 
				$station = $+{stop};

				$ts      = $parser->parse_datetime( $+{timestamp} );

				if ($ts) {

					$station_data{sched_arr} = $ts->epoch;

					$station_data{sched_dep} = $ts->epoch;

					my $epoch = $ts->epoch;

					if ( $epoch <= $prev_epoch ) {

						return ( undef,

'Zeitstempel der Unterwegshalte müssen streng monoton steigend sein (keine Zeitreisen und keine Portale)'

						);

					}

					$station_data{sched_arr} = $epoch;

					$station_data{sched_dep} = $epoch;

					$prev_epoch              = $epoch;

				}

			}

			my $station_info = $self->{stations}