215 |
$ip = $new_ip; |
$ip = $new_ip; |
216 |
} |
} |
217 |
|
|
218 |
if ( $ip ne $server::ip ) { |
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 && $ip_int >= ( $network | $server::ip_from ) && $ip_int <= ( $network | $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 = ( |