diff --git a/src/warden-client/bin/receiver.pl b/src/warden-client/bin/receiver.pl index b5d1b3e366b41613db2917d6eb188ce5675a332c..696ecab171e2d8babc799b2adaeda86d9e96962a 100755 --- a/src/warden-client/bin/receiver.pl +++ b/src/warden-client/bin/receiver.pl @@ -1,10 +1,11 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # -# Copyright (C) 2011-2013 Cesnet z.s.p.o +# Copyright (C) 2011-2015 Cesnet z.s.p.o # # Use of this source is governed by a BSD-style license, see LICENSE file. use strict; +use warnings; #------------------------------------------------------------------------------ # Warden 2.2 Client, Receiver, Example @@ -21,7 +22,7 @@ use strict; my $warden_path = '/opt/warden-client/'; # Inclusion of warden-client receiving functionality -require $warden_path . '/lib/WardenClientReceive.pm'; +require $warden_path . '/lib/WardenClient.pm'; # Definition of requested event type. This attributes is also set on server # and must not change. @@ -35,7 +36,7 @@ print "| id | hostname | service | detected | type | source_type | source | targ print "+------------------------------------------------------------------------------------------------------------------------------------------+\n"; # Download of new evetns from Warden server -while (my @new_events = WardenClientReceive::getNewEvents($warden_path, $requested_type)) { +while (my @new_events = WardenClient::getNewEvents($requested_type)) { foreach my $event_ref (@new_events) { my @event = @$event_ref; print "| " . join(' | ', map { $_ || '' } @event) . " |" . "\n";