diff --git a/src/warden-client/bin/info.pl b/src/warden-client/bin/info.pl index c466f2ed34c42b2be9e8de10e9890568da3beebf..3719ecd7a3a0dbfe9656794b3e071e3ab6001146 100755 --- a/src/warden-client/bin/info.pl +++ b/src/warden-client/bin/info.pl @@ -28,23 +28,23 @@ use WardenClient; # obtain information about already registered clients 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"; -print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n"; +print "+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n"; +print "| Client ID | Hostname | Registered | Requestor | Service | CT | Type | ROE | Description tags | IP Net Client |\n"; +print "+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n"; foreach (@clients) { - printf("| %-10s ", $_->{'client_id'} || "NULL"); - printf("| %-30s ", $_->{'hostname'} || "NULL"); - printf("| %19s ", $_->{'registered'} || "NULL"); - printf("| %-23s ", $_->{'requestor'} || "NULL"); - printf("| %-25s ", $_->{'service'} || "NULL"); - printf("| %-2s ", $_->{'client_type'} || "NULL"); - printf("| %-15s ", $_->{'type'} || "NULL"); - printf("| %-4s ", $_->{'receive_own_events'} || "NULL"); - printf("| %-50s ", $_->{'description_tags'} || "NULL"); - printf("| %-18s |\n", $_->{'ip_net_client'} || "NULL"); + printf("| %-14s ", $_->{'client_id'} || "unknown"); + printf("| %-36s ", $_->{'hostname'} || "unknown"); + printf("| %19s ", $_->{'registered'} || "unknown"); + printf("| %-27s ", $_->{'requestor'} || "unknown"); + printf("| %-22s ", $_->{'service'} || "-"); + printf("| %-1s ", $_->{'client_type'} || "unknown"); + printf("| %-16s ", $_->{'type'} || "-"); + printf("| %-1s ", $_->{'receive_own_events'} || "-"); + printf("| %-47s ", $_->{'description_tags'} || "-"); + printf("| %-18s |\n", $_->{'ip_net_client'} || "unknown"); } -print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n"; +print "+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n"; print "\n"; print "Current registered clients in: " . scalar localtime(time) . "\n";