summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-05-24 09:27:04 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-05-24 09:27:04 +0200
commit263f9611d0d3090c4b5a48cdb8c3d98ef90c209c (patch)
tree0d3318f254dcd51562d09903a4b8d3701ad1f6a4 /bin
parent8828e04824562d2b9de138b218477541fc130e1d (diff)
VRR.pm: Change new() key names
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa26
1 files changed, 13 insertions, 13 deletions
diff --git a/bin/efa b/bin/efa
index a519b5d..12ab83a 100755
--- a/bin/efa
+++ b/bin/efa
@@ -77,21 +77,21 @@ for my $pair ( [ \@from, \$from_type ], [ \@via, \$via_type ],
}
$efa = Net::Travel::DE::VRR->new(
- from => [ @from, $from_type ],
- to => [ @to, $to_type ],
+ origin => [ @from, $from_type ],
+ destination => [ @to, $to_type ],
via => ( @via ? [ @via, $via_type ] : undef ),
- arrive => $opt->{'arrive'},
- depart => $opt->{'depart'} // $opt->{'time'},
- date => $opt->{'date'},
- exclude => $opt->{'exclude'},
- prefer => $opt->{'prefer'},
- include => $opt->{'include'},
- bike => $opt->{'bike'},
-
- proximity => $opt->{'proximity'},
- walk_speed => $opt->{'walk-speed'},
- max_interchanges => $opt->{'max-change'},
+ arrival_time => $opt->{'arrive'},
+ departure_time => $opt->{'depart'} // $opt->{'time'},
+ date => $opt->{'date'},
+ exclude => $opt->{'exclude'},
+ train_type => $opt->{'include'},
+ with_bike => $opt->{'bike'},
+
+ select_interchange_by => $opt->{'prefer'},
+ use_near_stops => $opt->{'proximity'},
+ walk_speed => $opt->{'walk-speed'},
+ max_interchanges => $opt->{'max-change'},
);
$efa->submit( timeout => $opt->{'timeout'} );