/
createpool.pl
executable file
·52 lines (41 loc) · 1.98 KB
/
createpool.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#!/usr/bin/perl
#####################################################################
#
# createpool.pl
#
# Erzeugung einer Katalog-Datenbank
#
# Dieses File ist (C) 1997-2012 Oliver Flimm <flimm@openbib.org>
#
# Dieses Programm ist freie Software. Sie koennen es unter
# den Bedingungen der GNU General Public License, wie von der
# Free Software Foundation herausgegeben, weitergeben und/oder
# modifizieren, entweder unter Version 2 der Lizenz oder (wenn
# Sie es wuenschen) jeder spaeteren Version.
#
# Die Veroeffentlichung dieses Programms erfolgt in der
# Hoffnung, dass es Ihnen von Nutzen sein wird, aber OHNE JEDE
# GEWAEHRLEISTUNG - sogar ohne die implizite Gewaehrleistung
# der MARKTREIFE oder der EIGNUNG FUER EINEN BESTIMMTEN ZWECK.
# Details finden Sie in der GNU General Public License.
#
# Sie sollten eine Kopie der GNU General Public License zusammen
# mit diesem Programm erhalten haben. Falls nicht, schreiben Sie
# an die Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
# MA 02139, USA.
#
#####################################################################
$pool=$ARGV[0];
#####################################################################
# Einladen der benoetigten Perl-Module
#####################################################################
use OpenBib::Config;
my $config = OpenBib::Config->new;
# Anlegen des Mysql-Pools
print "Creating Pool $pool\n";
system("echo \"*:*:*:$config->{'dbuser'}:$config->{'dbpasswd'}\" > ~/.pgpass ; chmod 0600 ~/.pgpass");
system("/usr/bin/dropdb -U $config->{'dbuser'} -h $config->{'dbhost'} $pool");
system("/usr/bin/createdb -U $config->{'dbuser'} -h $config->{'dbhost'} -E UTF-8 -O $config->{'dbuser'} $pool");
# Einladen der Datenbankdefinitionen
system("/usr/bin/psql -U $config->{'dbuser'} -h $config->{'dbhost'} -f '$config->{'dbdesc_dir'}/postgresql/pool.sql' $pool");
system("/usr/bin/psql -U $config->{'dbuser'} -h $config->{'dbhost'} -f '$config->{'dbdesc_dir'}/postgresql/pool_create_index.sql' $pool");