Allow user to specify date and time

1 files changed, 11 insertions, 0 deletions

diff --git a/bin/efa b/bin/efa
index 5e2f24e..61f73a4 100755
--- a/bin/efa
+++ b/bin/efa
@@ -22,6 +22,8 @@ my $groupsize = 8;
 my $offset;
 my @from;
 my @to;
+my $time;
+my $date;
 
 $post{type_origin} = 'stop';
 $post{type_destination} = 'stop';
@@ -29,6 +31,8 @@ $post{type_destination} = 'stop';
 GetOptions(
 	'from=s{2}' => \@from,
 	'to=s{2}'   => \@to,
+	'time=s'    => \$time,
+	'date=s'    => \$date,
 );
 
 $post{place_origin} = $from[0];
@@ -36,6 +40,13 @@ $post{name_origin} = $from[1];
 $post{place_destination} = $to[0];
 $post{name_destination} = $to[1];
 
+if ($time) {
+	@post{'itdTimeHour','itdTimeMinute'} = split(/:/, $time);
+}
+if ($date) {
+	@post{'itdDateDay','itdDateMonth','itdDateYear'} = split(/\./, $date);
+}
+
 $www->get($firsturl);
 $www->submit_form(
 	form_name => 'jp',