From 32be01eacf3f93dce1cac7ebfc84d53d108be660 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 9 Aug 2012 12:57:32 -0400 Subject: [PATCH] URLVerify.pm; apply timeout to lwp useragent; comments Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm index 60c6e19e02..adb4c02d23 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm @@ -439,8 +439,12 @@ sub verify_one_url { $ENV{FTP_PASSIVE} = 1; # TODO: setting? my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0}); # TODO: verify_hostname setting? + $ua->timeout($timeout); + my $req = HTTP::Request->new(HEAD => $url->full_url); - my $res = $ua->simple_request($req); # avoid auto-redirect + + # simple_request avoids LWP's auto-redirect magic + my $res = $ua->simple_request($req); $logger->info(sprintf( "url: received HTTP '%s' / '%s' [%s]", -- 2.11.0