From e1350344417a09c97472309bedcac37f2309903b Mon Sep 17 00:00:00 2001 From: Tomas Plesnik <plesnik@ics.muni.cz> Date: Mon, 12 Jan 2015 17:30:41 +0100 Subject: [PATCH] funkce loadConf presunuta do WardenClientCommon.pm --- src/warden-client/lib/WardenClientConf.pm | 40 ----------------------- 1 file changed, 40 deletions(-) delete mode 100755 src/warden-client/lib/WardenClientConf.pm diff --git a/src/warden-client/lib/WardenClientConf.pm b/src/warden-client/lib/WardenClientConf.pm deleted file mode 100755 index 2085d30..0000000 --- a/src/warden-client/lib/WardenClientConf.pm +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/perl -w -# -# WardenClientConf.pm -# -# Copyright (C) 2011-2013 Cesnet z.s.p.o -# -# Use of this source is governed by a BSD-style license, see LICENSE file. - -package WardenClientConf; - -use strict; - -# preset of default variables -our $URI = undef; -our $SSL_KEY_FILE = undef; -our $SSL_CERT_FILE = undef; -our $SSL_CA_FILE = undef; -our $MAX_RCV_EVENTS_LIMIT = undef; -our $LOG_STDERR = 1; -our $LOG_SYSLOG = 0; -our $LOG_SYSLOG_FACILITY = "local7"; -our $LOG_VERBOSE = 0; -our $CONNECTION_TIMEOUT = 60; - - -our $VERSION = "2.2"; - -sub loadConf -{ - my $conf_file = shift; - - # load configuration variables set by user - unless (do $conf_file) { - die("Errors in config file '$conf_file': $@") if $@; - die("Can't read config file '$conf_file': $!") unless defined $_; - # if $_ defined, it's retvalue of last statement of conf, for which we don't care - } -} - -1; -- GitLab