diff --git a/src/warden-client/bin/sender.pl b/src/warden-client/bin/sender.pl index 75a5e6726d94463a11c6ab71bce65d0b17c92c9f..cf9d6253f7868a9bc556155319bd6a175ac055be 100755 --- a/src/warden-client/bin/sender.pl +++ b/src/warden-client/bin/sender.pl @@ -1,10 +1,12 @@ -#!/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; + use DateTime; #------------------------------------------------------------------------------- @@ -48,12 +50,12 @@ my @event = ($service, $detected, $type, $source_type, $source, my $warden_path = '/opt/warden-client'; # Inclusion of warden-client sender module -require $warden_path . '/lib/WardenClientSend.pm'; +require $warden_path . '/lib/WardenClient.pm'; # Sending event to Warden server for (my $i = 0; $i < 10; $i++) { print "Sending $i-st event on server\n"; - WardenClientSend::saveNewEvent($warden_path, \@event); + WardenClient::saveNewEvent(\@event); } exit 0;