pridan vypis sloupce Valid

src/warden-server/bin/getClients.pl

@@ -71,9 +71,9 @@ $sth->execute or die "Cannot execute statement: " . $sth->errstr;
 my $hash_ref = $sth->fetchall_hashref("client_id");
 
 # print table of clients
-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      | Valid |\n";
+print "+-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
 foreach my $key (sort {$a<=>$b} keys %$hash_ref) {
   printf("| %-10s ", $hash_ref->{$key}->{client_id} || "unknown");
   printf("| %-30s ", $hash_ref->{$key}->{hostname} || "unknown");
@@ -84,9 +84,10 @@ foreach my $key (sort {$a<=>$b} keys %$hash_ref) {
   printf("| %-15s ", $hash_ref->{$key}->{type} || "-");
   printf("| %-4s ", $hash_ref->{$key}->{receive_own_events}  || "-");
   printf("| %-50s ", $hash_ref->{$key}->{description_tags} || "-");
-  printf("| %-18s |\n", $hash_ref->{$key}->{ip_net_client}|| "unknown");
+  printf("| %-18s ", $hash_ref->{$key}->{ip_net_client}|| "unknown");
+  printf("| %-5s |\n", $hash_ref->{$key}->{valid}|| "unknown");
 }
-print "+---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
+print "+-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+\n";
 print "\n";
 print "Current registered clients in: " . scalar localtime(time) . "\n";