oprava neciselneho argumentu pro funkci sprintf v promenne

src/warden-client/bin/sender.pl

@@ -46,8 +46,7 @@ switch (int(rand(2) + 0.5)) {
   case 2 { $service = 'HoneyScan'; }
   }
 
-my $local_detected = time();
-my $detected = DateTime->from_epoch(epoch => $local_detected);
+my $detected = DateTime->from_epoch(epoch => time());
 
 my $type = "";
 switch (int(rand(9) + 0.5)) {
@@ -106,7 +105,7 @@ switch (int(rand(1) + 0.5)) {
 
 my @event = (
   $service, # $service
-  $detected, # $detected
+  "$detected", # $detected
   $type, # $type
   $source_type, # $source_type
   $source, # $source

src/warden-client/doc/example-sender.pl.txt

@@ -46,10 +46,11 @@ use DateTime;
 # This should be handled by detection application.
 
 
-my $local_detected = time();
+my $local_detected = DateTime->from_epoch(epoch => time());
+
 
 my $service 		= "ScanDetector";
-my $detected 		= DateTime->from_epoch(epoch => $local_detected);
+my $detected 		= "$local_detected";
 my $type 		= "portscan";
 my $source_type 	= "IP";
 my $source 		= "123.123.123.123";