loncom/lonssl.pm - diff

Return to lonssl.pm CVS log

Up to [LON-CAPA] / loncom

version 1.10, 2006/08/25 17:49:15	version 1.12, 2015/10/15 13:40:27
Line 143 sub PromoteClientSocket {	Line 143 sub PromoteClientSocket {


my $client = IO::Socket::SSL->new_from_fd($dupfno,	my $client = IO::Socket::SSL->new_from_fd($dupfno,
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_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;