diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-05-23 12:31:36 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-05-23 12:31:36 +0200 |
commit | 28982bc3c6193a6fe7cf161eb8e6eaf8686d52f5 (patch) | |
tree | d52618b4a223c6eb4ad39f0188e4da59e4c23f5c /bin | |
parent | baf4b395a656d792114572f0c6a94f3311f22a2b (diff) |
efa: Added support for --{from,to,via}-type
note that the parser breaks when using a type != stop:
"Fußweg" is not really supported yet
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa | 23 |
1 files changed, 20 insertions, 3 deletions
@@ -19,6 +19,7 @@ my $www = WWW::Mechanize->new( my $raw; my $cons; my (@from, @to, @via); +my ($from_type, $to_type, $via_type) = ('stop', 'stop', 'stop'); my ($time, $time_depart, $time_arrive); my $date; my @exclude; @@ -32,9 +33,6 @@ my $debug = 0; my $ignore_info = 'Fahrradmitnahme'; my ($i, $j, $con, $part); -$post{type_origin} = 'stop'; -$post{type_destination} = 'stop'; - sub check_ambiguous($) { my $html = shift; my $choose_re = qr/<span class="errorTextBold">Bitte auswählen<\/span>/; @@ -124,6 +122,7 @@ GetOptions( 'depart=s' => \$time_depart, 'exclude=s' => \@exclude, 'from=s{2}' => \@from, + 'from-type=s' => \$from_type, 'help' => sub {exec('perldoc', $0)}, 'ignore-info=s{0,1}' => \$ignore_info, 'max-change=i' => \$maxinter, @@ -133,7 +132,9 @@ GetOptions( 'restrict=s' => \$restrict, 'time=s' => \$time, 'to=s{2}' => \@to, + 'to-type=s' => \$to_type, 'via=s{2}' => \@via, + 'via-type=s' => \$via_type, 'walk-speed=s' => \$walk_speed, ); @@ -158,6 +159,17 @@ if (@via == 2) { @post{'place_via','name_via'} = @via; } +foreach ($from_type, $to_type, $via_type) { + unless ($_ ~~ ['stop', 'address', 'poi']) { + $_ = 'stop'; + print STDERR "from/to/via type: must be stop, address or poi\n"; + } +} + +$post{type_origin} = $from_type; +$post{type_destination} = $to_type; +$post{type_via} = $via_type; + if ($time_arrive) { $time = $time_arrive; $post{itdTripDateTimeDepArr} = 'arr'; @@ -324,6 +336,11 @@ Arrival place Travel via this place +=item B<--from-type>, B<--to-type>, B<--via-type> I<type> + +Designate type of the I<stop> for from/to/via. +Possible I<type>s: B<stop> (default), B<address>, B<poi> (point of interest) + =item B<--time>|B<--depart> I<hh>:I<mm> Journey start time |