Changeset 331 for trunk/ddt

Timestamp:

Aug 28, 2018, 12:32:00 PM (6 years ago)

Author:

g7moreau

Message:

• Add Category in domainset show

File:

• trunk/ddt/ddt (modified) (2 diffs)

trunk/ddt/ddt

@@ -2160 +2160 @@
      {align  => 'left',   align_title => 'left',   title => 'Date'},
      {align  => 'left',   align_title => 'left',   title => 'Comment'},
+     {align  => 'left',   align_title => 'left',   title => 'Category'},
      );
 
    LOOP_ON_DOMAIN:
-   for my $domainset_current (keys %{$computer_db}) {
+   for my $domainset_current (sort keys %{$computer_db}) {
       next if $domainset_current eq 'dset';
       next if $domainset_current eq 'pool';
@@ -2177 +2178 @@
       my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
 
+      my $category;
       my $comment = $computer_db->{'dset'}{$domainset_current}{'comment'};
       $comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
-         
+      $comment =~ s/\s+(\(\w+\))$// and $category = $1;
+
       $tb_computer->add($domainset_current,
          $computer_db->{'dset'}{$domainset_current}{'dns_extension'},
          $date,
          $comment,
+         $category,
          );
       }