From: 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'). ': ';