From 8eb02b82e48bf9f7a9ca5270648cad6e928c6bda Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Tue, 26 Dec 2023 13:01:06 +0100
Subject: hafas-m: add error check when redirecting from journey match to
 journey details

---
 bin/hafas-m | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/bin/hafas-m b/bin/hafas-m
index b21a968..4b71ca6 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -322,6 +322,19 @@ if ( $opt{journeyMatch} ) {
 		$opt{journey} = { id => $journey->id };
 		delete $opt{journeyMatch};
 		$status = Travel::Status::DE::HAFAS->new(%opt);
+		if ( my $err = $status->errstr ) {
+			say STDERR "Request error: ${err}";
+			if (
+				$status->errcode
+				and
+				( $status->errcode eq 'H730' or $status->errcode eq 'LOCATION' )
+				and not $raw_json_output
+			  )
+			{
+				show_similar_stops();
+			}
+			exit 2;
+		}
 	}
 	else {
 		for my $result ( $status->results ) {
-- 
cgit v1.2.3