From 3a2f6181daf37eeb4bb6b4357fad50762f4d1a92 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 31 Aug 2012 09:59:58 -0400 Subject: [PATCH] Link checker: URLVerify.pm; response throttling repairs Signed-off-by: Bill Erickson Signed-off-by: Lebbeous Fogle-Weekley Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm index 86d95c3b26..0e49a006bd 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm @@ -22,6 +22,7 @@ __PACKAGE__->register_method( method => 'verify_session', api_name => 'open-ils.url_verify.session.verify', stream => 1, + max_chunk_size => 0, signature => { desc => q/ Performs verification on all (or a subset of the) URLs within the requested session. @@ -197,17 +198,18 @@ sub verify_session { $total_processed++; if ($options->{report_all} or ($total_processed % $resp_window == 0)) { + $client->respond({ url_count => $url_count, current_verification => $content, total_excluding_redirects => $total_excluding_redirects, total_processed => $total_processed }); - } - # start off responding quickly, then throttle - # back to only relaying every 256 messages. - $resp_window *= 2 unless $resp_window >= 256; + # start off responding quickly, then throttle + # back to only relaying every 256 messages. + $resp_window *= 2 unless $resp_window >= 256; + } } } }, -- 2.11.0