version 1.32, 2004/06/17 10:15:46
|
version 1.33, 2004/06/17 11:02:25
|
Line 259 sub new {
|
Line 259 sub new {
|
return undef; # Inidicates the socket could not be made. |
return undef; # Inidicates the socket could not be made. |
} |
} |
my $socket = $self->{Socket}; # For local use only. |
my $socket = $self->{Socket}; # For local use only. |
# If we are local, we'll first try local auth mode, otherwise, we'll try the |
# If we are local, we'll first try local auth mode, otherwise, we'll try |
# ssl auth mode: |
# the ssl auth mode: |
|
|
Debug(8, "Connecting to $DnsName I am $LocalDns"); |
Debug(8, "Connecting to $DnsName I am $LocalDns"); |
my $key; |
my $key; |
Line 290 sub new {
|
Line 290 sub new {
|
return undef; |
return undef; |
} |
} |
|
|
} |
} |
else { |
else { |
$self->{AuthenticationMode} = "ssl"; |
# Remote peer: I'd like to do ssl, but if my host key or certificates |
$self->{TransactionRequest} = "init:ssl\n"; |
# are not all installed, my only choice is insecure, if that's |
|
# allowed: |
|
|
|
my ($ca, $cert) = lonssl::CertificateFile; |
|
my $sslkeyfile = lonssl::KeyFile; |
|
|
|
if((defined $ca) && (defined $cert) && (defined $sslkeyfile)) { |
|
|
|
$self->{AuthenticationMode} = "ssl"; |
|
$self->{TransactionRequest} = "init:ssl\n"; |
|
} else { |
|
if($InsecureOk) { # Allowed to do insecure: |
|
$self->{AuthenticationMode} = "insecure"; |
|
$self->{TransactionRequest} = "init\n"; |
|
} |
|
else { # Not allowed to do insecure... |
|
$socket->close; |
|
return undef; |
|
} |
|
} |
} |
} |
|
|
# |
# |