use FS::Misc::prune qw(prune_applications);
use FS::Conf;
use FS::Record qw(qsearch);
+use FS::Upgrade qw(upgrade);
die "Not running uid freeside!" unless checkeuid();
$dbh->disconnect or die $dbh->errstr;
delete $FS::Schema::dbdef_cache{$dbdef_file}; #force an actual reload
-$FS::UID::AutoCommit = 1;
+$FS::UID::AutoCommit = 0;
$FS::UID::callback_hack = 1;
$dbh = adminsuidsetup($user);
$FS::UID::callback_hack = 0;
$dbh->commit or die $dbh->errstr;
$dbh->disconnect or die $dbh->errstr;
+$dbh = adminsuidsetup($user);
+
+upgrade()
+ unless $DRY_RUN;
+
+$dbh->commit or die $dbh->errstr;
+$dbh->disconnect or die $dbh->errstr;
+
###
sub dbdef_create { # reverse engineer the schema from the DB and save to file