Lines 88-95
sub process_request {
Link Here
|
88 |
$self->{config} = $config; |
88 |
$self->{config} = $config; |
89 |
|
89 |
|
90 |
my $sockname = getsockname(STDIN); |
90 |
my $sockname = getsockname(STDIN); |
91 |
($port, $sockaddr) = sockaddr_in($sockname); |
91 |
|
92 |
$sockaddr = inet_ntoa($sockaddr); |
92 |
# Check if socket connection is IPv6 before resolving address |
|
|
93 |
my $family = Socket::sockaddr_family($sockname); |
94 |
if ($family == AF_INET6) { |
95 |
($port, $sockaddr) = sockaddr_in6($sockname); |
96 |
$sockaddr = Socket::inet_ntop(AF_INET6, $sockaddr); |
97 |
} else { |
98 |
($port, $sockaddr) = sockaddr_in($sockname); |
99 |
$sockaddr = inet_ntoa($sockaddr); |
100 |
} |
93 |
$proto = $self->{server}->{client}->NS_proto(); |
101 |
$proto = $self->{server}->{client}->NS_proto(); |
94 |
|
102 |
|
95 |
$self->{service} = $config->find_service($sockaddr, $port, $proto); |
103 |
$self->{service} = $config->find_service($sockaddr, $port, $proto); |
96 |
- |
|
|