summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMaximilian Gass <mxey@ghosthacking.net>2010-12-04 13:38:32 +0100
committerMaximilian Gass <mxey@ghosthacking.net>2010-12-04 13:38:32 +0100
commit0df70e16109308056146065caf9e9009e9308aa2 (patch)
tree37082283637b92ebaebc829ca547869680578b50
parent8af5e433b8bbc0a3741882b08c1c97331fe8df05 (diff)
Replace WWW::Mechanize with LWP::UserAgent (first step)
-rw-r--r--lib/WWW/Efa.pm108
1 files changed, 95 insertions, 13 deletions
diff --git a/lib/WWW/Efa.pm b/lib/WWW/Efa.pm
index 0aa2f46..b0fd7ca 100644
--- a/lib/WWW/Efa.pm
+++ b/lib/WWW/Efa.pm
@@ -39,12 +39,12 @@ use 5.010;
use base 'Exporter';
+use LWP::UserAgent;
use XML::LibXML;
use WWW::Efa::Error::Ambiguous;
use WWW::Efa::Error::Backend;
use WWW::Efa::Error::NoData;
use WWW::Efa::Error::Setup;
-use WWW::Mechanize;
our @EXPORT_OK = ();
my $VERSION = '1.3+git';
@@ -171,7 +171,94 @@ sub post_place {
sub create_post {
my ($conf) = @_;
- my $post = {};
+ my $post = {
+ changeSpeed => "normal",
+ command => "",
+ execInst => "",
+ imparedOptionsActive => 1,
+ inclMOT_0 => "on",
+ inclMOT_1 => "on",
+ inclMOT_10 => "on",
+ inclMOT_11 => "on",
+ inclMOT_2 => "on",
+ inclMOT_3 => "on",
+ inclMOT_4 => "on",
+ inclMOT_5 => "on",
+ inclMOT_6 => "on",
+ inclMOT_7 => "on",
+ inclMOT_8 => "on",
+ inclMOT_9 => "on",
+ includedMeans => "checkbox",
+ itOptionsActive => 1,
+ itdDateDay => "03",
+ itdDateMonth => 12,
+ itdDateYear => 10,
+ itdLPxx_ShowFare => " ",
+ itdLPxx_command => "",
+ itdLPxx_enableMobilityRestrictionOptionsWithButton => "",
+ itdLPxx_id_destination => ":destination",
+ itdLPxx_id_origin => ":origin",
+ itdLPxx_id_via => ":via",
+ itdLPxx_mapState_destination => "",
+ itdLPxx_mapState_origin => "",
+ itdLPxx_mapState_via => "",
+ itdLPxx_mdvMap2_destination => "",
+ itdLPxx_mdvMap2_origin => "",
+ itdLPxx_mdvMap2_via => "",
+ itdLPxx_mdvMap_destination => "::",
+ itdLPxx_mdvMap_origin => "::",
+ itdLPxx_mdvMap_via => "::",
+ itdLPxx_priceCalculator => "",
+ itdLPxx_transpCompany => "vrr",
+ itdLPxx_view => "",
+ itdTimeHour => 23,
+ itdTimeMinute => 38,
+ itdTripDateTimeDepArr => "dep",
+ language => "de",
+ lineRestriction => 403,
+ maxChanges => 9,
+ nameInfo_destination => "invalid",
+ nameInfo_origin => "invalid",
+ nameInfo_via => "invalid",
+ nameState_destination => "empty",
+ nameState_origin => "empty",
+ nameState_via => "empty",
+ name_destination => "",
+ name_origin => "",
+ name_via => "",
+ placeInfo_destination => "invalid",
+ placeInfo_origin => "invalid",
+ placeInfo_via => "invalid",
+ placeState_destination => "empty",
+ placeState_origin => "empty",
+ placeState_via => "empty",
+ place_destination => "",
+ place_origin => "",
+ place_via => "",
+ ptOptionsActive => 1,
+ requestID => 0,
+ routeType => "LEASTTIME",
+ sessionID => 0,
+ text => 1993,
+ trITArrMOT => 100,
+ trITArrMOTvalue100 => 8,
+ trITArrMOTvalue101 => 10,
+ trITArrMOTvalue104 => 10,
+ trITArrMOTvalue105 => 10,
+ trITDepMOT => 100,
+ trITDepMOTvalue100 => 8,
+ trITDepMOTvalue101 => 10,
+ trITDepMOTvalue104 => 10,
+ trITDepMOTvalue105 => 10,
+ typeInfo_destination => "invalid",
+ typeInfo_origin => "invalid",
+ typeInfo_via => "invalid",
+ type_destination => "stop",
+ type_origin => "stop",
+ type_via => "stop",
+ useRealtime => 1
+ };
+
post_place($post, 'origin', @{$conf->{'from'}});
@@ -423,7 +510,7 @@ sub setup_error {
=head2 $efa->submit(%opts)
Submit the query to B<http://efa.vrr.de>.
-B<%opts> is passed on to WWW::Mechanize->new(%opts).
+B<%opts> is passed on to LWP::UserAgent->new(%opts).
=cut
@@ -432,23 +519,18 @@ sub submit {
$conf{'autocheck'} = 1;
- my $firsturl
- = 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2?language=de&itdLPxx_transpCompany=vrr';
-
- $self->{'mech'} = WWW::Mechanize->new(%conf);
+ $self->{'ua'} = LWP::UserAgent->new(%conf);
- $self->{'mech'}->get($firsturl);
- $self->{'mech'}->submit_form(
- form_name => 'jp',
- fields => $self->{'post'},
- );
+ my $response
+ = $self->{'ua'}->post('http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2',
+ $self->{post});
# XXX (workaround)
# The content actually is iso-8859-1. But HTML::Message doesn't actually
# decode character strings when they have that encoding. However, it
# doesn't check for latin-1, which is an alias for iso-8859-1.
- $self->{'html_reply'} = $self->{'mech'}->response()->decoded_content(
+ $self->{'html_reply'} = $response->decoded_content(
charset => 'latin-1'
);
}