From d80e21be2cebfa83dfef666ee00fb8e3f8f165d2 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 24 Jan 2012 17:43:55 +0100
Subject: [PATCH] ziskavani casu detekce pomoci DateTime

---
 src/warden-client/doc/example-sender.pl.txt | 6 +++++-
 src/warden-client/sh/install.sh             | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/warden-client/doc/example-sender.pl.txt b/src/warden-client/doc/example-sender.pl.txt
index 98b1b69..c76cfde 100644
--- a/src/warden-client/doc/example-sender.pl.txt
+++ b/src/warden-client/doc/example-sender.pl.txt
@@ -31,6 +31,7 @@
 #
 
 use strict;
+use DateTime;
 
 #-------------------------------------------------------------------------------
 # Warden 1.0.0. Client, Sender, Example 
@@ -44,8 +45,11 @@ use strict;
 # Preparation of event attributes.
 # This should be handled by detection application.
 
+
+my $local_detected = time()
+
 my $service 		= "ScanDetector";
-my $detected 		= "2011-07-16T19:20:30.45";
+my $detected 		= DateTime->from_epoch(epoch => $local_detected);
 my $type 		= "portscan";
 my $source_type 	= "IP";
 my $source 		= "123.123.123.123";
diff --git a/src/warden-client/sh/install.sh b/src/warden-client/sh/install.sh
index e16a42c..008e2ab 100755
--- a/src/warden-client/sh/install.sh
+++ b/src/warden-client/sh/install.sh
@@ -279,7 +279,7 @@ change_permissions()
 #-------------------------------------------------------------------------------
 
 # list of used Perl modules
-modules=(SOAP::Lite IO::Socket::SSL SOAP::Transport::TCP FindBin)
+modules=(SOAP::Lite IO::Socket::SSL SOAP::Transport::TCP FindBin DateTime)
 
 # OS test
 os_chck
-- 
GitLab