[open-ils-commits] r15830 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-03-12 14:02:18 -0500 (Fri, 12 Mar 2010)
New Revision: 15830

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
scale the response rate with the number of records processed so far

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-03-12 17:04:05 UTC (rev 15829)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2010-03-12 19:02:18 UTC (rev 15830)
@@ -248,6 +248,7 @@
 	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 @@
 			} 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);