predelano generovani casu

src/warden-client/bin/sender.pl

@@ -34,6 +34,7 @@
 
 use Switch;
 use strict;
+use DateTime;
 
 my $warden_path = '/opt/warden-client';
 require $warden_path . '/lib/WardenClientSend.pm';
@@ -45,7 +46,8 @@ switch (int(rand(2) + 0.5)) {
   case 2 { $service = 'HoneyScan'; }
   }
 
-my $detected = "2011-0" . int(rand(9) + 0.5) . "-" . (int(rand(20) + 0.5) + 10) . "T" . (int(rand(14) + 0.5) + 10) . ":" . (int(rand(50) + 0.5) + 10) . ":" . (int(rand(50) + 0.5) + 10);
+my $local_detected = time()
+my $detected = DateTime->from_epoch(epoch => $local_detected);
 
 my $type = "";
 switch (int(rand(9) + 0.5)) {