summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas39
1 files changed, 33 insertions, 6 deletions
diff --git a/bin/hafas b/bin/hafas
index f77ddd6..7cdcf79 100755
--- a/bin/hafas
+++ b/bin/hafas
@@ -13,6 +13,7 @@ use Getopt::Long qw(:config no_ignore_case);
use List::MoreUtils qw(uniq);
use List::Util qw(first max);
use Travel::Routing::DE::HAFAS;
+use Travel::Status::DE::HAFAS;
my ( $date, $time, $language );
my $types = q{};
@@ -158,14 +159,40 @@ sub parse_mot_options {
}
sub show_similar_stops {
- my @candidates = $hafas->similar_stops;
- if (@candidates) {
- say 'You might want to try one of the following stops:';
- for my $c (@candidates) {
- printf( "%s (%s)\n", $c->{name}, $c->{id} );
+ my $hafas_from = Travel::Status::DE::HAFAS->new(
+ service => $service,
+ language => $language,
+ developer_mode => $developer_mode,
+ locationSearch => $from_stop,
+ );
+ my $hafas_to = Travel::Status::DE::HAFAS->new(
+ service => $service,
+ language => $language,
+ developer_mode => $developer_mode,
+ locationSearch => $to_stop,
+ );
+
+ if ( $hafas_from->results
+ and ( $hafas_from->results )[0]->eva ne $from_stop
+ and ( $hafas_from->results )[0]->name ne $from_stop )
+ {
+ say q{};
+ say 'You might want to try one of the following departure stops:';
+ for my $result ( $hafas_from->results ) {
+ printf( "%8d %s\n", $result->eva, $result->name );
+ }
+ }
+
+ if ( $hafas_to->results
+ and ( $hafas_to->results )[0]->eva ne $to_stop
+ and ( $hafas_to->results )[0]->name ne $to_stop )
+ {
+ say q{};
+ say 'You might want to try one of the following arrival stops:';
+ for my $result ( $hafas_to->results ) {
+ printf( "%8d %s\n", $result->eva, $result->name );
}
}
- return;
}
sub display_occupancy {