Skip to content
Snippets Groups Projects
Select Git revision
  • c857c17bb4d79c8c4190e5242907d3219c03bb01
  • 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

annotation.ts

Blame
  • warden-server.pl 33.30 KiB
    #!/usr/bin/perl -w
    #
    # warden-server.pl
    #
    # Copyright (C) 2011-2012 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 Warden;
    
    use strict;
    use SOAP::Lite;
    use SOAP::Transport::TCP;
    use File::Pid;
    use POSIX;
    use DBI;
    use Format::Human::Bytes;
    use Sys::Syslog qw(:DEFAULT setlogsock);
    Sys::Syslog::setlogsock('unix');
    use File::Basename;
    use FindBin;
    use Data::Dumper;
    use Net::CIDR::Lite;
    use DateTime;
    
    our $VERSION = "0.1";
    
    ################################################################################
    #			CONFIG FILE VARIABLES
    ################################################################################
    
    my $script_name = $FindBin::Script;
    my $conf_file = "/opt/warden-server/etc/warden-server.conf";
    
    # first declaration of globa variables from config file
    our $ADDRESS		= undef;
    our $PORT		= undef;
    our $LOGDIR		= undef;
    our $PIDDIR		= undef;
    our $VARDIR		= undef;
    our $SSL_KEY_FILE	= undef;
    our $SSL_CERT_FILE	= undef;
    our $SSL_CA_FILE	= undef;
    our $FACILITY		= undef;