From ae26be25311dbc146c9d58e588e0b15416e5149a Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Mon, 26 Jan 2015 17:14:00 +0100
Subject: [PATCH] zmena upozornovaci hlasky
---
src/warden-client/lib/WardenClientReceive.pm | 39 ++++++++++++++++++++
src/warden-client/lib/WardenClientSend.pm | 39 ++++++++++++++++++++
2 files changed, 78 insertions(+)
create mode 100755 src/warden-client/lib/WardenClientReceive.pm
create mode 100755 src/warden-client/lib/WardenClientSend.pm
diff --git a/src/warden-client/lib/WardenClientReceive.pm b/src/warden-client/lib/WardenClientReceive.pm
new file mode 100755
index 0000000..3689d75
--- /dev/null
+++ b/src/warden-client/lib/WardenClientReceive.pm
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+#
+# WardenClientReceive.pm
+#
+# Copyright (C) 2011-2015 Cesnet z.s.p.o
+#
+# Use of this source is governed by a BSD-style license, see LICENSE file.
+
+################################################################################
+# DO NOT USE THIS MODULE!!!
+#
+# THIS MODULE IS INTENDED ONLY FOR THE WARDEN CLIENT 2.2 UPDATED
+# FROM WARDEN CLIENT 2.1!!!
+################################################################################
+
+package WardenClientReceive;
+
+use strict;
+use warnings;
+
+our $VERSION = "2.2";
+
+#-------------------------------------------------------------------------------
+# getNewEvents - get new events from warden server greater than last received ID
+#-------------------------------------------------------------------------------
+sub getNewEvents
+{
+
+ my $warden_path = shift;
+ my $requested_type = shift;
+
+ use lib $warden_path;
+ use WardenClient;
+
+ return WardenClient::getNewEvents($requested_type);
+
+} # End of getNewEvents
+
+1;
diff --git a/src/warden-client/lib/WardenClientSend.pm b/src/warden-client/lib/WardenClientSend.pm
new file mode 100755
index 0000000..409dad2
--- /dev/null
+++ b/src/warden-client/lib/WardenClientSend.pm
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+#
+# WardenClientSend.pm
+#
+# Copyright (C) 2011-2015 Cesnet z.s.p.o
+#
+# Use of this source is governed by a BSD-style license, see LICENSE file.
+
+################################################################################
+# DO NOT USE THIS MODULE!!!
+#
+# THIS MODULE IS INTENDED ONLY FOR THE WARDEN CLIENT 2.2 UPDATED
+# FROM WARDEN CLIENT 2.1!!!
+################################################################################
+
+package WardenClientSend;
+
+use strict;
+use warnings;
+
+our $VERSION = "2.2";
+
+#-------------------------------------------------------------------------------
+# saveNewEvent - send new event from detection scripts to warden server
+#-------------------------------------------------------------------------------
+sub saveNewEvent
+{
+
+ my $warden_path = shift;
+ my $event_ref = shift;
+
+ use lib $warden_path;
+ use WardenClient;
+
+ return WardenClient::saveNewEvent($event_ref);
+
+} # End of saveNewEvent
+
+1;
--
GitLab