summaryrefslogtreecommitdiff
path: root/FS/bin/freeside-init-config
diff options
context:
space:
mode:
Diffstat (limited to 'FS/bin/freeside-init-config')
-rwxr-xr-xFS/bin/freeside-init-config45
1 files changed, 0 insertions, 45 deletions
diff --git a/FS/bin/freeside-init-config b/FS/bin/freeside-init-config
deleted file mode 100755
index fe4729c40..000000000
--- a/FS/bin/freeside-init-config
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use strict;
-use vars qw($opt_u $opt_f $opt_v);
-use Getopt::Std;
-use FS::UID qw(adminsuidsetup checkeuid dbh);
-use FS::CurrentUser;
-use FS::Record qw(qsearch);
-use FS::Conf;
-
-
-die "Not running uid freeside!" unless checkeuid();
-
-getopts("u:vf");
-my $dir = shift or die &usage;
-
-$FS::CurrentUser::upgrade_hack = 1;
-$FS::UID::AutoCommit = 0;
-$FS::UID::callback_hack = 1;
-adminsuidsetup $opt_u; #$user;
-
-$|=1;
-
-if (!scalar(qsearch('conf', {})) || $opt_f) {
- my $error = FS::Conf::init_config($dir);
- if ($error) {
- warn "CONFIGURATION INITIALIZATION FAILED\n";
- dbh->rollback or die dbh->errstr;
- die $error if $error;
- }
-}
-
-warn "Freeside database initialized - committing transaction\n" if $opt_v;
-
-dbh->commit or die dbh->errstr;
-dbh->disconnect or die dbh->errstr;
-
-warn "Configuration initialization committed successfully\n" if $opt_v;
-
-sub usage {
- die "Usage:\n freeside-init-config [ -v ] [ -f ] directory\n"
- # [ -u user ] for devel/multi-db installs
-}
-
-1;