From 51152c4564ec91c305cc5bbb02ff71ba14efd450 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 15 Jan 2015 08:30:25 +0100
Subject: [PATCH] zmena volani funkce saveNewEvents; pridan modul warnings;
uprava data
---
src/warden-client/bin/sender.pl | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/warden-client/bin/sender.pl b/src/warden-client/bin/sender.pl
index 75a5e67..cf9d625 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;
--
GitLab