[open-ils-commits] r11691 - branches/rel_1_2_4/Open-ILS/src/support-scripts

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-29 12:55:47 -0500 (Mon, 29 Dec 2008)
New Revision: 11691

Modified:
   branches/rel_1_2_4/Open-ILS/src/support-scripts/hold_targeter.pl
Log:
if the hold targeter server process stops responding, clean up and go away

Modified: branches/rel_1_2_4/Open-ILS/src/support-scripts/hold_targeter.pl
===================================================================
--- branches/rel_1_2_4/Open-ILS/src/support-scripts/hold_targeter.pl	2008-12-29 17:55:34 UTC (rev 11690)
+++ branches/rel_1_2_4/Open-ILS/src/support-scripts/hold_targeter.pl	2008-12-29 17:55:47 UTC (rev 11691)
@@ -26,7 +26,11 @@
 		->create( 'open-ils.storage' )
 		->request( 'open-ils.storage.action.hold_request.copy_targeter' => '24h' );
 
-while (!$r->complete) { $r->recv };
+while (!$r->complete) { 
+    my $start = time;
+    $r->recv(timeout => 3600);
+    last if (time() - $start) >= 3600;
+};
 
 unlink $lockfile;