add -m help / -m list support

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,