pridan cas, ktery byl potreba pro vygenerovani seznamu

src/warden-server/bin/getClients.pl

@@ -100,7 +100,7 @@ foreach my $key (sort {$a<=>$b} keys %$hash_ref) {
 }
 print "+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
 print "\n";
-print "Current registered clients in: " . scalar localtime(time) . "\n";
+print "Current registered clients at:\t" . scalar localtime(time) . " (generated in " .  scalar (time() - $^T) . " seconds)\n";
 
 # cleanup section
 END {