hafas-m: Fall back to locationSearch if ajax-getstop.exe is unavailable

1 files changed, 13 insertions, 0 deletions

diff --git a/bin/hafas-m b/bin/hafas-m
index f3fbc39..8125d96 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -176,6 +176,19 @@ sub show_similar_stops {
 		for my $c (@candidates) {
 			printf( "%s (%s)\n", $c->{name}, $c->{id} );
 		}
+		return;
+	}
+	my $hafas = Travel::Status::DE::HAFAS->new(
+		locationSearch => $opt{station},
+		developer_mode => $developer_mode,
+		service        => $service,
+		language       => $language,
+	);
+	if ( $hafas->results ) {
+		say 'You might want to try one of the following stops:';
+		for my $r ( $hafas->results ) {
+			printf( "%s (%s)\n", $r->name, $r->eva );
+		}
 	}
 	return;
 }