This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6

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;