summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa27
1 files changed, 15 insertions, 12 deletions
diff --git a/bin/efa b/bin/efa
index 10340ea..f8cd6dc 100755
--- a/bin/efa
+++ b/bin/efa
@@ -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>