Changeset 329 for trunk/ddt

Timestamp:

Aug 27, 2018, 1:30:00 PM (6 years ago)

Author:

g7moreau

Message:

• Change and operator (to strong) to comma ,

File:

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

trunk/ddt/ddt

@@ -21 +21 @@
 use strict;
 #use warnings;
-use version; our $VERSION = version->declare('0.10.0');
+use version; our $VERSION = version->declare('0.10.1');
 
 use Getopt::Long qw(GetOptions);
@@ -724 +724 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
+         $computer_index++, next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
 
          $attribute->{'modify_time'} = time;
@@ -743 +743 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
+         $computer_index++, next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
 
          $attribute->{'modify_time'} = time;
          $computer_db->{$domainset}[$computer_index] = { $mac => $attribute };
          ipamdb_save("$COMPUTER_YAML", $computer_db);
-         print "Info: Update host $hostname MAC: $mac IP: $ip [OK]\n";
+         print "Info: Update HOST: $hostname DOMAINSET: $domainset MAC: $mac IP: $attribute->{'ip'} [OK]\n";
          exit;
          }
@@ -985 +985 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $mac_address ne $mac;
+         $computer_index++, next LOOP_ON_COMPUTER if $mac_address ne $mac;
          next LOOP_ON_DOMAINSET if $attribute->{'ip'} ne $ip;
 
@@ -1442 +1442 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
+         $computer_index++, next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
          
          splice(@{$computer_db->{$domainset}}, $computer_index => 1);
@@ -1461 +1461 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
+         $computer_index++, next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
 
          if ($attribute->{'address_type'} eq 'pool-dhcp') {
@@ -1505 +1505 @@
          my ($mac_address, $attribute) = %{$computer};
 
-         $computer_index++ and next LOOP_ON_COMPUTER if $mac_address ne $mac;
+         $computer_index++, next LOOP_ON_COMPUTER if $mac_address ne $mac;
 
          if ($attribute->{'ip'} ne $pool) {