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 of this source is governed by a BSD-style license, see LICENSE file.
use strict; use strict;
use warnings;
use DateTime; use DateTime;
use Getopt::Long; use Getopt::Long;
...@@ -87,9 +89,9 @@ my @event = ($opt_s, $opt_t, $opt_e, $opt_o, $opt_v, ...@@ -87,9 +89,9 @@ my @event = ($opt_s, $opt_t, $opt_e, $opt_o, $opt_v,
my $warden_path = $opt_w; my $warden_path = $opt_w;
# Inclusion of warden-client sender module # Inclusion of warden-client sender module
require $warden_path . '/lib/WardenClientSend.pm'; require $warden_path . '/lib/WardenClient.pm';
# Sending event to Warden server # Sending event to Warden server
WardenClientSend::saveNewEvent($warden_path, \@event); WardenClient::saveNewEvent(\@event);
exit 0; 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