From c93e5e3cb0d823f115233a05854fe2e16d6a7179 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 6 Mar 2009 15:19:16 +0100 Subject: Allow user to specify date and time --- bin/efa | 11 +++++++++++ 1 file changed, 11 insertions(+) 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', -- cgit v1.2.3