URLVerify.pm; response throttling repairs

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
index 4e86dcd..4318ac0 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
@@ -15,6 +15,7 @@ __PACKAGE__->register_method(
     method => 'validate_session',
     api_name => 'open-ils.url_verify.session.validate',
     stream => 1,
+    max_chunk_size => 0,
     signature => {
         desc => q/
             Performs verification on all (or a subset of the) URLs within the requested session.
@@ -184,16 +185,17 @@ sub validate_session {
                     $num_processed++;
 
                     if ($options->{report_all} or ($num_processed % $resp_window == 0)) {
+
                         $client->respond({
                             url_count => $url_count,
                             current_verification => $content,
                             total_processed => $num_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;
+                    }
                 }
             }
         },