[open-ils-commits] r15361 - branches/rel_1_6_0/Open-ILS/src/support-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-01-21 13:07:15 -0500 (Thu, 21 Jan 2010)
New Revision: 15361

Modified:
   branches/rel_1_6_0/Open-ILS/src/support-scripts/action_trigger_runner.pl
Log:
Patch from Joe Atzberger to verify custom filter file opened successfully

Modified: branches/rel_1_6_0/Open-ILS/src/support-scripts/action_trigger_runner.pl
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/support-scripts/action_trigger_runner.pl	2010-01-21 18:06:58 UTC (rev 15360)
+++ branches/rel_1_6_0/Open-ILS/src/support-scripts/action_trigger_runner.pl	2010-01-21 18:07:15 UTC (rev 15361)
@@ -60,9 +60,12 @@
 };
 
 if ($opt_custom_filter) {
-    open FILTERS, $opt_custom_filter;
-    $hook_handlers = OpenSRF::Utils::JSON->JSON2perl(join('',(<FILTERS>)));
-    close FILTERS;
+    if (open FILTERS, $opt_custom_filter) {
+        $hook_handlers = OpenSRF::Utils::JSON->JSON2perl(join('',(<FILTERS>)));
+        close FILTERS;
+    } else {
+        die "Cannot read filter file '$opt_custom_filter'";
+    }
 }
 
 sub help {