zmena textu ve vypisu verze; nazev skriptu tahan z exportovane promene namisto ::RealScript

src/warden-server/bin/getClients.pl

@@ -11,7 +11,7 @@ use Getopt::Std;
 use DBI;
 use DBD::mysql;
 use FindBin qw($RealBin $RealScript);
-use lib "$FindBin::RealBin/../lib";
+use lib "$RealBin/../lib";
 use WardenCommon;
 
 
@@ -20,7 +20,7 @@ use WardenCommon;
 #				VARIABLES
 ################################################################################
 our $VERSION = "2.2";
-my $etc = "$FindBin::RealBin/../etc";
+my $etc = "$RealBin/../etc";
 
 # read config file
 my $conf_file = "$etc/warden-server.conf";
@@ -46,7 +46,7 @@ sub help {
 
 
 sub version {
-  print "$RealScript: Version: $VERSION\n";
+  print "Current version: $VERSION\n";
   exit 0;
 }
 

src/warden-server/bin/getStatus.pl

@@ -12,7 +12,7 @@ use DBI;
 use DBD::mysql;
 use Format::Human::Bytes;
 use FindBin qw($RealBin $RealScript);
-use lib "$FindBin::RealBin/../lib";
+use lib "$RealBin/../lib";
 use WardenCommon;
 
 
@@ -21,7 +21,7 @@ use WardenCommon;
 #				VARIABLES
 ################################################################################
 our $VERSION = "2.2";
-my $etc = "$FindBin::RealBin/../etc";
+my $etc = "$RealBin/../etc";
 
 # read config file
 my $conf_file = "$etc/warden-server.conf";
@@ -47,7 +47,7 @@ sub help {
 
 
 sub version {
-  print "$RealScript: Version: $VERSION\n";
+  print "Current version: $VERSION\n";
   exit 0;
 }
 

src/warden-server/bin/registerReceiver.pl

@@ -16,7 +16,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
-use lib "$FindBin::RealBin/../lib";
+use lib "$RealBin/../lib";
 use WardenCommon;
 
 
@@ -25,7 +25,7 @@ use WardenCommon;
 #				VARIABLES
 ################################################################################
 our $VERSION = "2.2";
-my $etc = "$FindBin::RealBin/../etc";
+my $etc = "$RealBin/../etc";
 
 # read config file
 my $conf_file = "$etc/warden-server.conf";
@@ -57,7 +57,7 @@ sub help {
 
 
 sub version {
-  print "$RealScript: Version: $VERSION\n";
+  print "Current version: $VERSION\n";
   exit 0;
 }
 

src/warden-server/bin/registerSender.pl

@@ -16,7 +16,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
-use lib "$FindBin::RealBin/../lib";
+use lib "$RealBin/../lib";
 use WardenCommon;
 
 
@@ -25,7 +25,7 @@ use WardenCommon;
 #				VARIABLES
 ################################################################################
 our $VERSION = "2.2";
-my $etc = "$FindBin::RealBin/../etc";
+my $etc = "$RealBin/../etc";
 
 # read config file
 my $conf_file = "$etc/warden-server.conf";
@@ -57,7 +57,7 @@ sub help {
 
 
 sub version {
-  print "$RealScript: Version: $VERSION\n";
+  print "Current version: $VERSION\n";
   exit 0;
 }
 

src/warden-server/bin/unregisterClient.pl

@@ -16,7 +16,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
-use lib "$FindBin::RealBin/../lib";
+use lib "$RealBin/../lib";
 use WardenCommon;
 
 
@@ -25,7 +25,7 @@ use WardenCommon;
 #				VARIABLES
 ################################################################################
 our $VERSION = "2.2";
-my $etc = "$FindBin::RealBin/../etc";
+my $etc = "$RealBin/../etc";
 
 # read config file
 my $conf_file = "$etc/warden-server.conf";
@@ -52,7 +52,7 @@ sub help {
 
 
 sub version {
-  print "$RealScript: Version: $VERSION\n";
+  print "Current version: $VERSION\n";
   exit 0;
 }