summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-05-21 12:00:37 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2009-05-21 12:00:37 +0200
commit79f13396e865e4fffaf6bcc0aa07b1003fa6c569 (patch)
tree7794d8e41ce893e7b29d18b81e1f22912fa7ca9b /bin
parent13f90963f9af52f6dcaeeec78b39742f577b342c (diff)
efa: Added --bike option ("Fahrradmitnahme")
Diffstat (limited to 'bin')
-rwxr-xr-xbin/efa13
1 files changed, 12 insertions, 1 deletions
diff --git a/bin/efa b/bin/efa
index de1f4bc..2b5d604 100755
--- a/bin/efa
+++ b/bin/efa
@@ -27,6 +27,7 @@ my $restrict;
my $prefer;
my $proximity;
my $walk_speed;
+my $with_bike;
my $debug = 0;
my $ignore_info = 'Fahrradmitnahme';
my ($i, $j, $con, $part);
@@ -117,6 +118,7 @@ sub prepare_content($) {
GetOptions(
'arrive=s' => \$time_arrive,
+ 'bike' => \$with_bike,
'date=s' => \$date,
'debug' => \$debug,
'depart=s' => \$time_depart,
@@ -232,6 +234,11 @@ if ($walk_speed) {
}
}
+if ($with_bike) {
+ $ignore_info = undef;
+ $post{bikeTakeAlong} = 1;
+}
+
$www->get($firsturl);
$www->submit_form(
form_name => 'jp',
@@ -265,7 +272,7 @@ $cons = parse_content($raw);
for ($i = 0; $con = $cons->[$i]; $i++) {
for ($j = 0; $part = $con->[$j]; $j++) {
foreach (@{$part->{extra}}) {
- unless (length($ignore_info) and $_ =~ /$ignore_info/i) {
+ unless ($ignore_info and $_ =~ /$ignore_info/i) {
print "# $_\n";
}
}
@@ -329,6 +336,10 @@ Journey end time (overrides --time/--depart)
Journey date
+=item B<--bike>
+
+Choose connections where you can take a bike with you
+
=item B<--exclude> I<transports>
Exclude I<transports> (comma separated list).