Changeset 186 for trunk/klask

Timestamp:

Nov 10, 2016, 6:19:49 PM (7 years ago)

Author:

g7moreau

Message:

• Limit reverse DNS check the first time

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -221 +221 @@
    my $interface = shift || q{*};
    my $type      = shift || q{fast};
+   my $already   = shift || q{yes};
 
    my %ret = (
@@ -234 +235 @@
 
    # perl -MSocket -E 'say scalar gethostbyaddr(inet_aton("194.254.66.240"), AF_INET)'
-   my $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET);
+   my $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) if $already eq 'yes';
    $ret{hostname_fq} = $hostname_fq if defined $hostname_fq;
 
@@ -981 +982 @@
          printf ' %-8s %-14s', $current_interface, $one_computer;
 
-         my %resol_arp = resolve_ip_arp_host($one_computer, $current_interface);
+         my $already_exist = exists $computerdb->{$one_computer} ? 'yes' : 'no';
+         my %resol_arp = resolve_ip_arp_host($one_computer, $current_interface, 'fast', $already_exist);
 
          # do not search on router connection (why ?)
@@ -1866 +1868 @@
          my $packed_ip = scalar gethostbyname($ip);
          my $hostname_fq = 'unknown';
-            $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) || 'unknown' if defined $packed_ip;
+            $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET) || 'unknown' if defined $packed_ip and get_current_scan_mode($vlan) eq 'active';
 
          next LOOP_ON_IP_ADDRESS if $hostname_fq =~ m/$RE_FLOAT_HOSTNAME/;