diff options
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/traintrack | 131 |
1 files changed, 72 insertions, 59 deletions
diff --git a/examples/traintrack b/examples/traintrack index e667fe4..8f85fa4 100755 --- a/examples/traintrack +++ b/examples/traintrack @@ -19,39 +19,39 @@ binmode( STDOUT, ':encoding(utf-8)' ); @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV; -my ($dest_station, $train_type, $train_no, $max_stations) = @ARGV; +my ( $dest_station, $train_type, $train_no, $max_stations ) = @ARGV; $max_stations //= 20; my $main_cache = Cache::Memory->new( - namespace => 'IRISMain', + namespace => 'IRISMain', default_expires => '6 hours', ); my $rt_cache = Cache::Memory->new( - namespace => 'IRISRT', + namespace => 'IRISRT', default_expires => '90 seconds' ); sub get_train_or_undef { - my ($station, $ignore_errors) = @_; + my ( $station, $ignore_errors ) = @_; my @candidates = Travel::Status::DE::IRIS::Stations::get_station($station); - if (@candidates == 1) { + if ( @candidates == 1 ) { $station = $candidates[0][0]; } my $status = Travel::Status::DE::IRIS->new( - datetime => $now, - station => $station, - with_related => 0, + datetime => $now, + station => $station, + with_related => 0, main_cache => $main_cache, realtime_cache => $rt_cache, - lookahead => 300, + lookahead => 300, ); - if (my $err = $status->errstr) { + if ( my $err = $status->errstr ) { if ($ignore_errors) { return undef; } @@ -60,13 +60,14 @@ sub get_train_or_undef { exit 1; } } - if (my $warn = $status->warnstr and not $ignore_errors) { + if ( my $warn = $status->warnstr and not $ignore_errors ) { say STDERR "Request warning at ${station}: ${warn}"; } - my @res = grep { $_->type eq $train_type and $_->train_no eq $train_no } $status->results; + my @res = grep { $_->type eq $train_type and $_->train_no eq $train_no } + $status->results; - if (@res == 1) { + if ( @res == 1 ) { return $res[0]; } return undef; @@ -77,10 +78,10 @@ sub get_train_at_next_station_or_undef { my @route_next = $train->route_post; - if (not @route_next) { - return (undef, undef); + if ( not @route_next ) { + return ( undef, undef ); } - return ($route_next[0], get_train_or_undef($route_next[0])); + return ( $route_next[0], get_train_or_undef( $route_next[0] ) ); } sub get_train_at_prev_station_or_undef { @@ -88,16 +89,16 @@ sub get_train_at_prev_station_or_undef { my @route_prev = $train->route_pre; - if (not @route_prev) { - return (undef, undef); + if ( not @route_prev ) { + return ( undef, undef ); } - return ($route_prev[-1], get_train_or_undef($route_prev[-1])); + return ( $route_prev[-1], get_train_or_undef( $route_prev[-1] ) ); } sub format_datetime { my ($dt) = @_; - if (not defined $dt) { + if ( not defined $dt ) { return q{}; } @@ -107,44 +108,45 @@ sub format_datetime { sub format_delay { my ($delay) = @_; - if (not defined $delay) { + if ( not defined $delay ) { return q{}; } - return sprintf('%+d', $delay); + return sprintf( '%+d', $delay ); } sub update_trainstatus { my ($train) = @_; return { - sched_arrival => $train->sched_arrival, - rt_arrival => $train->arrival, - sched_departure => $train->sched_departure, - rt_departure => $train->departure, - cancelled_arrival => $train->arrival_is_cancelled, + sched_arrival => $train->sched_arrival, + rt_arrival => $train->arrival, + sched_departure => $train->sched_departure, + rt_departure => $train->departure, + cancelled_arrival => $train->arrival_is_cancelled, cancelled_departure => $train->departure_is_cancelled, - sched_platform => $train->sched_platform, - delay => $train->delay, - arrival_delay => $train->arrival_delay, - departure_delay => $train->departure_delay, - platform => $train->platform, - epoch => ($train->arrival // $train->departure)->epoch, - last_update => DateTime->now(time_zone => 'Europe/Berlin')->epoch, + sched_platform => $train->sched_platform, + delay => $train->delay, + arrival_delay => $train->arrival_delay, + departure_delay => $train->departure_delay, + platform => $train->platform, + epoch => ( $train->arrival // $train->departure )->epoch, + last_update => DateTime->now( time_zone => 'Europe/Berlin' )->epoch, }; } my $initial_train = get_train_or_undef($dest_station); -if (not defined $initial_train) { +if ( not defined $initial_train ) { say STDERR "Did not find $train_type $train_no at $dest_station\n"; - say STDERR "Note that its arrival must not be more than 5 hours in the future\n"; + say STDERR + "Note that its arrival must not be more than 5 hours in the future\n"; } -my @stations = ($initial_train->route_pre, $dest_station); +my @stations = ( $initial_train->route_pre, $dest_station ); my @all_messages = $initial_train->messages; -if (@stations > $max_stations) { - splice(@stations, 0, @stations - $max_stations); +if ( @stations > $max_stations ) { + splice( @stations, 0, @stations - $max_stations ); } my %status = ( @@ -152,8 +154,8 @@ my %status = ( ); my $timer_current = 0; -my $timer_max = @stations; -my $timer = Time::Progress->new( +my $timer_max = @stations; +my $timer = Time::Progress->new( min => 1, max => $timer_max, ); @@ -161,10 +163,10 @@ my $timer = Time::Progress->new( for my $station (@stations) { print $timer->report( "\r\e[2KGetting initial departures %20b %p " - . "(${timer_current}/${timer_max}) ${station}", + . "(${timer_current}/${timer_max}) ${station}", ++$timer_current ); - if (my $train = get_train_or_undef($station, 1)) { + if ( my $train = get_train_or_undef( $station, 1 ) ) { $status{$station} = update_trainstatus($train); } else { @@ -177,37 +179,48 @@ print "\r\e[2K"; while (1) { my $prev_epoch = 0; - my $now = DateTime->now(time_zone => 'Europe/Berlin'); + my $now = DateTime->now( time_zone => 'Europe/Berlin' ); for my $station (@stations) { - if ($status{$station}{skip}) { - printf("%30s ??:?? → ??:??\n\n", $station); + if ( $status{$station}{skip} ) { + printf( "%30s ??:?? → ??:??\n\n", $station ); } else { my $epoch = $status{$station}{epoch}; - my @messages = grep { $_->[0]->epoch > $prev_epoch and $_->[0]->epoch <= $epoch } @all_messages; + my @messages + = grep { $_->[0]->epoch > $prev_epoch and $_->[0]->epoch <= $epoch } + @all_messages; for my $message (@messages) { - printf("%30s %5s %s\n", q{}, $message->[0]->strftime('%H:%M'), $message->[1]); + printf( + "%30s %5s %s\n", + q{}, $message->[0]->strftime('%H:%M'), + $message->[1] + ); } if (@messages) { print "\n"; } - if ($prev_epoch < $now->epoch and $now->epoch <= $epoch) { - printf("%30s %5s\n\n", '>' x 15, $now->strftime('%H:%M')); + if ( $prev_epoch < $now->epoch and $now->epoch <= $epoch ) { + printf( "%30s %5s\n\n", '>' x 15, $now->strftime('%H:%M') ); } - printf("%30s %5s → %5s %s\n", - $station, format_datetime($status{$station}{sched_arrival}), - format_datetime($status{$station}{sched_departure}), - format_delay($status{$station}{delay}), + printf( + "%30s %5s → %5s %s\n", + $station, + format_datetime( $status{$station}{sched_arrival} ), + format_datetime( $status{$station}{sched_departure} ), + format_delay( $status{$station}{delay} ), ); - if ($status{$station}{arrival_delay} or $status{$station}{departure_delay}) { - printf("%30s %5s → %5s\n", + if ( $status{$station}{arrival_delay} + or $status{$station}{departure_delay} ) + { + printf( + "%30s %5s → %5s\n", q{}, - format_datetime($status{$station}{rt_arrival}), - format_datetime($status{$station}{rt_departure}), + format_datetime( $status{$station}{rt_arrival} ), + format_datetime( $status{$station}{rt_departure} ), ); } @@ -220,7 +233,7 @@ while (1) { sleep(60); for my $station (@stations) { - if (my $train = get_train_or_undef($station, 1)) { + if ( my $train = get_train_or_undef( $station, 1 ) ) { $status{$station} = update_trainstatus($train); @all_messages = $train->messages; } |