From 1631d19acbaecf1cf294ccf67f1c15c0c952777a Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 14 Dec 2005 15:14:42 +0000 Subject: [PATCH] add "port" as a setting for the Pg driver git-svn-id: svn://svn.open-ils.org/ILS/trunk@2368 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Storage/Driver/Pg.pm | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm index f4c333539c..bde3e7df7e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg.pm @@ -52,11 +52,25 @@ ); my $master = shift @$_db_params; + $$master{port} ||= '5432'; + $$master{host} ||= 'localhost'; + $$master{db} ||= 'openils'; + $log->debug("Attmpting to connet to $$master{db} at $$master{host}", INFO); try { - $master_db = DBI->connect("dbi:Pg:host=$$master{host};dbname=$$master{db}",$$master{user},$$master{pw}, \%attrs) || - throw OpenSRF::EX::ERROR ("Couldn't connect to $$master{db} on $$master{host} as $$master{user}!!"); + $master_db = DBI->connect( + "dbi:Pg:". + "host=$$master{host};". + "port=$$master{port};". + "dbname=$$master{db}", + $$master{user}, + $$master{pw}, + \%attrs) || + throw OpenSRF::EX::ERROR + ("Couldn't connect to $$master{db}". + " on $$master{host}::$$master{port}". + " as $$master{user}!!"); } catch Error with { my $e = shift; $log->debug("Error connecting to database:\n\t$e\n\t$DBI::errstr", ERROR); -- 2.43.2