zmena volani funkce saveNewEvents; pridan modul warnings; uprava data

src/warden-client/bin/sender.pl

-#!/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;