pwd zjistovana pomoci modulu FindBin; polozky timeout a priority nastaveny na undef

src/warden-client/bin/sender.pl

@@ -8,7 +8,8 @@ use strict;
 use warnings;
 
 use DateTime;
-use File::Basename;
+use FindBin qw($RealBin);
+FindBin::again();
 
 #-------------------------------------------------------------------------------
 # Warden 2.2. Client, Sender, Example 
@@ -35,8 +36,8 @@ my $target_proto 	= "TCP";
 my $target_port 	= "22";
 my $attack_scale 	= "1234567890";
 my $note 		= "important note or comment";
-my $priority 		= 1;
-my $timeout 		= 20;
+my $priority 		= undef;
+my $timeout 		= undef;
 
 my @event 		= ($service, $detected, $type, $source_type, $source,
 			   $target_proto, $target_port, $attack_scale, $note,
@@ -48,8 +49,7 @@ my @event 		= ($service, $detected, $type, $source_type, $source,
 # (with corresponding paths appropriately changed).
 
 # load Warden client library and main module
-my $bin = File::Basename::dirname(__FILE__);
-use lib "$bin/../lib";
+use lib "$RealBin/../lib";
 use WardenClient;
 
 # Sending event to Warden server