Changeset 294

Timestamp:

Jul 18, 2018, 10:23:03 AM (6 years ago)

Author:

g7moreau

Message:

• Mini chane in show command

File:

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

trunk/ddt/ddt

@@ -2261 +2261 @@
 
    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';
@@ -2268 +2268 @@
       next if $domainset_current eq 'version';
 
-      print "\n# *** List of computers in the domain set: $domainset_current ***\n";
+      print "\n# *** List of computers without IP in the domain set: $domainset_current ***\n";
       printf "%-30s  %-20s %17s %5s %7s %-10s %s\n",
          'Hostname',
@@ -2283 +2283 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         if ($attribute->{'ip'} =~ $DDT::RE::IPv4_ADDRESS) {
+         if ($attribute->{'ip'} =~ m/$DDT::RE::IPv4_ADDRESS/xms) {
             if ( not exists $ipdb{ $attribute->{'ip'} } ) {
                $ipdb{ $attribute->{'ip'} } = {