Changeset 296

Timestamp:

Jul 18, 2018, 12:20:18 PM (7 years ago)

Author:

g7moreau

Message:

• Try a table

Location:

trunk/ddt

Files:

• ddt (modified) (5 diffs)
• make-package-debian (modified) (1 diff)

trunk/ddt/ddt

@@ -4 +4 @@
 # License GNU GPL version 2 or later and Perl equivalent
 #
-# apt-get install perl-base perl-modules libyaml-syck-perl libnet-netmask-perl libreadonly-perl libfile-touch-perl
+# apt-get install perl-base perl-modules libyaml-syck-perl libnet-netmask-perl libreadonly-perl libfile-touch-perl libtext-table-perl
 
 package DDT::RE;
@@ -30 +30 @@
 use File::Copy;
 use Socket;
+use Text::Table;
 
 my $command = shift @ARGV || 'help';
@@ -2268 +2269 @@
       next if $domainset_current eq 'version';
 
-      print "\n# *** List of pool computers in the domain set: $domainset_current ***\n";
-      printf "%-30s  %-20s %17s %5s %7s %-10s %s\n",
-         'Hostname',
-         'IPv4-Address',
-         'MAC-Address',
-         'Type',
-         'Status',
-         'Date',
-         'Comment';
+      my $tb_computer = Text::Table->new(
+         {align => 'left',   align_title => 'left',   title => 'Hostname.DomainSet'},
+         {align => 'left',   align_title => 'left',   title => 'IPv4-Address'},
+         {align => 'center', align_title => 'center', title => 'MAC-Address'},
+         {align => 'right',  align_title => 'right',  title => 'Type'},
+         {align => 'right',  align_title => 'right',  title => 'Status'},
+         {align => 'left',   align_title => 'left',   title => 'Date'},
+         {align => 'left',   align_title => 'left',   title => 'Comment'},
+         );
+
+      $tb_computer->add(
+
+      #printf "%-30s  %-20s %17s %5s %7s %-10s %s\n",
+      #   'Hostname',
+      #   'IPv4-Address',
+      #   'MAC-Address',
+      #   'Type',
+      #   'Status',
+      #   'Date',
+      #   'Comment';
       my @domainsetdb = @{$computer_db->{$domainset_current}};
 
@@ -2314 +2326 @@
             }
 
-         printf "%-30s  %-20s %17s %9s %3s %10s %s\n",
+         #printf "%-30s  %-20s %17s %9s %3s %10s %s\n",
+         $tb_computer->add(
             $attribute->{'hostname'} . '.' . $domainset_current,
             $ip,
@@ -2321 +2334 @@
             $enable,
             $date,
-            $comment;
-         }
+            $comment,
+            );
+         }
+
+      print "\n# *** List of pool computers in the domain set: $domainset_current ***\n";
+      print $tb_computer->title();
+      print $tb_computer->rule('-');
+      print $tb_computer->body();
       }
 

trunk/ddt/make-package-debian

@@ -43 +43 @@
 Tag: implemented-in::perl, interface::commandline, role::program
 Priority: optional
-Depends: perl, perl-base, perl-modules, libyaml-syck-perl, libnet-netmask-perl, libreadonly-perl, libfile-touch-perl
+Depends: perl, perl-base, perl-modules, libyaml-syck-perl, libnet-netmask-perl, libreadonly-perl, libfile-touch-perl, libtext-table-perl
 Suggests: libyaml-shell-perl | yamllint, perl-doc, isc-dhcp-server, bind9
 Architecture: all