version 1.11, 2003/09/30 10:46:57
|
version 1.12, 2003/10/07 11:23:26
|
Line 38 use Crypt::IDEA;
|
Line 38 use Crypt::IDEA;
|
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use LONCAPA::HashIterator; |
use LONCAPA::HashIterator; |
|
|
|
|
|
|
|
|
my $DebugLevel=0; |
my $DebugLevel=0; |
|
my %hostshash; |
|
my %perlvar; |
|
|
# Read the configuration file for apache to get the perl |
# Read the configuration file for apache to get the perl |
# variable set. |
# variable set. |
|
|
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
sub ReadConfig { |
my %perlvar = %{$perlvarref}; |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $hoststab = |
%perlvar = %{$perlvarref}; |
LONCAPA::Configuration::read_hosts( |
my $hoststab = |
"$perlvar{'lonTabDir'}/hosts.tab") || |
LONCAPA::Configuration::read_hosts( |
die "Can't read host table!!"; |
"$perlvar{'lonTabDir'}/hosts.tab") || |
my %hostshash = %{$hoststab}; |
die "Can't read host table!!"; |
|
%hostshash = %{$hoststab}; |
|
|
|
close(CONFIG); |
|
} |
|
|
|
|
close(CONFIG); |
ReadConfig; # Make sure it gets read on init. |
|
|
sub Debug { |
sub Debug { |
my $level = shift; |
my $level = shift; |
Line 65 sub Debug {
|
Line 75 sub Debug {
|
|
|
=head2 Dump |
=head2 Dump |
|
|
Dump the internal state of the object: For debugging purposes. |
Dump the internal state of the object: For debugging purposes, to stderr. |
|
|
=cut |
=cut |
|
|
Line 75 sub Dump {
|
Line 85 sub Dump {
|
my $value; |
my $value; |
print "Dumping LondConnectionObject:\n"; |
print "Dumping LondConnectionObject:\n"; |
while(($key, $value) = each %$self) { |
while(($key, $value) = each %$self) { |
print "$key -> $value\n"; |
print STDERR "$key -> $value\n"; |
} |
} |
print "-------------------------------\n"; |
print "-------------------------------\n"; |
} |
} |