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

example-receiver.pl.txt

Blame
  • example-receiver.pl.txt 2.25 KiB
    #!/usr/bin/perl -w
    #
    # 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;
    
    #------------------------------------------------------------------------------
    # Warden 2.0 Client, Receiver, Example
    #
    # Simple use of warden-client receiver functionality to download new events
    # from # Warden server. This code illustrates how to integrate warden-client
    # receive functionality into local applications.
    #------------------------------------------------------------------------------
    
    #------------------------------------------------------------------------------
    # This code should developer add into his/her application.
    
    # Path to warden-client directory
    my $warden_path = '/home/soukal/client-test/2.0.0_beta/warden-client/';
    
    # Inclusion of warden-client receiving functionality
    require $warden_path . '/lib/WardenClientReceive.pm';
    
    # Definition of requested event type. This attributes is also set on server
    # and must not change.
    my $requested_type = "portscan";
    
    #------------------------------------------------------------------------------
    # Simple code that prints out new events obtained from Warden server.
    
    print "+------------------------------------------------------------------------------------------------------------------------------------------+\n";
    print "| id | hostname | service | detected | type | source_type | source | target_proto | target_port | attack_scale | note | priority | timeout |\n";
    print "+------------------------------------------------------------------------------------------------------------------------------------------+\n";
    
    # Download of new evetns from Warden server
    while (my @new_events = WardenClientReceive::getNewEvents($warden_path, $requested_type)) {
      foreach my $event_ref (@new_events) {
        my @event = @$event_ref;
        print "| " . join(' | ', @event) . " |" . "\n";
      }
    print "+------------------------------------------------------------------------------------------------------------------------------------------+\n";
    }
    
    print "+------------------------------------------------------------------------------------------------------------------------------------------+";
    print "\n";
    print "Last events in: " . scalar(localtime(time)) . "\n";
    
    exit 0;