diff options
author | jeff <jeff> | 2007-07-12 13:36:27 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-07-12 13:36:27 +0000 |
commit | cd907554f4c08175c379e204e28e26483acf957a (patch) | |
tree | f07a03443fcb8e1673ba24af0ef729e440f3ed4c /FS/bin/freeside-upgrade | |
parent | 161172b3162b1495e3d8d0f7425a8b699ffab9fe (diff) |
refactor freeside-init-config to module code, compare results of old/new code, have freeside-upgrade complain and revert to old code/config on failure (#1477)
Diffstat (limited to 'FS/bin/freeside-upgrade')
-rwxr-xr-x | FS/bin/freeside-upgrade | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/FS/bin/freeside-upgrade b/FS/bin/freeside-upgrade index 04e5da988..eb818ea4e 100755 --- a/FS/bin/freeside-upgrade +++ b/FS/bin/freeside-upgrade @@ -9,6 +9,8 @@ use FS::UID qw(adminsuidsetup checkeuid datasrc ); #getsecrets); use FS::CurrentUser; use FS::Schema qw( dbdef dbdef_dist reload_dbdef ); use FS::Misc::prune qw(prune_applications); +use FS::Conf; +use FS::Record qw(qsearch); die "Not running uid freeside!" unless checkeuid(); @@ -56,11 +58,24 @@ dbdef_create($dbh, $dbdef_file); $dbh->disconnect or die $dbh->errstr; +delete $FS::Schema::dbdef_cache{$dbdef_file}; #force an actual reload +$FS::UID::AutoCommit = 1; +$FS::UID::callback_hack = 1; +$dbh = adminsuidsetup($user); +$FS::UID::callback_hack = 0; unless ( $DRY_RUN ) { - my $init_config = "freeside-init-config -u $user "; - $init_config .= "%%%FREESIDE_CONF%%%/conf.". datasrc; - system "$init_config" ; + my $dir = "%%%FREESIDE_CONF%%%/conf.". datasrc; + if (!scalar(qsearch('conf', {}))) { + my $error = FS::Conf::init_config($dir); + if ($error) { + warn "CONFIGURATION UPGRADE FAILED\n"; + $dbh->rollback or die $dbh->errstr; + die $error; + } + } } +$dbh->commit or die $dbh->errstr; +$dbh->disconnect or die $dbh->errstr; ### |