Lines 1071-1077
sub server_sock_setup_inet {
Link Here
|
1071 |
$sockopt{V6Only} = 1 if $io_socket_module_name eq 'IO::Socket::IP' |
1071 |
$sockopt{V6Only} = 1 if $io_socket_module_name eq 'IO::Socket::IP' |
1072 |
&& IO::Socket::IP->VERSION >= 0.09; |
1072 |
&& IO::Socket::IP->VERSION >= 0.09; |
1073 |
%sockopt = (%sockopt, ( |
1073 |
%sockopt = (%sockopt, ( |
1074 |
SSL_version => $sslversion, |
|
|
1075 |
SSL_verify_mode => 0x00, |
1074 |
SSL_verify_mode => 0x00, |
1076 |
SSL_key_file => $opt{'server-key'}, |
1075 |
SSL_key_file => $opt{'server-key'}, |
1077 |
SSL_cert_file => $opt{'server-cert'}, |
1076 |
SSL_cert_file => $opt{'server-cert'}, |
Lines 1092-1098
sub server_sock_setup_inet {
Link Here
|
1092 |
if (!$server_inet) { |
1091 |
if (!$server_inet) { |
1093 |
$diag = sprintf("could not create %s socket on [%s]:%s: %s", |
1092 |
$diag = sprintf("could not create %s socket on [%s]:%s: %s", |
1094 |
$ssl ? 'IO::Socket::SSL' : $io_socket_module_name, |
1093 |
$ssl ? 'IO::Socket::SSL' : $io_socket_module_name, |
1095 |
$adr, $port, $!); |
1094 |
$adr, $port, $ssl && $IO::Socket::SSL::SSL_ERROR ? |
|
|
1095 |
"$!,$IO::Socket::SSL::SSL_ERROR" : $!); |
1096 |
|
1096 |
push(@diag_fail, $diag); |
1097 |
push(@diag_fail, $diag); |
1097 |
} else { |
1098 |
} else { |
1098 |
$diag = sprintf("created %s socket on [%s]:%s", |
1099 |
$diag = sprintf("created %s socket on [%s]:%s", |
Lines 1521-1527
sub accept_from_any_server_socket {
Link Here
|
1521 |
} # end multiple sockets case |
1522 |
} # end multiple sockets case |
1522 |
|
1523 |
|
1523 |
if ($selected_socket_info) { |
1524 |
if ($selected_socket_info) { |
1524 |
my $socket = $selected_socket_info->{socket}; |
1525 |
$socket = $selected_socket_info->{socket}; |
1525 |
$socket or die "no socket???, impossible"; |
1526 |
$socket or die "no socket???, impossible"; |
1526 |
dbg("spamd: accept() on fd %d", $selected_socket_info->{fd}); |
1527 |
dbg("spamd: accept() on fd %d", $selected_socket_info->{fd}); |
1527 |
$client = $socket->accept; |
1528 |
$client = $socket->accept; |