summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/hafas-m9
1 files changed, 6 insertions, 3 deletions
diff --git a/bin/hafas-m b/bin/hafas-m
index 931326a..97ecaa2 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -89,9 +89,12 @@ sub parse_mot_options {
for my $type ( split( qr{,}, $types ) ) {
if ( $type eq 'help' or $type eq 'list' or $type eq '?' ) {
- my $desc = Travel::Status::DE::HAFAS::get_service($service);
- if ($desc) {
- my @mots = @{ $desc->{productbits} };
+ if ( not $hafas_url ) {
+ $service //= 'DB';
+ }
+ my %desc = Travel::Status::DE::HAFAS::get_service($service);
+ if (%desc) {
+ my @mots = @{ $desc{productbits} };
@mots = grep { $_ ne 'x' } @mots;
@mots = uniq @mots;
@mots = sort @mots;