Changeset 351 for trunk/ddt

Timestamp:

Sep 13, 2018, 6:15:05 PM (6 years ago)

Author:

g7moreau

Message:

• Change ip to ip_range

File:

• trunk/ddt/ddt (modified) (1 diff)

trunk/ddt/ddt

@@ -267 +267 @@
    my ($computer_db, $sector, $ip) = @_;
 
-   return 1 if not exists $computer_db->{'dset'}{$sector}{'ip'}; # No IP range defined for this sector
+   return 1 if not exists $computer_db->{'dset'}{$sector}{'ip_range'}; # No IP range defined for this sector
 
    my $ip_addr = NetAddr::IP->new($ip);
 
    LOOP_ON_IP_RANGE:
-   for my $ip_range_current (@{$computer_db->{'dset'}{$sector}{'ip'}}) {
+   for my $ip_range_current (@{$computer_db->{'dset'}{$sector}{'ip_range'}}) {
       my $range = NetAddr::IP->new($ip_range_current);
       return 1 if $range->contains($ip_addr);