From: Andy Witter <awitter@georgialibraries.org>
Date: Fri, 17 May 2013 07:29:47 +0000 (-0400)
Subject: removed depracated eg_db_config.pl using eg_db_config included in the deb file
X-Git-Tag: GenaSYS-2.4.0~10
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=35a282294affd0b59eb4d657d4aa00e1ba3778a0;p=contrib%2Fpines%2Fgenasys.git

removed depracated eg_db_config.pl using eg_db_config included in the deb file
---

diff --git a/templates/db/eg_db_config.pl b/templates/db/eg_db_config.pl
deleted file mode 100755
index 93c53fa..0000000
--- a/templates/db/eg_db_config.pl
+++ /dev/null
@@ -1,385 +0,0 @@
-#!/usr/bin/perl
-# eg_db_config.pl -- configure Evergreen database settings and create schema
-# vim:noet:ts=4:sw=4:
-#
-# Copyright (C) 2008 Equinox Software, Inc.
-# Copyright (C) 2008-2009 Laurentian University
-# Author: Kevin Beswick <kevinbeswick00@gmail.com>
-# Author: Dan Scott <dscott@laurentian.ca>
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-
-use strict; use warnings;
-use XML::LibXML;
-use File::Copy;
-use Getopt::Long;
-use File::Spec;
-use File::Basename;
-use DBI;
-
-my ($dbhost, $dbport, $dbname, $dbuser, $dbpw, $help, $admin_user, $admin_pw);
-my $config_file = '';
-my $build_db_sh = '';
-my $offline_file = '';
-my $prefix = '';
-my $sysconfdir = '';
-my $pg_contribdir = '';
-my $create_db_sql = '';
-my $create_db_sql_9_1 = '';
-my @services;
-
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
-
-# Get the directory for this script
-my $script_dir = dirname($0);
-
-=over
-
-=item update_config() - Puts command line specified settings into xml file
-=cut
-sub update_config {
-	my ($services, $settings) = @_;
-
-	my $parser = XML::LibXML->new();
-	my $opensrf_config = $parser->parse_file($config_file);
-
-	if (@$services) {
-		foreach my $service (@$services) {
-			foreach my $key (keys %$settings) {
-				next unless $settings->{$key};
-				my @node;
-
-				if ($service eq 'state_store') {
-					(@node) = $opensrf_config->findnodes("//state_store/$key/text()");
-				} else {
-					(@node) = $opensrf_config->findnodes("//$service//database/$key/text()");
-				}
-
-				foreach (@node) {
-					$_->setData($settings->{$key});
-				}
-			}
-
-		}
-	}
-
-	my $timestamp = sprintf("%d.%d.%d.%d.%d.%d",
-		$year + 1900, $mon +1, $mday, $hour, $min, $sec);
-	if (copy($config_file, "$config_file.$timestamp")) {
-		print "Backed up original configuration file to '$config_file.$timestamp'\n";
-	} else {
-		print STDERR "Unable to write to '$config_file.$timestamp'; bailed out.\n";
-	}
-
-	$opensrf_config->toFile($config_file) or
-		die "ERROR: Failed to update the configuration file '$config_file'\n";
-}
-
-=item create_offline_config() - Write out the offline config
-=cut
-sub create_offline_config {
-	my ($setup, $settings) = @_;
-
-	open(FH, '>', $setup) or die "Could not write offline database setup to $setup\n";
-
-	print "Writing offline database configuration to $setup\n";
-
-	printf FH "\$main::config{base_dir} = '%s/var/data/offline/';\n", $prefix;
-	printf FH "\$main::config{bootstrap} = '%s/opensrf_core.xml';\n", $sysconfdir;
-
-	printf FH "\$main::config{dsn} = 'dbi:Pg:host=%s;dbname=%s;port=%d';\n",
-		$settings->{host}, $settings->{db}, $settings->{port};
-
-	printf FH "\$main::config{usr} = '%s';\n", $settings->{user};
-	printf FH "\$main::config{pw} = '%s';\n", $settings->{pw};
-
-	close(FH);
-}
-
-=item get_settings() - Extracts database settings from opensrf.xml
-=cut
-sub get_settings {
-	my $settings = shift;
-
-	my $host = "/opensrf/default/apps/open-ils.storage/app_settings/databases/database/host/text()";
-	my $port = "/opensrf/default/apps/open-ils.storage/app_settings/databases/database/port/text()";
-	my $dbname = "/opensrf/default/apps/open-ils.storage/app_settings/databases/database/db/text()";
-	my $user = "/opensrf/default/apps/open-ils.storage/app_settings/databases/database/user/text()";
-	my $pw = "/opensrf/default/apps/open-ils.storage/app_settings/databases/database/pw/text()";
-
-	my $parser = XML::LibXML->new();
-	my $opensrf_config = $parser->parse_file($config_file);
-
-	# If the user passed in settings at the command line,
-	# we don't want to override them
-	$settings->{host} = $settings->{host} || $opensrf_config->findnodes($host);
-	$settings->{port} = $settings->{port} || $opensrf_config->findnodes($port);
-	$settings->{db} = $settings->{db} || $opensrf_config->findnodes($dbname);
-	$settings->{user} = $settings->{user} || $opensrf_config->findnodes($user);
-	$settings->{pw} = $settings->{pw} || $opensrf_config->findnodes($pw);
-}
-
-=item create_database() - Creates the database using create_database.sql
-=cut
-sub create_database {
-	my $settings = shift;
-
-	$ENV{'PGUSER'} = $settings->{user};
-	$ENV{'PGPASSWORD'} = $settings->{pw};
-	$ENV{'PGPORT'} = $settings->{port};
-	$ENV{'PGHOST'} = $settings->{host};
-	my @temp = `psql -d postgres -qtc 'show server_version;' | xargs | cut -c1,3`;
-	chomp $temp[0];
-	my $pgversion = $temp[0];
-	my $cmd;
-	# If it looks like it is 9.1 or greater, use create_database_9_1.sql
-	# Otherwise use create_database.sql
-	if($pgversion >= '91') {
-		$cmd = 'psql -vdb_name=' . $settings->{db} . ' -d postgres -f ' . $create_db_sql_9_1;
-	} else {
-		$cmd = 'psql -vdb_name=' . $settings->{db} . ' -vcontrib_dir=' . $pg_contribdir .
-			' -d postgres -f ' . $create_db_sql;
-	}
-	my @output = `$cmd 2>&1`;
-	if(grep(/(ERROR|No such file or directory)/,@output)) {
-		push(@output, "\n------------------------------------------------------------------------------\n",
-			"There was a problem creating the database.\n",
-			"See above for more information.\n");
-		if(grep/unsupported language/, @output) {
-			push(@output, "\nYou may need to install the postgresql plperl package on the database server.\n");
-		}
-		if(grep/No such file or directory/, @output) {
-			if($pgversion >= '91') {
-				push(@output, "\nYou may need to install the postgresql contrib package on the database server.\n"); 
-			} else {
-				push(@output, "\nYou may need to install the postgresql contrib package on this server.\n");
-			}
-		}
-		push(@output, "------------------------------------------------------------------------------\n");
-		die(@output);
-	}
-}
-
-=item create_schema() - Creates the database schema by calling build-db.sh
-=cut
-sub create_schema {
-	my $settings = shift;
-
-	chdir(dirname($build_db_sh));
-	my $cmd = File::Spec->catfile('.', basename($build_db_sh)) . " " .
-		$settings->{host} ." ".  $settings->{port} ." ". 
-		$settings->{db} ." ".  $settings->{user} ." ". 
-		$settings->{pw};
-	system($cmd);
-	chdir($script_dir);
-}
-
-=item set_admin_account() - Sets the administrative user's user name and password
-=cut
-sub set_admin_account {
-	my $admin_user = shift;
-	my $admin_pw = shift;
-	my $settings = shift;
-
-	my $dbh = DBI->connect('dbi:Pg:dbname=' . $settings->{db} . 
-		';host=' . $settings->{host} . ';port=' . $settings->{port} . ';',
-		 $settings->{user} . "", $settings->{pw} . "", {AutoCommit => 1}
-	);
-	if ($dbh->err) {
-		print STDERR "Could not connect to database to set admin account. ";
-		print STDERR "Error was " . $dbh->errstr . "\n";
-		return;
-	}
-	my $stmt = $dbh->prepare("UPDATE actor.usr SET usrname = ?, passwd = ? WHERE id = 1");
-	$stmt->execute(($admin_user, $admin_pw));
-	if ($dbh->err) {
-		print STDERR "Failed to set admin account. ";
-		print STDERR "Error was " . $dbh->errstr . "\n";
-		return;
-	}
-}
-
-my $offline;
-my $cdatabase;
-my $cschema;
-my $uconfig;
-my $pgconfig;
-my %settings;
-
-GetOptions("create-schema" => \$cschema, 
-		"create-database" => \$cdatabase,
-		"create-offline" => \$offline,
-		"update-config" => \$uconfig,
-		"config-file=s" => \$config_file,
-		"build-db-file=s" => \$build_db_sh,
-		"pg-contrib-dir=s" => \$pg_contribdir,
-		"create-db-sql=s" => \$create_db_sql,
-		"create-db-sql-9-1=s" => \$create_db_sql_9_1,
-		"pg-config=s" => \$pgconfig,
-		"admin-user=s" => \$admin_user,
-		"admin-password=s" => \$admin_pw,
-		"service=s" => \@services,
-		"user=s" => \$settings{'user'},
-		"password=s" => \$settings{'pw'},
-		"database=s" => \$settings{'db'},
-		"hostname=s" => \$settings{'host'},
-		"port=i" => \$settings{'port'}, 
-		"help" => \$help
-);
-
-if (grep(/^all$/, @services)) {
-	@services = qw/reporter open-ils.cstore open-ils.pcrud open-ils.storage open-ils.reporter-store state_store/;
-}
-
-my $eg_config = File::Spec->catfile($script_dir, '../extras/eg_config');
-
-if (!$config_file) { 
-	my @temp = `$eg_config --sysconfdir`;
-	chomp $temp[0];
-	$sysconfdir = $temp[0];
-	$config_file = File::Spec->catfile($sysconfdir, "opensrf.xml");
-}
-
-if (!$prefix) {
-	my @temp = `$eg_config --prefix`;
-	chomp $temp[0];
-	$prefix = $temp[0];
-}
-
-if (!$build_db_sh) {
-	$build_db_sh = File::Spec->catfile($script_dir, '../sql/Pg/build-db.sh');
-}
-
-if (!$pg_contribdir) {
-	$pgconfig = 'pg_config' if(!$pgconfig);
-	my @temp = `$pgconfig --sharedir`;
-	chomp $temp[0];
-	$pg_contribdir = File::Spec->catdir($temp[0], 'contrib');
-}
-
-if (!$create_db_sql) {
-	$create_db_sql = File::Spec->catfile($script_dir, '../sql/Pg/create_database.sql');
-}
-
-if (!$create_db_sql_9_1) {
-	$create_db_sql_9_1 = File::Spec->catfile($script_dir, '../sql/Pg/create_database_9_1.sql');
-}
-
-if (!$offline_file) {
-	$offline_file = File::Spec->catfile($sysconfdir, 'offline-config.pl');
-}
-
-unless (-e $build_db_sh) { die "Error: $build_db_sh does not exist. \n"; }
-unless (-e $config_file) { die "Error: $config_file does not exist. \n"; }
-
-if ($uconfig) { update_config(\@services, \%settings); }
-
-# Get our settings from the config file
-get_settings(\%settings);
-
-if ($cdatabase) { create_database(\%settings); }
-if ($cschema) { create_schema(\%settings); }
-if ($admin_user && $admin_pw) {
-	set_admin_account($admin_user, $admin_pw, \%settings);
-}
-if ($offline) { create_offline_config($offline_file, \%settings); }
-
-if ((!$cdatabase && !$cschema && !$uconfig && !$offline && !$admin_pw) || $help) {
-	print <<HERE;
-
-SYNOPSIS
-    eg_db_config.pl [OPTION] ... [COMMAND] ... [CONFIG OPTIONS]
-
-DESCRIPTION
-    Creates or recreates the Evergreen database schema based on the settings
-    in the opensrf.xml configuration file.
-
-    Manipulates the configuration file 
-
-OPTIONS
-    --config-file
-        specifies the opensrf.xml file. Defaults to /openils/conf/opensrf.xml
-
-    --build-db-file
-        specifies the script that creates the database schema. Defaults to
-        Open-ILS/src/sql/pg/build-db.sh
-
-    --offline-file
-        specifies the offline database settings file required by the offline
-        data uploader. Defaults to /openils/conf/offline-config.pl
-
-COMMANDS
-    --update-config
-        Configures Evergreen database settings in the file specified by
-        --build-db-file.  
-
-    --create-offline
-        Creates the database setting file required by the offline data uploader
-
-    --create-schema
-        Creates the Evergreen database schema according to the settings in
-        the file specified by --config-file.  
-
-    --create-database
-        Creates the database itself, provided the user and password options
-        represent a superuser.
-
-SERVICE OPTIONS
-    --service
-        Specify "all" or one or more of the following services to update:
-            * reporter
-            * open-ils.cstore
-            * open-ils.pcrud
-            * open-ils.storage
-            * open-ils.reporter-store
-            * state_store
-    
-DATABASE CONFIGURATION OPTIONS
-    --user            username for the database 
-
-    --password        password for the user 
-
-    --database        name of the database 
-
-    --hostname        name or address of the database host 
-
-    --port            port number for database access
-
-    --admin-user      administration user's user name
-
-    --admin-pass      administration user's password
-
-EXAMPLES
-   This script is normally used during the initial installation and
-   configuration process. This creates the database schema, sets
-   the administration user's user name and password, and modifies your
-   configuration files to include the correct database connection
-   information.
-
-   For a single server install, or an install with one web/application
-   server and one database server, you will typically want to invoke this
-   script with a complete set of commands:
-
-   perl Open-ILS/src/support-scripts/eg_db_config.pl --update-config \
-       --service all --create-schema --create-offline \
-       --user <db-user> --password <db-pass> --hostname localhost --port 5432 \
-       --database evergreen --admin-user <admin-user> --admin-pass <admin-pass> 
-
-   To update the configuration for a single service - for example, if you
-   replicated a database for reporting purposes - just issue the
-   --update-config command with the service identified and the changed
-   database parameters specified:
-
-   perl Open-ILS/src/support-scripts/eg_db_config.pl --update-config \
-       --service reporter --hostname foobar --password newpass
-
-HERE
-}