[freeside-commits] freeside/bin freeside-create-initial-data, NONE, 1.1

[Ivan,,,]

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;