Added --time-for to get departure/arrival time

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>