#!/usr/bin/perl -w # # WardenClientConf.pm # # Copyright (C) 2011 Cesnet z.s.p.o # Author(s): Tomas PLESNIK <plesnik@ics.muni.cz> # Jan SOUKAL <soukal@ics.muni.cz> # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in # the documentation and/or other materials provided with the # distribution. # 3. Neither the name of the Cesnet z.s.p.o nor the names of its # contributors may be used to endorse or promote products derived from # this software without specific prior written permission. # # This software is provided ``as is'', and any express or implied # warranties, including, but not limited to, the implied warranties of # merchantability and fitness for a particular purpose are disclaimed. # In no event shall the Cesnet z.s.p.o or contributors be liable for # any direct, indirect, incidental, special, exemplary, or consequential # damages (including, but not limited to, procurement of substitute # goods or services; loss of use, data, or profits; or business # interruption) however caused and on any theory of liability, whether # in contract, strict liability, or tort (including negligence or # otherwise) arising in any way out of the use of this software, even # if advised of the possibility of such damage. # package WardenClientConf; use strict; our $VERSION = "1.0"; #------------------------------------------------------------------------------- # loadConf - load variables from configuration file #------------------------------------------------------------------------------- sub loadConf { my $conf_file = shift; # preset of default variables our $URI = undef; our $SSL_KEY_FILE = undef; our $SSL_CERT_FILE = undef; our $SSL_CA_FILE = undef; # read config file if ( ! open( TMP, $conf_file) ) { die("Can't read config file '$conf_file': $!\n"); } close TMP; # load set variables by user if ( !do $conf_file ) { die("Errors in config file '$conf_file': $@"); } return ($URI, $SSL_KEY_FILE, $SSL_CERT_FILE, $SSL_CA_FILE); } # End of loadConf 1;