From: ivan <ivan>
Date: Tue, 15 Jul 2008 23:17:30 +0000 (+0000)
Subject: report errors connecting to sqlradius dbs on upgrade
X-Git-Tag: root_of_webpay_support~482
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2ebfad10ba4587b06ab3eec10b9a041cfec14d83;p=freeside.git

report errors connecting to sqlradius dbs on upgrade
---

diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm
index e4561e72f..37167a8af 100644
--- a/FS/FS/Upgrade.pm
+++ b/FS/FS/Upgrade.pm
@@ -122,6 +122,12 @@ sub upgrade_sqlradius {
       { PrintError => 0, PrintWarn => 0 }
     );
 
+    unless $dbh {
+      warn "can't connect to RADIUS database ".
+           $part_export->option('datasrc').  ": $DBI::errstr\n";
+      next;
+    }
+
     my $errmsg = 'Error adding FreesideStatus to '.
                  $part_export->option('datasrc'). ': ';