add -s/-u support

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 {