From e61149f7135b750b2b6ff6ee94f461460163ddea Mon Sep 17 00:00:00 2001
From: Mitch Jackson <mitch@freeside.biz>
Date: Tue, 8 Jan 2019 00:01:21 -0500
Subject: RT# 81701 Add system log lines for EFT Canada upload/download

---
 FS/bin/freeside-eftca-download | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'FS/bin/freeside-eftca-download')

diff --git a/FS/bin/freeside-eftca-download b/FS/bin/freeside-eftca-download
index caf9e0e70..56d82c7f5 100755
--- a/FS/bin/freeside-eftca-download
+++ b/FS/bin/freeside-eftca-download
@@ -57,7 +57,10 @@ my $conf = new FS::Conf;
 
 my @agents;
 if ( $conf->exists('batch-spoolagent') ) {
-  @agents = qsearch('agent', { 'disabled' => '' });
+  local $@;
+  eval { @agents = qsearch('agent', { 'disabled' => '' }); };
+  log_error_and_die("Fatal database error: $@")
+    if $@;
 } else {
   @agents = (1);
 }
-- 
cgit v1.2.1