version 1.10, 2006/08/25 17:49:15
|
version 1.11, 2014/11/06 02:22:11
|
Line 146 sub PromoteClientSocket {
|
Line 146 sub PromoteClientSocket {
|
SSL_user_cert => 1, |
SSL_user_cert => 1, |
SSL_key_file => $KeyFile, |
SSL_key_file => $KeyFile, |
SSL_cert_file => $MyCert, |
SSL_cert_file => $MyCert, |
SSL_ca_fie => $CACert); |
SSL_ca_file => $CACert); |
|
|
if(!$client) { |
if(!$client) { |
$lasterror = IO::Socket::SSL::errstr(); |
$lasterror = IO::Socket::SSL::errstr(); |
Line 199 sub PromoteServerSocket {
|
Line 199 sub PromoteServerSocket {
|
SSL_user_cert => 1, |
SSL_user_cert => 1, |
SSL_key_file => $KeyFile, |
SSL_key_file => $KeyFile, |
SSL_cert_file => $MyCert, |
SSL_cert_file => $MyCert, |
SSL_ca_fie => $CACert); |
SSL_ca_file => $CACert); |
if(!$client) { |
if(!$client) { |
$lasterror = IO::Socket::SSL::errstr(); |
$lasterror = IO::Socket::SSL::errstr(); |
return undef; |
return undef; |