ziskavani casu detekce pomoci DateTime

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";

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