in reply to Re^7: LWP for URL monitoring - 500 connect timeout errors
in thread LWP for URL monitoring - 500 connect timeout errors
The number of possible unknown errors is huge (goes into 11_000), to see some run#!/usr/bin/perl -- use strict; use warnings; use LWP::UserAgent 5.829; @ARGV = qw[ http://www.eserve.com.sa/ ]; my $url = shift or die "URL expected\n"; my $useragent = LWP::UserAgent->new; $useragent->proxy(['http', 'ftp','https'], 'http://192.168.5.39:8080/' +); $useragent -> timeout( 20 ); my $request = HTTP::Request->new( GET => $url ); my $response = $useragent->request($request); my $err = sprintf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E; print $useragent->proxy('http'),"\n"; print "Err : $err\n"; print $response->dump,"\n"; __END__ lwp-request -useUS -m head http://www.eserve.com.sa/ lwp-request -useUS -m get http://www.eserve.com.sa/
As for these redirected websites, the one in question http://www.eserve.com.sa is HTTP.for my $i( 0 .. 256 ){ # $! = $i; $^E = $i; printf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E; }
Which always redirects to the HTTPs version.
In any case, should I conclude that redirection isn't supported.
No.
|
|---|