scale the response rate with the number of records processed so far

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15830 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index 41cfe82..3493a45 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -248,6 +248,7 @@ sub process_spool {
        my $batch = new MARC::Batch ($marctype, $filename);
        $batch->strict_off;
 
+       my $response_scale = 10;
        my $count = 0;
        my $r = -1;
        while (try { $r = $batch->next } otherwise { $r = -1 }) {
@@ -271,7 +272,8 @@ sub process_spool {
                        } else {
                                _add_auth_rec( $e, $xml, $queue_id, $purpose ) or return $e->die_event;
                        }
-                       $client->respond($count) if (++$count % 10) == 0;
+                       $client->respond($count) if (++$count % $response_scale) == 0;
+                       $response_scale *= 10 if ($count == ($response_scale * 10));
                } catch Error with {
                        my $error = shift;
                        $logger->warn("Encountered a bad record at Vandelay ingest: ".$error);