From: Bill Erickson <berick@esilibrary.com>
Date: Fri, 31 Aug 2012 13:59:58 +0000 (-0400)
Subject: Link checker: URLVerify.pm; response throttling repairs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3a2f6181daf37eeb4bb6b4357fad50762f4d1a92;p=contrib%2FConifer.git

Link checker: URLVerify.pm; response throttling repairs

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

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;
+                    }
                 }
             }
         },