diff options
| -rwxr-xr-x | bin/hafas-m | 24 |
1 files changed, 3 insertions, 21 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index dfb5d71..66c2ca2 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -17,7 +17,7 @@ my ( $date, $time ); my $arrivals = 0; my $types = q{}; my $developer_mode; -my ( $list_services, $service, $hafas_url ); +my ( $list_services, $service ); my ( @excluded_mots, @exclusive_mots ); my @output; @@ -34,7 +34,6 @@ GetOptions( '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, @@ -58,7 +57,6 @@ my %opt = ( arrivals => $arrivals, developer_mode => $developer_mode, service => $service, - url => $hafas_url, ); if ( $opt{station} =~ m{[|]} ) { @@ -124,16 +122,9 @@ sub parse_mot_options { my $default_yes = 1; - if ( $types and $hafas_url ) { - say STDERR 'The options -u and -m cannot be combined. Discarding -m'; - return; - } - for my $type ( split( qr{,}, $types ) ) { if ( $type eq 'help' or $type eq 'list' or $type eq q{?} ) { - if ( not $hafas_url ) { - $service //= 'DB'; - } + $service //= 'DB'; my $desc = Travel::Status::DE::HAFAS::get_service($service); if ($desc) { my @mots = @{ $desc->{productbits} }; @@ -329,8 +320,7 @@ Date to list departures for. Default: today. =item B<--list> List known HAFAS installations. A HAFAS service from this list can be querie -using B<--service>. Use B<--url> for HAFAS entrypoints not included in the -list (and consider notifying me so I can include them in the next release). +using B<--service>. =item B<-m>, B<--mot> I<motlist> @@ -344,9 +334,6 @@ To show them exclusively, set I<motlist> to I<mot1>,I<mot2>,... The I<mot> types depend on the used service. Use C<< -m help >> to list them. -This option is not available when the HAFAS entrypoint has been specified via -B<--url>. - =item B<-s>, B<--service> I<service> Request arrivals/departures using the API provided by I<service>, defaults @@ -356,11 +343,6 @@ to DB (Deutsche Bahn). See B<--list> for a list of known services. Time to list departures for. Default: now. -=item B<-u>, B<--url> I<url> - -Request arrivals/departures using the API entry point at I<url>. -Note that B<--mot> will not work when using this opton. - =item B<-V>, B<--version> Show version information. |