From e10ad63bf815687608ca3e3f07655f48afa0df5e Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 15 Jan 2015 08:29:37 +0100
Subject: [PATCH] zmena volani funkce saveNewEvents; pridan modul warnings;
uprava data
---
src/warden-client/bin/sender-random.pl | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/src/warden-client/bin/sender-random.pl b/src/warden-client/bin/sender-random.pl
index fa15f8a..cca1fcd 100755
--- a/src/warden-client/bin/sender-random.pl
+++ b/src/warden-client/bin/sender-random.pl
@@ -1,15 +1,17 @@
-#!/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 Switch;
use strict;
+use warnings;
+
+use Switch;
use DateTime;
my $warden_path = '/opt/warden-client';
-require $warden_path . '/lib/WardenClientSend.pm';
+require $warden_path . '/lib/WardenClient.pm';
my $service = "test";
# service is needed in authorization process of the client,
@@ -84,7 +86,7 @@ my @event = (
$timeout, # $timeout
);
-WardenClientSend::saveNewEvent($warden_path, \@event);
+WardenClient::saveNewEvent(\@event);
#foreach (@event) {
# print "$_\n";
--
GitLab