http://qs321.pair.com?node_id=690826

avo has asked for the wisdom of the Perl Monks concerning the following question:

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...