diff --git a/src/warden-client/lib/WardenClientReceive.pm b/src/warden-client/lib/WardenClientReceive.pm new file mode 100755 index 0000000000000000000000000000000000000000..3689d75c2add27d56a68f9d18e89b0bfaec10e64 --- /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 0000000000000000000000000000000000000000..409dad2cfb0868dd27805ff7125be2cc65efc1ca --- /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;