Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
I am using LWP behind firewall to test some web links working or not. Some of the links return to be OK but some of them which are acctually exists give me the "404 Not Found" errors. Does anyone know what's the problem? Following is the code.
use strict; use LWP::UserAgent; use HTTP::Request; use HTTP::Response; #use LWP::Debug qw(level); level('+'); my ($request, $response, $ua, $status_line, $url); print "Content-type: text/html\n\n"; $ua = LWP::UserAgent->new; $ua = new LWP::UserAgent; $ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461 +; YComp 5.0.0.0)"); $ua->env_proxy; $ua->proxy('http', 'http://proxy.com/'); $ua->timeout(10); $url ='http://www.netscape.com'; # return "200 OK" #$url ='http://wp.netscape.com/fun/index.html'; # return "404 Not Foun +d" $request = new HTTP::Request('GET', $url); $request->header('Accept' => 'text/html'); $response = $ua->request($request); $status_line = $response->status_line; print "$status_line\n";
Thanks,
2003-04-16 edit ybiC: retitled from "LWP Problem"
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: LWP Problem
by dws (Chancellor) on Apr 16, 2003 at 21:50 UTC | |
by Anonymous Monk on Apr 16, 2003 at 22:02 UTC | |
|
Re: LWP Problem
by crenz (Priest) on Apr 16, 2003 at 21:47 UTC | |
by Anonymous Monk on Apr 16, 2003 at 21:51 UTC | |
|
Re: LWP::UserAgent, HTTP proxy, 404 Not Found
by hossman (Prior) on Apr 17, 2003 at 05:29 UTC | |
by Anonymous Monk on Apr 17, 2003 at 13:59 UTC |