diff options
Diffstat (limited to 'FS/bin/freeside-upgrade')
| -rwxr-xr-x | FS/bin/freeside-upgrade | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/FS/bin/freeside-upgrade b/FS/bin/freeside-upgrade index 3a4e4f8e3..322987c60 100755 --- a/FS/bin/freeside-upgrade +++ b/FS/bin/freeside-upgrade @@ -8,6 +8,7 @@ use DBIx::DBSchema 0.31; use FS::UID qw(adminsuidsetup checkeuid datasrc ); #getsecrets); use FS::CurrentUser; use FS::Schema qw( dbdef dbdef_dist reload_dbdef ); +use FS::Misc qw(prune_applications); die "Not running uid freeside!" unless checkeuid(); @@ -40,6 +41,13 @@ if ( $DRY_RUN ) { dbdef->update_schema( dbdef_dist, $dbh ); } +my $hashref = {}; +$hashref->{dry_run} = 1 if $DRY_RUN; +$hashref->{debug} = 1 if $DEBUG; +print join "\n", prune_applications($hashref); +print "\n" if $DRY_RUN; + + $dbh->commit or die $dbh->errstr; dbdef_create($dbh, $dbdef_file); @@ -64,7 +72,7 @@ freeside-upgrade - Upgrades database schema for new freeside verisons. =head1 SYNOPSIS - freeside-adduser [ -d ] [ -q | -v ] + freeside-upgrade [ -d ] [ -q | -v ] =head1 DESCRIPTION |