summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2009-03-05 17:04:52 +0100
committerDaniel Friesel <derf@derf.homelinux.org>2009-03-05 17:04:52 +0100
commitfdf39eb822dd9300cd3a265a46262eb69bf4917a (patch)
treec019ff0c538a07e3c1c809ac1e8282c149755bf7
initial
-rwxr-xr-xbin/efa84
-rw-r--r--prereqs2
2 files changed, 86 insertions, 0 deletions
diff --git a/bin/efa b/bin/efa
new file mode 100755
index 0000000..5e2f24e
--- /dev/null
+++ b/bin/efa
@@ -0,0 +1,84 @@
+#!/usr/bin/env perl
+## Copyright © 2009 by Daniel Friesel <derf@derf.homelinux.org>
+## License: WTFPL <http://sam.zoy.org/wtfpl>
+use strict;
+use warnings;
+use encoding 'utf8';
+use Getopt::Long;
+use WWW::Mechanize;
+
+my $firsturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2?language=de&itdLPxx_transpCompany=vrr';
+my $posturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2';
+
+my $content;
+my %post;
+my $www = WWW::Mechanize->new(
+ autocheck => 1,
+);
+my $offer = 0;
+my $i = 0;
+my $connection;
+my $groupsize = 8;
+my $offset;
+my @from;
+my @to;
+
+$post{type_origin} = 'stop';
+$post{type_destination} = 'stop';
+
+GetOptions(
+ 'from=s{2}' => \@from,
+ 'to=s{2}' => \@to,
+);
+
+$post{place_origin} = $from[0];
+$post{name_origin} = $from[1];
+$post{place_destination} = $to[0];
+$post{name_destination} = $to[1];
+
+$www->get($firsturl);
+$www->submit_form(
+ form_name => 'jp',
+ fields => \%post,
+);
+
+$content = $www->content;
+
+foreach(split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) {
+ unless ($offer) {
+ $offer++;
+ next;
+ }
+ foreach(split(/\n/)) {
+ if (/<span class="labelText">(?<content>[^<]+)<\/span>/) {
+ # Ignore "ca. 3 Minuten" and similar
+ # something like /^ca\. \d+ Minute/ does not work here, for some reason
+ # (probably related to encoding fuckup)
+ if ($+{content} !~ /^ca.*Minute/) {
+ push(@{$connection->[$offer-1]}, $+{content});
+ }
+ }
+ }
+ $offer++;
+}
+
+foreach (@$connection) {
+ for($i = 0; @{$_} >= (($i+1) * $groupsize); $i++) {
+ $offset = $i * $groupsize;
+ # skip "Fußweg: x Minuten" messages (they're smaller than $groupsize)
+ if ($_->[$offset+2] =~ /ca.*Minute/) {
+ splice(@$_, $offset, 5);
+ }
+ printf("%-5s %-2s %-30s %-20s %s\n", $_->[$offset+0], $_->[$offset+1], $_->[$offset+2], $_->[$offset+3], $_->[$offset+7]);
+ printf("%-5s %-2s %-30s\n\n", $_->[$offset+4], $_->[$offset+5], $_->[$offset+6]);
+ }
+ print "-----\n\n";
+}
+
+#print "---\n";
+#foreach(@$connection) {
+# print "\n";
+# foreach(@$_) {
+# print "$_\n";
+# }
+#}
diff --git a/prereqs b/prereqs
new file mode 100644
index 0000000..3c836cf
--- /dev/null
+++ b/prereqs
@@ -0,0 +1,2 @@
+depend perlmodule Getopt::Long
+depend perlmodule WWW::Mechanize