diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/hafas-m | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index 40f125b..a6899b0 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -64,7 +64,8 @@ if ($list_services) { 'time zone' ); for my $service ( Travel::Status::DE::HAFAS::get_services() ) { - if ($service->{shortname} eq 'DB') { + if ( $service->{shortname} eq 'DB' ) { + # HTTP 503 Service Unavailable next; } @@ -78,6 +79,18 @@ if ($list_services) { exit 0; } +if ( not $service ) { + say STDERR 'Note: You have called hafas-m without specifying a service.'; + say STDERR q{}; + say STDERR 'Unfortunately, the previous default service (DB HAFAS)'; + say STDERR 'is no more, and there is no generic replacement available.'; + say STDERR q{}; + say STDERR 'Please use "hafas-m --list" to list supported services,'; + say STDERR 'and then select one via -s <service>.'; + say STDERR 'Falling back to ÖBB for now.'; + $service = 'ÖBB'; +} + if ($use_cache) { my $cache_path = ( $ENV{XDG_CACHE_HOME} // "$ENV{HOME}/.cache" ) . '/Travel-Status-DE-HAFAS'; |