Changeset 189 for trunk/klask

Timestamp:

Nov 11, 2016, 12:24:37 PM (7 years ago)

Author:

g7moreau

Message:

• Small error on loop

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -1204 +1204 @@
 
    if ($repairdns) { # Search and update unkown computer in reverse DNS
-      LOOP_ON_COMPUTER:
-      for my $one_computer (@computer) {
-         next LOOP_ON_COMPUTER if $computerdb->{$one_computer}{hostname_fq} ne 'unknow';
-
-         my $packed_ip = scalar gethostbyname($one_computer);
-         next LOOP_ON_COMPUTER if not defined $packed_ip;
+      LOOP_ON_IP_ADDRESS:
+      for my $ip (keys %{$computerdb}) {
+         next LOOP_ON_IP_ADDRESS if $computerdb->{$ip}{hostname_fq} ne 'unknow';
+
+         my $packed_ip = scalar gethostbyname($ip);
+         next LOOP_ON_IP_ADDRESS if not defined $packed_ip;
 
          my $hostname_fq = scalar gethostbyaddr($packed_ip, AF_INET);
-         next LOOP_ON_COMPUTER if not defined $hostname_fq;
-
-         $computerdb->{$one_computer}{hostname_fq} = $hostname_fq;
+         next LOOP_ON_IP_ADDRESS if not defined $hostname_fq;
+
+         $computerdb->{$ip}{hostname_fq} = $hostname_fq;
          $database_has_changed++;
          }