From c8fd4de40c787864b8a3dd5b679193a7f033e910 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 24 Aug 2018 13:55:48 +0200
Subject: triantrack: Improve output, update data immediately before display

---
 examples/traintrack | 45 ++++++++++++++++++++++++++++++++-------------
 1 file changed, 32 insertions(+), 13 deletions(-)

(limited to 'examples')

diff --git a/examples/traintrack b/examples/traintrack
index 531a796..e667fe4 100755
--- a/examples/traintrack
+++ b/examples/traintrack
@@ -19,7 +19,9 @@ binmode( STDOUT, ':encoding(utf-8)' );
 
 @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV;
 
-my ($dest_station, $train_type, $train_no) = @ARGV;
+my ($dest_station, $train_type, $train_no, $max_stations) = @ARGV;
+
+$max_stations //= 20;
 
 my $main_cache = Cache::Memory->new(
 	namespace => 'IRISMain',
@@ -102,6 +104,16 @@ sub format_datetime {
 	return $dt->strftime('%H:%M');
 }
 
+sub format_delay {
+	my ($delay) = @_;
+
+	if (not defined $delay) {
+		return q{};
+	}
+
+	return sprintf('%+d', $delay);
+}
+
 sub update_trainstatus {
 	my ($train) = @_;
 	return {
@@ -113,6 +125,8 @@ sub update_trainstatus {
 		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,
@@ -129,8 +143,8 @@ if (not defined $initial_train) {
 my @stations = ($initial_train->route_pre, $dest_station);
 my @all_messages = $initial_train->messages;
 
-if (@stations > 20) {
-	splice(@stations, 0, @stations - 20);
+if (@stations > $max_stations) {
+	splice(@stations, 0, @stations - $max_stations);
 }
 
 my %status = (
@@ -180,31 +194,36 @@ while (1) {
 			}
 
 			if ($prev_epoch < $now->epoch and $now->epoch <= $epoch) {
-				printf("\n%30s   %5s\n\n", '>' x 15, $now->strftime('%H:%M'));
+				printf("%30s   %5s\n\n", '>' x 15, $now->strftime('%H:%M'));
 			}
 
-			printf("%30s   %5s → %5s   +%d\n%30s   %5s → %5s\n\n",
+			printf("%30s   %5s → %5s   %s\n",
 				$station, format_datetime($status{$station}{sched_arrival}),
 				format_datetime($status{$station}{sched_departure}),
-				$status{$station}{delay}, q{},
-				format_datetime($status{$station}{rt_arrival}),
-				format_datetime($status{$station}{rt_departure}),
+				format_delay($status{$station}{delay}),
 			);
 
+			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}),
+				);
+			}
+
+			print "\n";
+
 			$prev_epoch = $epoch;
 		}
 	}
 
+	sleep(60);
+
 	for my $station (@stations) {
 		if (my $train = get_train_or_undef($station, 1)) {
 			$status{$station} = update_trainstatus($train);
 			@all_messages = $train->messages;
 		}
-		else {
-			$status{$station}{skip} = 1;
-		}
 	}
-
-	sleep(60);
 	say "\n----\n";
 }
-- 
cgit v1.2.3