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