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

registerReceiver.pl

Blame
  • registerReceiver.pl 3.39 KiB
    #!/usr/bin/perl -w
    #
    # registerReceiver.pl
    #
    # Copyright (C) 2011-2012 Cesnet z.s.p.o
    #
    # Use of this source is governed by a BSD-style license, see LICENSE file.
    
    use strict;
    use Getopt::Std;
    use Switch;
    use File::Basename;
    
    our $VERSION = "2.0";
    
    my $warden_path = '/opt/warden-server';
    require $warden_path . '/lib/WardenReg.pm';
    my $filename = basename($0);
    
    #-------------------------------------------------------------------------------
    #                               Functions
    #-------------------------------------------------------------------------------
    sub usage {
      print "Usage: $filename [-h -o -n <hostname> -r <requestor> -t <type> -i <ip_net_client>]\n";
      exit 1;
    }
    
    
    sub help {
      print "$filename [-h -o -n <hostname> -r <requestor> -t <type> -i <ip_net_client>]\n";
      print "-h     print this text and exit\n";
      print "-n     hostname of receiver\n";
      print "-r     client registration requestor\n";
      print "-t     type of received events or '_any_' for receiving of all types of events\n";
      print "-o     enable receiving of own events\n";
      print "-i     CIDR of receiver\n";
      exit 0;
    }
    
    
    #-------------------------------------------------------------------------------
    # errMsg - print error message and die
    #-------------------------------------------------------------------------------
    sub errMsg
    {
      my $msg = shift;
      $msg = trim($msg);
      print $msg . "\n";
      exit 1;
    } # End of errMsg
    
    
    #-------------------------------------------------------------------------------
    # trim - remove whitespace from the start and end of the string
    #-------------------------------------------------------------------------------
    sub trim
    {
      my $string = shift;
      $string =~ s/^\s+//;
      $string =~ s/\s+$//;
      return $string;
    } # End of trim
    
    
    #-------------------------------------------------------------------------------
    #                               MAIN
    #-------------------------------------------------------------------------------
    our ($opt_n, $opt_r, $opt_t, $opt_o, $opt_i, $opt_h);
    
    if ($#ARGV == -1) {usage}