View | Details | Raw Unified | Return to bug 13252
Collapse All | Expand All

(-)a/C4/SIP/SIPServer.pm (-3 / +10 lines)
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
- 

Return to bug 13252