summaryrefslogtreecommitdiff
path: root/bin/hafas-m
diff options
context:
space:
mode:
Diffstat (limited to 'bin/hafas-m')
-rwxr-xr-xbin/hafas-m6
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 {