zmena volani funkce saveNewEvents; pridan modul warnings; uprava data

src/warden-client/bin/sender-random.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 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";