Loading Changelog +5 −0 Original line number Diff line number Diff line efa 1.1 - Sun Jan 17 2010 * Code cleanup and DRY-ing * Add 'addr:foo' and 'poi:foo' as alternative to '--to-type poi' etc. efa 1.0.3 - Wed Dec 9 2009 * Further code cleanup Loading bin/efa +2 −2 Original line number Diff line number Diff line #!/usr/bin/env perl ## Copyright © 2009 by Daniel Friesel <derf@derf.homelinux.org> ## Copyright © 2009,2010 by Daniel Friesel <derf@derf.homelinux.org> ## License: WTFPL <http://sam.zoy.org/wtfpl> ## 0. You just DO WHAT THE FUCK YOU WANT TO. use strict; Loading @@ -13,7 +13,7 @@ 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 $version = '1.0.3+git'; my $version = '1.1+git'; my $content; my %post; my $www = WWW::Mechanize->new( Loading Loading
Changelog +5 −0 Original line number Diff line number Diff line efa 1.1 - Sun Jan 17 2010 * Code cleanup and DRY-ing * Add 'addr:foo' and 'poi:foo' as alternative to '--to-type poi' etc. efa 1.0.3 - Wed Dec 9 2009 * Further code cleanup Loading
bin/efa +2 −2 Original line number Diff line number Diff line #!/usr/bin/env perl ## Copyright © 2009 by Daniel Friesel <derf@derf.homelinux.org> ## Copyright © 2009,2010 by Daniel Friesel <derf@derf.homelinux.org> ## License: WTFPL <http://sam.zoy.org/wtfpl> ## 0. You just DO WHAT THE FUCK YOU WANT TO. use strict; Loading @@ -13,7 +13,7 @@ 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 $version = '1.0.3+git'; my $version = '1.1+git'; my $content; my %post; my $www = WWW::Mechanize->new( Loading