[freeside-commits] freeside/bin freeside-create-initial-data, NONE, 1.1
Ivan,,,
ivan at wavetail.420.am
Tue Feb 24 01:41:49 PST 2009
Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv29807
Added Files:
freeside-create-initial-data
Log Message:
somehow rc install wound up without any data
--- NEW FILE: freeside-create-initial-data ---
#!/usr/bin/perl -Tw
use strict;
use vars qw($opt_d $opt_v);
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use FS::Setup qw(create_initial_data);
getopts("d:");
my $dbh = adminsuidsetup shift;
create_initial_data('domain' => $opt_d);
warn "Freeside initial data inserted - commiting transaction\n" if $opt_v;
$dbh->commit or die $dbh->errstr;
$dbh->disconnect or die $dbh->errstr;
warn "Database initialization committed successfully\n" if $opt_v;
sub usage {
die "Usage:\n freeside-create-initial-data -d domain.name [ -v ] user\n"
}
1;
More information about the freeside-commits
mailing list