From f50f46aabdc9c6ef2d66ca959f73661b85a0f0aa Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 16 Feb 2005 17:48:04 +0000
Subject: [PATCH] fixed up to make the remote settings grabbing work...

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@75 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/SettingsClient.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/perlmods/OpenSRF/Utils/SettingsClient.pm b/src/perlmods/OpenSRF/Utils/SettingsClient.pm
index 6a4365d..0f1eeaa 100755
--- a/src/perlmods/OpenSRF/Utils/SettingsClient.pm
+++ b/src/perlmods/OpenSRF/Utils/SettingsClient.pm
@@ -1,3 +1,4 @@
+use strict; use warnings;
 package OpenSRF::Utils::SettingsClient;
 use OpenSRF::Utils::SettingsParser;
 use OpenSRF::System;
@@ -17,6 +18,9 @@ $host_config = undef;
 sub config_value {
 	my($self,@keys) = @_;
 
+
+	my $bsconfig = OpenSRF::Utils::Config->current;
+	my $host = $bsconfig->env->hostname;
 	if(!$host_config) { grab_host_config($host); }
 	if(!$host_config) {
 		throw OpenSRF::EX::Config ("Unable to retrieve host config for $host" );
@@ -46,6 +50,7 @@ sub grab_host_config {
 
 	my $host = shift;
 
+	warn "Grabbing Host config for $host\n";
 	OpenSRF::System::bootstrap_client("system_client");
 	$session = OpenSRF::AppSession->create( "settings" ) unless $session;
 	my $bsconfig = OpenSRF::Utils::Config->current;
-- 
2.11.0