Skip to content
Snippets Groups Projects
Commit 174b56b7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Release v1.1

parent 24245072
No related branches found
Tags 1.1
No related merge requests found
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 efa 1.0.3 - Wed Dec 9 2009
* Further code cleanup * Further code cleanup
......
#!/usr/bin/env perl #!/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> ## License: WTFPL <http://sam.zoy.org/wtfpl>
## 0. You just DO WHAT THE FUCK YOU WANT TO. ## 0. You just DO WHAT THE FUCK YOU WANT TO.
use strict; use strict;
...@@ -13,7 +13,7 @@ use WWW::Mechanize; ...@@ -13,7 +13,7 @@ use WWW::Mechanize;
my $firsturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2?language=de&itdLPxx_transpCompany=vrr'; 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 $posturl = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2';
my $version = '1.0.3+git'; my $version = '1.1+git';
my $content; my $content;
my %post; my %post;
my $www = WWW::Mechanize->new( my $www = WWW::Mechanize->new(
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment