Skip to content
Snippets Groups Projects
Select Git revision
  • 46c6a890f291b69c93d5bf72f25a33c367da5dc3
  • master default protected
  • devel
  • hruska-feature-clients-api
  • malostik-#5066-deduplicate-idea-ids
  • warden-postgresql-port
  • hruska-feature-#6799-filter-keys
  • hruska-feature-5066-duplicateIdeaID
  • warden-client-3.0-beta3
  • warden-server-3.0-beta3
  • warden-client-2.2-final
  • warden-server-2.2-final
  • warden-client-3.0-beta2
  • warden-server-3.0-beta2
  • warden-client-2.2
  • warden-server-2.2-patch3
  • warden-client-3.0-beta1
  • warden-server-3.0-beta1
  • warden-server-2.2-patch1
  • warden-client-3.0-beta0
  • warden-server-3.0-beta0
  • warden-server-2.2
  • warden-server-2.1-patch1
  • warden-client-2.1
  • warden-server-2.1
  • warden-server-2.1-beta6
  • warden-server-2.1-beta5
  • warden-server-2.1-beta4
28 results

WardenConf.pm

Blame
  • WardenConf.pm 977 B
    #!/usr/bin/perl -w
    #
    # WardenConf.pm
    #
    # Copyright (C) 2011-2012 Cesnet z.s.p.o
    #
    # Use of this source is governed by a BSD-style license, see LICENSE file.
    
    package WardenConf;
    
    use strict;
    
    our $VERSION = "2.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;
    
      # load set variables 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
      }
    
      return ($URI, $SSL_KEY_FILE, $SSL_CERT_FILE, $SSL_CA_FILE);
    
    } # End of loadConf
    1;