summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa15
1 files changed, 13 insertions, 2 deletions
diff --git a/bin/efa b/bin/efa
index 51e7c8a..39a238b 100755
--- a/bin/efa
+++ b/bin/efa
@@ -24,7 +24,7 @@ my $groupsize = 8;
my $offset;
my @from;
my @to;
-my $time;
+my ($time, $time_for);
my $date;
my $debug = 0;
@@ -37,6 +37,7 @@ GetOptions(
'time=s' => \$time,
'date=s' => \$date,
'debug' => \$debug,
+ 'time-for=s' => \$time_for,
);
unless (@to == 2 and @from == 2) {
@@ -53,6 +54,12 @@ if ($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(
@@ -155,7 +162,11 @@ raw items received from the site)
=item B<--time> I<hh>:I<mm>
-Journey start time
+Journey start/end time
+
+=item B<--time-for> B<arrival>|B<departure>
+
+Define whether the time means time of departure (default) or time of arrival
=item B<--date> I<dd>.I<mm>.I<yyyy>