From f36474131b2565e6c1342284b23ffe46c6d8c9eb Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 15 Jan 2015 08:23:56 +0100
Subject: [PATCH] zmena volani funkce getClientInfo; pridan modul warnings;
 uprava data

---
 src/warden-client/bin/info.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/warden-client/bin/info.pl b/src/warden-client/bin/info.pl
index 3a9d294..fff04f9 100755
--- a/src/warden-client/bin/info.pl
+++ b/src/warden-client/bin/info.pl
@@ -1,10 +1,11 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
-# Copyright (C) 2011-2013 Cesnet z.s.p.o
+# Copyright (C) 2011-2015 Cesnet z.s.p.o
 #
 # Use of this source is governed by a BSD-style license, see LICENSE file.  
 
 use strict;
+use warnings;
 
 #------------------------------------------------------------------------------
 # Warden 2.2 Client, Info, Example
@@ -23,7 +24,7 @@ my $warden_path = '/opt/warden-client/';
 # Inclusion of warden-client receiving functionality
 require $warden_path . '/lib/WardenClientCommon.pm';
 
-my @clients = WardenClientCommon::getClientsInfo($warden_path) or exit 1; # receive data or exit
+my @clients = WardenClient::getClientInfo() 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";
-- 
GitLab