summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/traintrack131
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;
}