From de432ead84057a6f9234cbcb56004d625333a7bd Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 11 Sep 2015 18:22:34 +0200 Subject: add -m help / -m list support --- bin/hafas-m | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'bin') 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, -- cgit v1.2.3