diff options
author | ivan <ivan> | 2008-07-15 23:17:30 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-07-15 23:17:30 +0000 |
commit | 2ebfad10ba4587b06ab3eec10b9a041cfec14d83 (patch) | |
tree | e3eaef6589fd5498ec7762702f0f299af7e77446 | |
parent | 65c9c676535ac629adbb7d6480afec0c6199910d (diff) |
report errors connecting to sqlradius dbs on upgrade
-rw-r--r-- | FS/FS/Upgrade.pm | 6 |
1 files changed, 6 insertions, 0 deletions
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'). ': '; |