Skip to content
Snippets Groups Projects
Select Git revision
  • 7b130dc0f34e2d7b8f213fbf6e1142480ea3dce1
  • master default protected
  • rednatco-v2
  • rednatco
  • test
  • ntc-tube-uniform-color
  • ntc-tube-missing-atoms
  • restore-vertex-array-per-program
  • watlas2
  • dnatco_new
  • cleanup-old-nodejs
  • webmmb
  • fix_auth_seq_id
  • update_deps
  • ext_dev
  • ntc_balls
  • nci-2
  • plugin
  • bugfix-0.4.5
  • nci
  • servers
  • v0.5.0-dev.1
  • v0.4.5
  • v0.4.4
  • v0.4.3
  • v0.4.2
  • v0.4.1
  • v0.4.0
  • v0.3.12
  • v0.3.11
  • v0.3.10
  • v0.3.9
  • v0.3.8
  • v0.3.7
  • v0.3.6
  • v0.3.5
  • v0.3.4
  • v0.3.3
  • v0.3.2
  • v0.3.1
  • v0.3.0
41 results

generic.tsx

  • WardenClientConf.pm 834 B
    #!/usr/bin/perl -w
    #
    # WardenClientConf.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 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 $VERSION = "2.1";
    
    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;