You set $wsr as an instance of LWP::UserAgent and set the proxy server on this instance but you don't use it. You then set $useragent as another instance of LWP::UserAgent, don't set the proxy server and use this latter instance to submit your request.

Does it work if you set the proxy server on the $useragent instance?

Hi ig,

Thanks a million, that was it; now I can continue in peace. I'd done all kinds of troubleshooting, and reading up.

By the way, how is it that we can limit a proxy not to be used for local addresses, and even if we do that, how will local addresses be identified by the proxy?.

.

Really, appreciate the excellent support and patience to look into the code itself :).

.

Thanks and Regards.

You can use the no_proxy method of LWP::UserAgent to specify hosts or domains that should not be passed to the proxy server. It takes a list of strings that are matched verbatim (i.e. the strings are not regular expressions against the host name in the URL).

The match is anchored to the end of the host name which, if the host name is a fully qualified DNS name, allows one no_proxy string to match any hosts within that domain.

I don't see any provision for easily excluding URLs by network (e.g. 192.168.0.0/24). You could list all the IP addresses in the network.

And, now that your problem is solved, I suggest you investigate some of the excellent applications available for monitoring websites and other network resources.

Freshmeat has an article (picked lazily and somewhat dated) that lists some of the features you might think about, with links to a few of the available applications. Otherwise, search for Network Management System to find much more.

Even if you are doing this as a learning exercise, I suggest you have a look at what existing applications do. They will give you many ideas for features to implement.

The thing is that the external websites (behind proxy) are givign time outs and not authenitcation or forbidden messages.

It looks like your proxy can't connect to external servers. Perhaps firewall problem.

But, I am accessing all websites from my browser (IE 7) with the same proxy configured.

as I have the proxy configured, I'm not aware that the command line, or code would behave differently as compared to a browser, or is that the case?

Additonally, the thing is its NOT giving a forbidden or authentication codes, its giving only a timeout. And the default period is 180 seconds - and still it times out.

Authentication and forbidden errors seem to come up immediately.

perl -MIO::Socket::INET -le"IO::Socket::INET->new(PeerAddr => '192.168
+.5.39:8080') or die $^E; print 'ok'"
[download]

# !C:\Perl\bin

use strict;
use warnings;
use LWP::UserAgent;

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( HEAD => $url );
my $response  = $useragent->request($request);

print $response->status_line, "\n";
print $response->is_success, "\n";
print $useragent->proxy('http'),"\n";
[download]

That is weird, can you try

# for window   set http_proxy=http://192.168.5.39:8080/ 
# for linux
export http_proxy=http://192.168.5.39:8080/ 

lwp-request -USe -m get https://www.eserve.com.sa/
lwp-request -USe -m head https://www.eserve.com.sa/
[download]

and show the output

So, is it an anomaly,

C:\Perl\bin>lwp-request -Use -m get http://www.eserve.com.sa/
GET https://www.eserve.com.sa/
User-Agent: lwp-request/5.810

500 Connect failed: connect: Unknown error; Unknown error
Content-Type: text/plain
Client-Date: Tue, 21 Jul 2009 08:39:54 GMT
Client-Warning: Internal response

500 Connect failed: connect: Unknown error; Unknown error

C:\Perl\bin>lwp-request -Use -m head http://www.eserve.com.sa/
HEAD https://www.eserve.com.sa/
User-Agent: lwp-request/5.810

500 Connect failed: connect: Unknown error; Unknown error
Content-Type: text/plain
Client-Date: Tue, 21 Jul 2009 08:40:09 GMT
Client-Warning: Internal response
[download]

Don't know how to proceed from here. Or iwll I have to simply hardcode all the redirections?