diff options
| -rwxr-xr-x | bin/efa | 27 | ||||
| -rw-r--r-- | provides/zsh/completions/_efa | 5 |
2 files changed, 18 insertions, 14 deletions
@@ -23,7 +23,7 @@ my $cons; my $groupsize = 8; my $offset; my (@from, @to, @via); -my ($time, $time_for); +my ($time, $time_depart, $time_arrive); my $date; my $debug = 0; @@ -35,9 +35,10 @@ GetOptions( 'to=s{2}' => \@to, 'via=s{2}' => \@via, 'time=s' => \$time, + 'depart=s' => \$time_depart, + 'arrive=s' => \$time_arrive, 'date=s' => \$date, 'debug' => \$debug, - 'time-for=s' => \$time_for, 'post=s' => \%post, ); @@ -52,18 +53,20 @@ if (@via == 2) { @post{'place_via','name_via'} = @via; } +if ($time_arrive) { + $time = $time_arrive; + $post{itdTripDateTimeDepArr} = 'arr'; +} elsif ($time_depart) { + $time = $time_depart; + $post{itdTripDateTimeDepArr} = 'dep'; +} + if ($time) { @post{'itdTimeHour','itdTimeMinute'} = split(/:/, $time); } if ($date) { @post{'itdDateDay','itdDateMonth','itdDateYear'} = split(/\./, $date); } -if ($time_for) { - given ($time_for) { - when('arrival') {$post{itdTripDateTimeDepArr} = 'arr'} - when('departure') {$post{itdTripDateTimeDepArr} = 'dep'} - } -} $www->get($firsturl); $www->submit_form( @@ -168,13 +171,13 @@ Travel via this place Display debug information (additional post requests sent to the site, raw items received from the site) -=item B<--time> I<hh>:I<mm> +=item B<--time>|B<--depart> I<hh>:I<mm> -Journey start/end time +Journey start time -=item B<--time-for> B<arrival>|B<departure> +=item B<--arrive> I<hh>:I<mm> -Define whether the time means time of departure (default) or time of arrival +Journey end time (overrides --time/--depart) =item B<--date> I<dd>.I<mm>.I<yyyy> diff --git a/provides/zsh/completions/_efa b/provides/zsh/completions/_efa index 64fc6c4..8e37b10 100644 --- a/provides/zsh/completions/_efa +++ b/provides/zsh/completions/_efa @@ -6,8 +6,9 @@ arguments=( '--to:city: :stop: ' '--via:city: :stop: ' '--debug' - '--time:time' - '--time-for:event:(arrival departure)' + '(--depart --arrive)--time:time' + '(--depart --time)--arrive:time' + '(--arrive --time)--depart:time' '--date:date' '*--post:POST key=value' ) |