215 |
$ip = $new_ip; |
$ip = $new_ip; |
216 |
} |
} |
217 |
|
|
218 |
my $ip_short = (split(/\./, $ip, 4))[3]; |
my $netmask = ip::to_int $server::netmask; |
219 |
|
my $network = ip::to_int $server::ip & $netmask; |
220 |
|
my $ip_int = ip::to_int $ip; |
221 |
|
|
222 |
# if ( $ip ne $server::ip ) -- not flexible enough for tunnel endpoints |
if ( $ip ne $server::ip && $ip_int >= ( $network | $server::ip_from ) && $ip_int <= ( $network | $server::ip_to ) ) { |
|
if ( $ip_short >= $server::ip_from && $ip_short <= $server::ip_to ) { |
|
223 |
my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} ); |
my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} ); |
224 |
|
|
225 |
my @table = ( |
my @table = ( |