summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-03-06 15:19:16 +0100
committerDaniel Friesel <derf@derf.homelinux.org>2009-03-06 15:19:16 +0100
commitc93e5e3cb0d823f115233a05854fe2e16d6a7179 (patch)
treefc05efd01271a51875383ceffe961c05e884e40e /bin
parentfdf39eb822dd9300cd3a265a46262eb69bf4917a (diff)
Allow user to specify date and time
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa11
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',