From 45ac5062d9647698ca50310d2b43e81126d0fc95 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Tue, 28 Nov 2023 21:34:52 +0100
Subject: hafas-m --via: show estimated arrival time

---
 bin/hafas-m | 53 ++++++++++++++++++++++++++++++++---------------------
 1 file changed, 32 insertions(+), 21 deletions(-)

(limited to 'bin/hafas-m')

diff --git a/bin/hafas-m b/bin/hafas-m
index f515abf..602f639 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -11,7 +11,7 @@ use Encode qw(decode);
 use JSON;
 use Getopt::Long    qw(:config no_ignore_case);
 use List::MoreUtils qw(uniq);
-use List::Util      qw(any first max);
+use List::Util      qw(first max);
 use Travel::Status::DE::HAFAS;
 
 my ( $date, $time, $language );
@@ -203,17 +203,17 @@ sub show_similar_stops {
 sub journey_has_via {
 	my ( $journey, $via ) = @_;
 
-	if ($via =~ m{ ^ [0-9,]+ $ }x) {
-		for my $eva (split(qr{,}, $via)) {
-			if ( any { $_->loc->eva == $eva } $journey->route ) {
-				return 1;
+	if ( $via =~ m{ ^ [0-9,]+ $ }x ) {
+		for my $eva ( split( qr{,}, $via ) ) {
+			if ( my $stop = first { $_->loc->eva == $eva } $journey->route ) {
+				return $stop;
 			}
 		}
 		return;
 	}
 
-	if ( any { $_->loc->name =~ m{$via}io } $journey->route ) {
-		return 1;
+	if ( my $stop = first { $_->loc->name =~ m{$via}io } $journey->route ) {
+		return $stop;
 	}
 	return;
 }
@@ -493,20 +493,31 @@ for my $d (@results) {
 		  . $info_line;
 	}
 
-	push(
-		@output,
-		[
-			$d->is_cancelled ? '--:--' : $d->datetime->strftime('%H:%M'),
-			$d->is_cancelled
-			? q{}
-			: format_delay( $d->delay, $delay_len ),
-			$d->name,
-			$d->route_end,
-			( $d->platform // q{} ) . ( $d->is_changed_platform ? ' !' : q{} ),
-			$info_line,
-			$d
-		]
-	);
+	my $entry = [
+		$d->is_cancelled ? '--:--' : $d->datetime->strftime('%H:%M'),
+		$d->is_cancelled
+		? q{}
+		: format_delay( $d->delay, $delay_len ),
+		$d->name,
+		$d->route_end,
+		( $d->platform // q{} ) . ( $d->is_changed_platform ? ' !' : q{} ),
+		$info_line,
+		$d
+	];
+
+	if ($via) {
+		my $stop = journey_has_via( $d, $via );
+
+		# HAFAS does not provide real-time data for route entries, so we have to guesstimate the arrival time
+		$entry->[0] .= ' → '
+		  . (
+			$stop->arr_cancelled
+			? '--:--'
+			: $stop->arr->add( minutes => $d->delay // 0 )->strftime('%H:%M')
+		  );
+	}
+
+	push( @output, $entry, );
 }
 
 display_result(@output);
-- 
cgit v1.2.3