use FS::Misc::prune qw(prune_applications);
use FS::Conf;
use FS::Record qw(qsearch);
-use FS::Upgrade qw(upgrade);
+use FS::Upgrade qw(upgrade upgrade_sqlradius);
die "Not running uid freeside!" unless checkeuid();
my $hashref = {};
$hashref->{dry_run} = 1 if $DRY_RUN;
-$hashref->{debug} = 1 if $DEBUG;
-print join "\n", prune_applications($hashref) unless $opt_s;
+$hashref->{debug} = 1 if $DEBUG && $DRY_RUN;
+prune_applications($hashref) unless $opt_s;
+
print "\n" if $DRY_RUN;
if ( $dbh->{Driver}->{Name} =~ /^mysql/i && ! $opt_s ) {
upgrade()
unless $DRY_RUN || $opt_s;
+upgrade_sqlradius()
+ unless $DRY_RUN || $opt_s;
+
$dbh->commit or die $dbh->errstr;
$dbh->disconnect or die $dbh->errstr;
}
sub usage {
- die "Usage:\n freeside-upgrade [ -d ] [ -q | -v ] user\n";
+ die "Usage:\n freeside-upgrade [ -d ] [ -s ] [ -q | -v ] user\n";
}
=head1 NAME