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

Location: Catch invalid timestamps during DST transition

parent 25c1467f

lib/Travel/Status/DE/DBRIS/Location.pm

+20 −10
Original line number Diff line number Diff line
@@ -44,21 +44,23 @@ sub new { 
		operator       => $opt{operator},

	};



	bless( $ref, $obj );



	if ( $json->{abfahrtsZeitpunkt} ) {

		$ref->{sched_dep}

		  = $opt{strptime_obj}->parse_datetime( $json->{abfahrtsZeitpunkt} );

		$ref->{sched_dep} = $ref->parse_datetime( $opt{strptime_obj},

			$json->{abfahrtsZeitpunkt} );

	}

	if ( $json->{ezAbfahrtsZeitpunkt} ) {

		$ref->{rt_dep}

		  = $opt{strptime_obj}->parse_datetime( $json->{ezAbfahrtsZeitpunkt} );

		$ref->{rt_dep} = $ref->parse_datetime( $opt{strptime_obj},

			$json->{ezAbfahrtsZeitpunkt} );

	}

	if ( $json->{ankunftsZeitpunkt} ) {

		$ref->{sched_arr}

		  = $opt{strptime_obj}->parse_datetime( $json->{ankunftsZeitpunkt} );

		$ref->{sched_arr} = $ref->parse_datetime( $opt{strptime_obj},

			$json->{ankunftsZeitpunkt} );

	}

	if ( $json->{ezAnkunftsZeitpunkt} ) {

		$ref->{rt_arr}

		  = $opt{strptime_obj}->parse_datetime( $json->{ezAnkunftsZeitpunkt} );

		$ref->{rt_arr} = $ref->parse_datetime( $opt{strptime_obj},

			$json->{ezAnkunftsZeitpunkt} );

	}



	if ( $ref->{sched_dep} and $ref->{rt_dep} ) {
@@ -125,11 +127,19 @@ sub new { 
	$ref->{dep}      = $ref->{rt_dep}      // $ref->{sched_dep};

	$ref->{platform} = $ref->{rt_platform} // $ref->{sched_platform};



	bless( $ref, $obj );



	return $ref;

}



sub parse_datetime {

	my ( $self, $strp, $dt_str ) = @_;

	my $ret;

	eval { $ret = $strp->parse_datetime($dt_str); };

	if ($@) {

		warn("Cannot parse datetime $dt_str: $@");

	}

	return $ret;

}



sub TO_JSON {

	my ($self) = @_;