From 2f8567d38b418dba31111e6886b2558548790496 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 10 Sep 2015 10:41:32 +0200 Subject: add -s/-u support --- bin/hafas-m | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'bin/hafas-m') diff --git a/bin/hafas-m b/bin/hafas-m index ee3ae78..5f49a19 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -17,7 +17,7 @@ my $ignore_late = 0; my $types = q{}; my $language; my $developer_mode; -my $list_services; +my ( $list_services, $service, $hafas_url ); my @output; @@ -30,7 +30,9 @@ GetOptions( 'l|lang=s' => \$language, 'L|ignore-late' => \$ignore_late, 'm|mot=s' => \$types, + 's|service=s' => \$service, 't|time=s' => \$time, + 'u|url=s' => \$hafas_url, 'V|version' => \&show_version, 'devmode' => \$developer_mode, 'list' => \$list_services, @@ -62,6 +64,8 @@ my $status = Travel::Status::DE::HAFAS->new( time => $time, mode => $arrivals ? 'arr' : 'dep', developer_mode => $developer_mode, + service => $service, + url => $hafas_url, ); sub show_help { -- cgit v1.2.3