From bd177068ec57b08626d33327f6f7514317069178 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 13 Jan 2015 11:19:11 +0100
Subject: [PATCH] nacteni konfiguracniho souboru klienta presunuto na zacatek
modulu
---
src/warden-client/lib/WardenClientCommon.pm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm
index d4c957e..c81f9ad 100755
--- a/src/warden-client/lib/WardenClientCommon.pm
+++ b/src/warden-client/lib/WardenClientCommon.pm
@@ -18,6 +18,12 @@ use Carp;
our $VERSION = "2.2";
+# load client configuration
+my $lib = File::Basename::dirname(__FILE__);
+my $etc = "$lib/../etc";
+my $conf_file = "$etc/warden-client.conf";
+loadConf($conf_file);
+
#-------------------------------------------------------------------------------
# errMsg - prints error msg and returns undef or prints warning and returns 1
@@ -134,12 +140,6 @@ sub c2s
#-------------------------------------------------------------------------------
sub getClientInfo
{
- # load client configuration
- my $lib = File::Basename::dirname(__FILE__);
- my $etc = "$lib/../etc";
- my $conf_file = "$etc/warden-client.conf";
- loadConf($conf_file);
-
# obtain information about clients on Warden server
my $response = c2s($WardenClientCommon::URI, $WardenClientCommon::SSL_KEY, $WardenClientCommon::SSL_CERT, $WardenClientCommon::SSL_CA_CERT, "getClientInfo");
defined $response or return; # receive data or return undef
--
GitLab