From b83da320b6b57bbb51d4abf77cd45379c5cf9924 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Mon, 9 Feb 2015 16:03:12 +0100
Subject: [PATCH] pwd zjistovana pomoci modulu FindBin; polozky timeout a
 priority nastaveny na undef

---
 src/warden-client/bin/sender.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/warden-client/bin/sender.pl b/src/warden-client/bin/sender.pl
index 9c58621..00de603 100755
--- a/src/warden-client/bin/sender.pl
+++ b/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
-- 
GitLab