drobne upravy v ramci ukolu #609

src/warden-client/doc/example-info.pl.txt

@@ -23,7 +23,7 @@ my $warden_path = '/home/soukal/pokus/warden/warden-client/';
 # Inclusion of warden-client receiving functionality
 require $warden_path . '/lib/WardenClientCommon.pm';
 
-my @clients = WardenClientCommon::getClientInfo($warden_path);
+my @clients = WardenClientCommon::getClientsInfo($warden_path) or exit 1; # receive data or exit
 
 print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
 print "| Client ID  | Hostname                       | Registered          | Requestor               | Service                   | CT | Type            | ROE  | Description tags                                   | IP Net Client      |\n";

src/warden-client/lib/WardenClientCommon.pm

@@ -140,9 +140,9 @@ sub c2s
 }
 
 #-------------------------------------------------------------------------------
-# getClientInfo - retrieve information about other clients from Warden server
+# getClientsInfo - retrieve information about other clients from Warden server
 #-------------------------------------------------------------------------------
-sub getClientInfo 
+sub getClientsInfo 
 {
   my $warden_path = shift;