version 1.10, 2003/09/15 09:25: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"; |
} |
} |
Line 689 are used as follows:
|
Line 699 are used as follows:
|
[1] - LonCapa domain name. |
[1] - LonCapa domain name. |
[2] - Loncapa role (e.g. library or access). |
[2] - Loncapa role (e.g. library or access). |
[3] - DNS name server hostname. |
[3] - DNS name server hostname. |
[4] - IP address (result of e.g. nslooup [3]). |
[4] - IP address (result of e.g. nslookup [3]). |
[5] - Maximum connection count. |
[5] - Maximum connection count. |
[6] - Idle timeout for reducing connection count. |
[6] - Idle timeout for reducing connection count. |
[7] - Minimum connection count. |
[7] - Minimum connection count. |