summaryrefslogtreecommitdiff
path: root/bin/hafas-m
diff options
context:
space:
mode:
Diffstat (limited to 'bin/hafas-m')
-rwxr-xr-xbin/hafas-m11
1 files changed, 11 insertions, 0 deletions
diff --git a/bin/hafas-m b/bin/hafas-m
index f279b04..dc053c9 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -6,6 +6,7 @@ use 5.010;
our $VERSION = '1.05';
use Getopt::Long qw(:config no_ignore_case);
+use List::MoreUtils qw(uniq);
use List::Util qw(first max);
use Travel::Status::DE::HAFAS;
@@ -58,6 +59,16 @@ for my $type ( split( qr{,}, $types ) ) {
}
}
+if ( $train_type{help} or $train_type{list} or $train_type{'?'} ) {
+ my @mots
+ = @{ Travel::Status::DE::HAFAS::get_service($service)->{productbits} };
+ @mots = grep { $_ ne 'x' } @mots;
+ @mots = uniq @mots;
+ @mots = sort @mots;
+ say join( "\n", @mots );
+ exit 0;
+}
+
my $status = Travel::Status::DE::HAFAS->new(
date => $date,
language => $language,