Changeset 355 for trunk

Timestamp:

Sep 14, 2018, 10:20:51 AM (6 years ago)

Author:

g7moreau

Message:

• Show IP range in show sector

File:

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

trunk/ddt/ddt

@@ -21 +21 @@
 use strict;
 #use warnings;
-use version; our $VERSION = version->declare('0.11.6');
+use version; our $VERSION = version->declare('0.11.7');
 
 use Getopt::Long qw(GetOptions);
@@ -2229 +2229 @@
      {align  => 'left',   align_title => 'left',   title => 'DNS-Extension:'},
      {is_sep => 1,        body        => '  '},
+     {align  => 'left',   align_title => 'left',   title => 'IP-Range'},
      {align  => 'left',   align_title => 'left',   title => 'Date'},
      {align  => 'left',   align_title => 'left',   title => 'Comment'},
@@ -2249 +2250 @@
       my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
 
+      my $ip_range;
+      $ip_range = join ',', @{$computer_db->{'dset'}{$sector_current}{'ip-range'}} if exists $computer_db->{'dset'}{$sector_current}{'ip-range'};
+
       my $category;
       my $comment = $computer_db->{'dset'}{$sector_current}{'comment'};
@@ -2256 +2260 @@
       $tb_computer->add($sector_current,
          $computer_db->{'dset'}{$sector_current}{'dns_extension'},
+         $ip_range,
          $date,
          $comment,