use vars qw($opt_s $opt_d $opt_v);
use Getopt::Std;
use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
+use FS::CurrentUser;
use FS::Schema qw( dbdef_dist reload_dbdef );
use FS::Record;
#use FS::raddb;
# create 'em
###
+$FS::CurrentUser::upgrade_hack = 1;
my $dbh = adminsuidsetup $user;
#create tables
$dbh->commit or die $dbh->errstr;
$dbh->disconnect or die $dbh->errstr;
-warn "Database initialization committed sucessfully\n" if $opt_v;
+warn "Database initialization committed successfully\n" if $opt_v;
sub dbdef_create { # reverse engineer the schema from the DB and save to file
my( $dbh, $file ) = @_;