version 1.46, 2007/04/10 23:15:20
|
version 1.47, 2009/10/29 03:23:52
|
Line 241 sub new {
|
Line 241 sub new {
|
if((defined $ca) && (defined $cert) && (defined $sslkeyfile)) { |
if((defined $ca) && (defined $cert) && (defined $sslkeyfile)) { |
|
|
$self->{AuthenticationMode} = "ssl"; |
$self->{AuthenticationMode} = "ssl"; |
$self->{TransactionRequest} = "init:ssl\n"; |
$self->{TransactionRequest} = "init:ssl:$perlvar{'lonVersion'}\n"; |
} else { |
} else { |
if($InsecureOk) { # Allowed to do insecure: |
if($InsecureOk) { # Allowed to do insecure: |
$self->{AuthenticationMode} = "insecure"; |
$self->{AuthenticationMode} = "insecure"; |
$self->{TransactionRequest} = "init\n"; |
$self->{TransactionRequest} = "init::$perlvar{'lonVersion'}\n"; |
} |
} |
else { # Not allowed to do insecure... |
else { # Not allowed to do insecure... |
$socket->close; |
$socket->close; |