Skip to content
Snippets Groups Projects
Commit 54b9dcf1 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

zmena volani funkce saveNewEvents; pridan modul warnings; uprava data

parent 66435477
No related branches found
No related tags found
No related merge requests found
#!/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;
use Getopt::Long;
......@@ -87,9 +89,9 @@ my @event = ($opt_s, $opt_t, $opt_e, $opt_o, $opt_v,
my $warden_path = $opt_w;
# Inclusion of warden-client sender module
require $warden_path . '/lib/WardenClientSend.pm';
require $warden_path . '/lib/WardenClient.pm';
# Sending event to Warden server
WardenClientSend::saveNewEvent($warden_path, \@event);
WardenClient::saveNewEvent(\@event);
exit 0;
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment