uprava formatovani tabulky

src/warden-server/bin/getStatus.pl

@@ -10,7 +10,7 @@ use strict;
 use Getopt::Std;
 use File::Basename;
 
-our $VERSION = "2.0";
+our $VERSION = "2.1";
 
 my $warden_path = '/opt/warden-server';
 require $warden_path . '/lib/WardenStatus.pm';
@@ -99,18 +99,18 @@ print "\n";
 # check if sum of registered client isn't 0
 if ($server_status[13] != 0) {
   print "Statistics of registered senders:\n";
-  print "+-----------------------------------------------------------------------------------------------------------+\n";
-  print "| Client ID  | Hostname                       | Service              | Stored events | Last insertion (UTC) |\n";
-  print "+-----------------------------------------------------------------------------------------------------------+\n";
+  print "+----------------------------------------------------------------------------------------------------------------+\n";
+  print "| Client ID  | Hostname                       | Service                   | Stored events | Last insertion (UTC) |\n";
+  print "+----------------------------------------------------------------------------------------------------------------+\n";
   foreach my $client_status_ref (@status){
     my @client_status = @$client_status_ref;
     printf("| %-10s ", $client_status[0]);
     printf("| %-30s ", $client_status[1]);
-    printf("| %-20s ", $client_status[2]);
+    printf("| %-25s ", $client_status[2]);
     printf("| %-13s ", $client_status[3]);
     printf("| %-20s |\n", $client_status[4]);
   }
-  print "+-----------------------------------------------------------------------------------------------------------+\n";
+  print "+----------------------------------------------------------------------------------------------------------------+\n";
   print "\n";
 }