Changeset 365 for trunk

Timestamp:

Sep 17, 2018, 11:24:54 AM (6 years ago)

Author:

g7moreau

Message:

• Error in $mac variable (change_type)

File:

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

trunk/ddt/ddt

@@ -1129 +1129 @@
    control_exist_sector($computer_db, $sector) or exit;
 
-   $mac = get_mac_from_hostname($computer_db, $sector, $hostname, $mac);
-   control_syntax_mac_address($mac) or exit;
-
    LOOP_ON_COMPUTER:
    for my $computer (@{$computer_db->{$sector}}) {
       my ($mac_address, $attribute) = %{$computer};
 
-      next LOOP_ON_COMPUTER if $mac_address ne $mac;
+      next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
+
+      die "Warning: host $hostname already of type $type\n" if $attribute->{'address_type'} eq $type;
 
       $attribute->{'address_type'}  = $type;
@@ -1144 +1143 @@
       exit;
       }
-   print "Error: change host $hostname type [FAILED]\n";
+   die "Error: change host $hostname type [FAILED]\n";
    }