diff options
Diffstat (limited to 'bin/hafas-m')
-rwxr-xr-x | bin/hafas-m | 6 |
1 files changed, 5 insertions, 1 deletions
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 { |