189 |
; |
; |
190 |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
} elsif ( $path =~ m!^/client(?:/$RE{net}{IPv4}{-keep})?! ) { |
191 |
my $ip = $1 || $client->peerhost; |
my $ip = $1 || $client->peerhost; |
192 |
|
|
193 |
|
if ( my $new_ip = $param->{change_ip} ) { |
194 |
|
client::change_ip( $ip, $new_ip ); |
195 |
|
$ip = $new_ip; |
196 |
|
} |
197 |
|
|
198 |
if ( $ip ne $server::ip ) { |
if ( $ip ne $server::ip ) { |
199 |
my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} ); |
my $hostname = client::conf( $ip, 'hostname' => $param->{hostname} ); |
200 |
|
|