Commit c93e5e3c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Allow user to specify date and time

parent fdf39eb8

bin/efa

+11 −0
Original line number Diff line number Diff line
@@ -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',