Need to test HTTP page responses

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

Replies are listed 'Best First'.
Re: Need to test HTTP page responses by b10m (Vicar) on Oct 22, 2008 at 12:21 UTC
As stated, LWP::UserAgent will be of help here, but make sure to look at the requests_redirectable option if you want to actually see if the URL returns a 300-code. If you leave HEAD and GET as requests_redirectable values, you'll get the results of the codes after the redirection. `use LWP::UserAgent; my $ua = LWP::UserAgent->new( requests_redirectable => [] ); while(<DATA>) { chomp; my $r = $ua->head($_); print $_,": ",$r->code,"\n"; } __DATA__ http://www.perlmonks.org/ http://tinyurl.com/5j5l5` [download] In this case, the tinyurl URL will return 301. If you leave the request_redirectable option as default, you'll get 200 as status code (coming from perlmonks.org, not tinyurl.com). -- b10m	[reply] [d/l]
Re: Need to test HTTP page responses by lamp (Chaplain) on Oct 22, 2008 at 10:36 UTC
You can use LWP::UserAgent.	[reply]
Re^2: Need to test HTTP page responses by Anonymous Monk on Oct 22, 2008 at 11:22 UTC
Thanks for the reply. I've tried using the example in the link, and all I'm getting is: 500 Can't locate object method "format_request" via package "LWP::Protocol::http::Socket" Any ideas what that means? Thanks, Ant	[reply]
Re^3: Need to test HTTP page responses by Krambambuli (Curate) on Oct 22, 2008 at 14:08 UTC
Do hou have Net::HTTP installed ? Krambambuli ---	[reply]
Re: Need to test HTTP page responses by jonadab (Parson) on Oct 22, 2008 at 11:44 UTC
I normally use WWW::Mechanize for that sort of thing. -- We're working on a six-year set of freely redistributable Vacation Bible School materials.	[reply]
Re: Need to test HTTP page responses by sugarboy (Beadle) on Oct 22, 2008 at 12:50 UTC
The required test can be easily achieved by using Test::WWW::Mechanize with Test::More, where it accesses the URL and it Checks for the response codes being returned. Example Code looks like: use Test::More tests => 1; use Test::WWW::Mechanize $mech->Test::WWW::Mechanize->new; $mech=get_ok(URL); The response it return will be as follows: ok - Got <<URL>> ok Thanks, Sagar	[reply]
Re^2: Need to test HTTP page responses by Anonymous Monk on Oct 22, 2008 at 14:14 UTC
Thanks all for your help so far. I've added the LWP::Debug to the script and for some reason every request is coming through as LWP::UserAgent::new: () LWP::UserAgent::request: () LWP::UserAgent::send_request: HEAD http://bonnard/home.do/ LWP::UserAgent::_need_proxy: Not proxied LWP::Protocol::http::request: () LWP::UserAgent::request: Simple response: Internal Server Error http://bonnard/home.do/: 500 SO need to look into Proxies now me thinks... Ant	[reply]
Re: Need to test HTTP page responses by dorward (Curate) on Oct 22, 2008 at 18:01 UTC
checklink is decent - it expects input in the form of an HTML document though. However, you could either hack into it to take an array, or generate an HTML document from your array.	[reply]
Re^2: Need to test HTTP page responses by cantfindausername (Novice) on Oct 23, 2008 at 08:35 UTC
I don't even know what that means. :-(	[reply]


P is for Practical
	PerlMonks