Patch from Joe Atzberger to verify custom filter file opened successfully

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

diff --git a/Open-ILS/src/support-scripts/action_trigger_runner.pl b/Open-ILS/src/support-scripts/action_trigger_runner.pl
index 5ba9492..e1246a2 100755 (executable)
--- a/Open-ILS/src/support-scripts/action_trigger_runner.pl
+++ b/Open-ILS/src/support-scripts/action_trigger_runner.pl
@@ -60,9 +60,12 @@ my $hook_handlers = {
 };
 
 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 {