bin/freeside-create-initial-data

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use vars qw($opt_d $opt_v);
   5 use Getopt::Std;
   6 use FS::UID qw(adminsuidsetup);
   7 use FS::Setup qw(create_initial_data);
   8
   9 getopts("d:");
  10
  11 my $dbh = adminsuidsetup shift;
  12 create_initial_data('domain' => $opt_d);
  13
  14 warn "Freeside initial data inserted - commiting transaction\n" if $opt_v;
  15
  16 $dbh->commit or die $dbh->errstr;
  17 $dbh->disconnect or die $dbh->errstr;
  18
  19 warn "Database initialization committed successfully\n" if $opt_v;
  20
  21 sub usage {
  22   die "Usage:\n  freeside-create-initial-data -d domain.name [ -v ] user\n"
  23 }
  24
  25 1;
  26