hafas-m: add error check when redirecting from journey match to journey details

1 files changed, 13 insertions, 0 deletions

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 ) {