From a0c003b6f4b93f256afd060fe9d6ce5525ac5994 Mon Sep 17 00:00:00 2001
From: Jan Soukal <soukal@ics.muni.cz>
Date: Tue, 15 Jan 2013 16:24:08 +0100
Subject: [PATCH] drobne upravy v ramci ukolu #609
---
src/warden-client/doc/example-info.pl.txt | 2 +-
src/warden-client/lib/WardenClientCommon.pm | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/warden-client/doc/example-info.pl.txt b/src/warden-client/doc/example-info.pl.txt
index a4c1ada..2111464 100755
--- a/src/warden-client/doc/example-info.pl.txt
+++ b/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";
diff --git a/src/warden-client/lib/WardenClientCommon.pm b/src/warden-client/lib/WardenClientCommon.pm
index efda17a..5debf23 100755
--- a/src/warden-client/lib/WardenClientCommon.pm
+++ b/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;
--
GitLab