loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.34, 2004/09/14 11:46:29	version 1.35, 2004/09/21 10:51:42
Line 154 Dump the internal state of the object: F	Line 154 Dump the internal state of the object: F
sub Dump {	sub Dump {
my $self = shift;	my $self = shift;
my $level = shift;	my $level = shift;
	my $now = time;
	my $local = localtime($now);

if ($level <= $DebugLevel) {	if ($level <= $DebugLevel) {
return;	return;
}	}


my $key;	my $key;
my $value;	my $value;
print STDERR "Dumping LondConnectionObject:\n";	print STDERR "[ $local ] Dumping LondConnectionObject:\n";
while(($key, $value) = each %$self) {	while(($key, $value) = each %$self) {
print STDERR "$key -> $value\n";	print STDERR "$key -> $value\n";
}	}