summaryrefslogtreecommitdiff
path: root/bin/freeside-create-initial-data
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2010-12-27 00:04:45 +0000
committercvs2git <cvs2git>2010-12-27 00:04:45 +0000
commitc82d349f864e6bd9f96fd1156903bc1f7193a203 (patch)
treee117a87533656110b6acd56fc0ca64289892a9f5 /bin/freeside-create-initial-data
parent74e058c8a010ef6feb539248a550d0bb169c1e94 (diff)
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'bin/freeside-create-initial-data')
-rwxr-xr-xbin/freeside-create-initial-data31
1 files changed, 0 insertions, 31 deletions
diff --git a/bin/freeside-create-initial-data b/bin/freeside-create-initial-data
deleted file mode 100755
index 410208978..000000000
--- a/bin/freeside-create-initial-data
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl -Tw
-
-#to allow initial insert
-use FS::part_pkg;
-$FS::part_pkg::setup_hack = 1;
-$FS::part_pkg::setup_hack = 1;
-
-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;
-