version 1.31, 2004/06/17 09:26:09
|
version 1.32, 2004/06/17 10:15:46
|
Line 42 use LONCAPA::lonssl;
|
Line 42 use LONCAPA::lonssl;
|
|
|
|
|
|
|
my $DebugLevel=11; |
my $DebugLevel=0; |
my %hostshash; |
my %hostshash; |
my %perlvar; |
my %perlvar; |
my $LocalDns = ""; # Need not be defined for managers. |
my $LocalDns = ""; # Need not be defined for managers. |
Line 153 Dump the internal state of the object: F
|
Line 153 Dump the internal state of the object: F
|
|
|
sub Dump { |
sub Dump { |
my $self = shift; |
my $self = shift; |
|
my $level = shift; |
|
|
|
if ($level <= $DebugLevel) { |
|
return; |
|
} |
|
|
my $key; |
my $key; |
my $value; |
my $value; |
print STDERR "Dumping LondConnectionObject:\n"; |
print STDERR "Dumping LondConnectionObject:\n"; |
Line 315 sub new {
|
Line 321 sub new {
|
# return the object : |
# return the object : |
|
|
Debug(9, "Initial object state: "); |
Debug(9, "Initial object state: "); |
$self->Dump(); |
$self->Dump(9); |
|
|
return $self; |
return $self; |
} |
} |
Line 978 sub CreateCipher {
|
Line 984 sub CreateCipher {
|
if($cipher) { |
if($cipher) { |
$self->{Cipher} = $cipher; |
$self->{Cipher} = $cipher; |
Debug("Cipher created dumping socket: "); |
Debug("Cipher created dumping socket: "); |
$self->Dump(); |
$self->Dump(9); |
return 1; |
return 1; |
} |
} |
else { |
else { |