diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-03-20 15:49:45 +0100 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-03-20 15:49:45 +0100 |
commit | 57b51d5ca5b4d09d1b7feecf0153571c674a3efc (patch) | |
tree | be271d2bfdf78707d28a8a4781b63cdf5e7b0e84 /bin | |
parent | 06a005c89d560d0ff05f8e7999492691ef7320d8 (diff) |
Added --via (→ --from some place --to other place via teh place)
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -22,8 +22,7 @@ my $raw; my $cons; my $groupsize = 8; my $offset; -my @from; -my @to; +my (@from, @to, @via); my ($time, $time_for); my $date; my $debug = 0; @@ -34,6 +33,7 @@ $post{type_destination} = 'stop'; GetOptions( 'from=s{2}' => \@from, 'to=s{2}' => \@to, + 'via=s{2}' => \@via, 'time=s' => \$time, 'date=s' => \$date, 'debug' => \$debug, @@ -48,6 +48,9 @@ unless (@to == 2 and @from == 2) { @post{'place_origin','name_origin'} = @from; @post{'place_destination','name_destination'} = @to; +if (@via == 2) { + @post{'place_via','name_via'} = @via; +} if ($time) { @post{'itdTimeHour','itdTimeMinute'} = split(/:/, $time); @@ -156,6 +159,10 @@ Departure place Arrival place +=time B<--via> I<city> I<stop> + +Travel via this place + =item B<--debug> Display debug information (additional post requests sent to the site, |