PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set arrival time via HAFAS if not available from IRIS

Browse source
This commit is contained in:
Daniel Friesel 2019-06-01 11:52:42 +02:00
parent 102f6ddf7f
commit d701442306
1 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lib/Travelynx.pm
View file

@ -530,7 +530,8 @@ sub startup {
my $now = DateTime->now( time_zone => 'Europe/Berlin' );
my $journey
= $db->select( 'in_transit', '*', { user_id => $uid } )->hash;
= $db->select( 'in_transit', '*', { user_id => $uid } )
->expand->hash;
my ($train)
= first { $_->train_id eq $train_id } @{ $status->{results} };
@ -568,6 +569,31 @@ sub startup {
if ( not( defined $train or $force ) ) {
$self->run_hook( $uid, 'update' );
# Arrival time via IRIS is unknown, try falling back to HAFAS
if ( my $station_data
= first { $_->[0] eq $station } @{ $journey->{route} } )
{
$station_data = $station_data->[1];
if ( $station_data->{sched_arr} ) {
my $sched_arr
= epoch_to_dt( $station_data->{sched_arr} );
my $rt_arr = $sched_arr->clone;
if ( $station_data->{adelay}
and $station_data->{adelay} =~ m{^\d+$} )
{
$rt_arr->add( minutes => $station_data->{adelay} );
}
$db->update(
'in_transit',
{
sched_arrival => $sched_arr,
real_arrival => $rt_arr
},
{ user_id => $uid }
);
}
}
return ( 1, undef );
}