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

warden-client-1.0.0.tar.gz.sig

Blame
  • example-info.pl.txt 2.53 KiB
    #!/usr/bin/perl -w
    #
    # Copyright (C) 2011-2013 Cesnet z.s.p.o
    #
    # Use of this source is governed by a BSD-style license, see LICENSE file.  
    
    use strict;
    
    #------------------------------------------------------------------------------
    # Warden 2.2 Client, Info, Example
    #
    # Simple use of warden-client Info functionality to receive information about
    # client registered to Warden server. This code illustrates how to integrate
    # warden-client info functionality into local applications.
    #------------------------------------------------------------------------------
    
    #------------------------------------------------------------------------------
    # This code should developer add into his/her application.
    
    # Path to warden-client directory
    my $warden_path = '/opt/warden-client/';
    
    # Inclusion of warden-client receiving functionality
    require $warden_path . '/lib/WardenClientCommon.pm';
    
    my @clients = WardenClientCommon::getClientsInfo($warden_path) or exit 1; # receive data or exit
    
    print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
    print "| Client ID  | Hostname                       | Registered          | Requestor               | Service                   | CT | Type            | ROE  | Description tags                                   | IP Net Client      |\n";
    print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
    
    foreach (@clients) {
      printf("| %-10s ", $_->{'client_id'} || "NULL");
      printf("| %-30s ", $_->{'hostname'} || "NULL");
      printf("| %19s ", $_->{'registered'}  || "NULL");
      printf("| %-23s ", $_->{'requestor'} || "NULL");
      printf("| %-25s ", $_->{'service'} || "NULL");
      printf("| %-2s ", $_->{'client_type'}  || "NULL");
      printf("| %-15s ", $_->{'type'} || "NULL");
      printf("| %-4s ", $_->{'receive_own_events'}  || "NULL");
      printf("| %-50s ", $_->{'description_tags'} || "NULL");
      printf("| %-18s |\n", $_->{'ip_net_client'} || "NULL");
    }
    print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
    print "\n";
    print "Current registered clients in: " . scalar localtime(time) . "\n";
    
    exit 0;