version 1.12, 2015/10/15 13:40:27
|
version 1.13, 2015/11/07 18:41:11
|
Line 196 sub PromoteServerSocket {
|
Line 196 sub PromoteServerSocket {
|
Debug(" Fileno = $dupfno\n"); |
Debug(" Fileno = $dupfno\n"); |
my $client = IO::Socket::SSL->new_from_fd($dupfno, |
my $client = IO::Socket::SSL->new_from_fd($dupfno, |
SSL_server => 1, # Server role. |
SSL_server => 1, # Server role. |
SSL_user_cert => 1, |
SSL_use_cert => 1, |
SSL_key_file => $KeyFile, |
SSL_key_file => $KeyFile, |
SSL_cert_file => $MyCert, |
SSL_cert_file => $MyCert, |
SSL_ca_file => $CACert); |
SSL_ca_file => $CACert); |