Good day fellow monks,
I have experienced very weird thing yesterday. I am using both Windows and Linux and this program (below) doesn't work on both with the first URL (www.tabonline.co.za). However this URL opens fine if I use LWP or Firefox for instance... Please help! Your help will be highly appreciated.
use strict;
use POE;
use POE::Component::Client::HTTP; # WRAPPED IN POCO::CLIENT::SSLIFY
use HTTP::Request::Common qw(GET POST);
my $url = "https://www.tabonline.co.za/"; # DOESN'T WORK IN WINDOWS AN
+D LINUX - WORKS FINE IN A BROWSER AND LWP
# my $url = "https://www.helsinki.fi/"; # WORKS FINE IN THIS EXAMPLE
POE::Component::Client::HTTP->spawn
( Alias => 'uapar',
Timeout => 200,
FollowRedirects => 2,
);
POE::Session->create
( inline_states =>
{ _start => sub {
my ( $kernel, $heap ) = @_[ KERNEL, HEAP
+ ];
my $request = HTTP::Request->new(
GET => $url, []
);
$kernel->post( uapar => request => got
+_response => $request );
},
got_response => sub {
my ( $kernel, $heap, $request_packet, $r
+esponse_packet ) = @_[ KERNEL, HEAP, ARG0, ARG1 ];
my $http_request = $request_packet->[0];
my $http_response = $response_packet->[0
+];
my $response_string = $http_response->as
+_string();
print $response_string;
},
},
);
$poe_kernel->run();
I get from this code on Win32
406 Not Acceptable, and on Linux
400 Bad request... The weird thing is that from time to time - randomly it works... - Both on Win32 and Linux :( My Request is formed right... I did dump both the request and response - for both URLs... If I don't use HTTPS - I don't have this problem at all. Looks like when wrapped with POCO::SSLify something bad happens. The responses on windows look like this:
$VAR1 = bless( {
'_content' => '<html>
<HEAD><TITLE>Error: Not Acceptable</TITLE></HEAD>
<BODY>
<H1>Error: Not Acceptable</H1>
Response larger than MaxSize - 1
</BODY>
</HTML>
',
'_rc' => 406,
'_headers' => bless( {}, 'HTTP::Headers' ),
'_msg' => undef,
'_request' => bless( {
'_protocol' => 'HTTP/1.1',
'_content' => '',
'_uri' => bless( do{\(my $o =
+'https://www.tabonline.co.za/')}, 'URI::https' ),
'_headers' => bless( {
'user-a
+gent' => 'POE-Component-Client-HTTP/0.82 (perl; N; POE; en; rv:0.8200
+00)',
'accept
+-encoding' => 'gzip',
'host'
+=> 'www.tabonline.co.za'
}, 'HTTP:
+:Headers'
),
'_method' => 'GET'
}, 'HTTP::Request' )
}, 'HTTP::Response' );
Now the LWP one:
use LWP;
my $url = 'https://www.tabonline.co.za/';
my $browser = LWP::UserAgent->new;
my $response = $browser->get($url);
die "Error at $url\n ", $response->status_line, "\n Aborting"
unless $response->is_success;
print "It worked! I got that ",
$response->content_type, " document!\n";
print $response->content;
Works just fine...
