diff options
| -rwxr-xr-x | bin/db-iris | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/bin/db-iris b/bin/db-iris index 0e39231..2ac75e1 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -148,7 +148,7 @@ sub get_station { sub show_help { my ($code) = @_; - print 'Usage: db-iris [-c <classlist>] [-d <date>] ' + print 'Usage: db-iris [-r] [-c <classlist>] [-d <date>] ' . '[-o <output-flags>] [-p <platforms>] [-t <time>] ' . '[-T <typelist>] [-v|-V <via>] <station>' . "\n" . "See also: man db-iris\n"; @@ -164,15 +164,16 @@ sub show_version { sub sanitize_options { if ( $track_via and $edata{times} ) { - say STDERR "Note: --track-via cannot be combined with --output=times"; - say STDERR "Disabling option --output=times"; + say STDERR 'Note: --track-via cannot be combined with --output=times'; + say STDERR 'Disabling option --output=times'; delete $edata{times}; } if ( $realtime and $edata{times} ) { - say STDERR "Note: --realtime cannot be combined with --output=times"; - say STDERR "Disabling option --realtime"; + say STDERR 'Note: --realtime cannot be combined with --output=times'; + say STDERR 'Disabling option --realtime'; $realtime = 0; } + return; } sub display_result { @@ -337,7 +338,7 @@ db-iris - Interface to the DeutscheBahn online departure monitor =head1 SYNOPSIS -B<db-iris> [B<-c> I<classlist>] [B<-d> I<date>] [B<-o> I<output-flags>] +B<db-iris> [B<-r>] [B<-c> I<classlist>] [B<-d> I<date>] [B<-o> I<output-flags>] [B<-p> I<platforms>] [B<-t> I<time>] [B<-T> I<typelist>] [B<-v>|B<-V> I<via>] I<station> |