Changeset 362

Timestamp:

Sep 14, 2018, 10:13:58 PM (6 years ago)

Author:

g7moreau

Message:

• Small in DNS check

File:

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

trunk/ddt/ddt

@@ -21 +21 @@
 use strict;
 #use warnings;
-use version; our $VERSION = version->declare('0.11.8');
+use version; our $VERSION = version->declare('0.11.9');
 
 use Getopt::Long qw(GetOptions);
@@ -2770 +2770 @@
             for my $ip (NetAddr::IP->new($ip_range)->hostenum()) {
                $ip =~ s{/32$}{};
-               print "$ip\n";
                
                my $dns_hostname_fq = scalar gethostbyaddr(inet_aton($ip), AF_INET);
@@ -2780 +2779 @@
                   my $ip_address = inet_ntoa($packed_ip);
                   if ($ip ne $ip_address) {
-                     print "Error: bad IP $ip for reverse DNS on $dns_hostname_fq\n";
-                     #next LOOP_ON_IP;
+                     print "Error: bad IP $ip for reverse DNS on $dns_hostname_fq sector $sector_current\n";
                      }
                   }
 
-               # Verify direct return same host
+               # Verify direct return same hostname
                LOOP_ON_COMPUTER:
                for my $computer (@{$computer_db->{$sector_current}}) {
@@ -2792 +2790 @@
                   next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
 
-                  next LOOP_ON_IP if $attribute->{'hostname'} eq $dns_hostname;
-                  
-                  print "Error: DNS bad host $dns_hostname for IP $ip\n";
+                  print "Error: bad DNS host $dns_hostname / DDT host $attribute->{'hostname'} in sector $sector_current with IP $ip\n"
+                     if $attribute->{'hostname'} ne $dns_hostname;
+
                   next LOOP_ON_IP;
                   }
@@ -2800 +2798 @@
                # Declare in DNS but not in DDT
                print "Error: DNS host $dns_hostname in sector $sector_current with IP $ip not declare in DDT database\n" if $dns_hostname ne '';
-               # Normally never arrive here
-
-               #if ($computer_db->{$sector_current}{}$attribute->{'hostname'} ne $dns_hostname) {
-               #   print "$mac_address ($sector_current) $ip - $dns_hostname / $attribute->{'hostname'} # $attribute->{'comment'}\n";
-               #   next LOOP_ON_IP;
-               #   }
                }
             }