Commit 57b51d5c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Added --via (→ --from some place --to other place via teh place)

parent 06a005c8
Loading
Loading
Loading
Loading
+9 −2
Original line number Diff line number Diff line
@@ -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,
+1 −0
Original line number Diff line number Diff line
@@ -4,6 +4,7 @@ typeset -a arguments
arguments=(
	'--from:city: :stop: '
	'--to:city: :stop: '
	'--via:city: :stop: '
	'--debug'
	'--time:time'
	'--time-for:event:(arrival departure)'