|
Lines 39-46
sub new {
Link Here
|
| 39 |
my %listeners; |
39 |
my %listeners; |
| 40 |
|
40 |
|
| 41 |
# The key to the listeners hash is the 'port' component of the |
41 |
# The key to the listeners hash is the 'port' component of the |
| 42 |
# configuration, which is of the form '[host]:[port]/proto', and |
42 |
# configuration, which is of the form '[host]:[port]/proto[/IPv[46]]' |
| 43 |
# the 'proto' component could be upper-, lower-, or mixed-cased. |
43 |
# The 'proto' component could be upper-, lower-, or mixed-cased. |
| 44 |
# Regularize it here to lower-case, and then do the same below in |
44 |
# Regularize it here to lower-case, and then do the same below in |
| 45 |
# find_server() when building the keys to search the hash. |
45 |
# find_server() when building the keys to search the hash. |
| 46 |
|
46 |
|
|
Lines 76-81
sub find_service {
Link Here
|
| 76 |
siplog( "LOG_DEBUG", |
76 |
siplog( "LOG_DEBUG", |
| 77 |
"Configuration::find_service: Trying $portstr" ); |
77 |
"Configuration::find_service: Trying $portstr" ); |
| 78 |
last if ( exists( ( $self->{listeners} )->{$portstr} ) ); |
78 |
last if ( exists( ( $self->{listeners} )->{$portstr} ) ); |
|
|
79 |
$portstr .= '/ipv4'; # lc, see ->new |
| 80 |
last if ( exists( ( $self->{listeners} )->{$portstr} ) ); |
| 81 |
$portstr .= '/ipv6'; # lc, see ->new |
| 82 |
last if ( exists( ( $self->{listeners} )->{$portstr} ) ); |
| 79 |
} |
83 |
} |
| 80 |
return $self->{listeners}->{$portstr}; |
84 |
return $self->{listeners}->{$portstr}; |
| 81 |
} |
85 |
} |