diff --git a/bin/efa b/bin/efa index 5e2f24e1633e3fd7b543c7c5c95efb3a96bb092b..61f73a44070925b901518c89f7a4df92fa92effe 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',