Changeset 315
- Timestamp:
- Jul 19, 2018, 9:23:39 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ddt/ddt
r314 r315 1461 1461 my ($mac_address, $attribute) = %{$computer}; 1462 1462 1463 $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname; 1464 1465 if ($attribute->{'address_type'} eq 'pool-dhcp') { 1466 die "Error: Host remove $hostname from the domain set $domainset [FAILED]" . 1467 " ... The host $hostname belongs to a DHCP pool.\n"; 1468 } 1469 1470 splice(@{$computer_db->{$domainset}}, $computer_index => 1); 1471 ipamdb_save("$COMPUTER_YAML", $computer_db); 1472 print "Info: Host $hostname has been removed from the domain set $domainset [OK]\n"; 1473 exit; 1474 } 1463 $computer_index++ and next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname; 1464 1465 if ($attribute->{'address_type'} eq 'pool-dhcp') { 1466 die "Error: Host remove $hostname from the domain set $domainset [FAILED]" . 1467 " ... The host $hostname belongs to a DHCP pool.\n"; 1468 } 1469 1470 splice(@{$computer_db->{$domainset}}, $computer_index => 1); 1471 ipamdb_save("$COMPUTER_YAML", $computer_db); 1472 print "Info: Host $hostname has been removed from the domain set $domainset [OK]\n"; 1473 exit; 1475 1474 } 1476 1475 }
Note: See TracChangeset
for help on using the changeset viewer.