4 use vars qw($opt_d $opt_v);
6 use FS::UID qw(adminsuidsetup);
7 use FS::Setup qw(create_initial_data);
11 my $dbh = adminsuidsetup shift;
12 create_initial_data('domain' => $opt_d);
14 warn "Freeside initial data inserted - commiting transaction\n" if $opt_v;
16 $dbh->commit or die $dbh->errstr;
17 $dbh->disconnect or die $dbh->errstr;
19 warn "Database initialization committed successfully\n" if $opt_v;
22 die "Usage:\n freeside-create-initial-data -d domain.name [ -v ] user\n"