version 1.16, 2003/11/04 11:11:08
|
version 1.19, 2003/12/08 20:32:17
|
Line 70 sub ReadConfig {
|
Line 70 sub ReadConfig {
|
"$perlvar{'lonTabDir'}/hosts.tab") || |
"$perlvar{'lonTabDir'}/hosts.tab") || |
die "Can't read host table!!"; |
die "Can't read host table!!"; |
%hostshash = %{$hoststab}; |
%hostshash = %{$hoststab}; |
|
$ConfigRead = 1; |
|
|
} |
} |
|
|
Line 91 sub ReadForeignConfig {
|
Line 92 sub ReadForeignConfig {
|
my $MyHost = shift; |
my $MyHost = shift; |
my $Filename = shift; |
my $Filename = shift; |
|
|
|
&Debug(4, "ReadForeignConfig $MyHost $Filename\n"); |
|
|
$perlvar{lonHostID} = $MyHost; # Rmember my host. |
$perlvar{lonHostID} = $MyHost; # Rmember my host. |
my $hosttab = read_hosts($Filename) || |
my $hosttab = read_hosts($Filename) || |
die "Can't read hosts table!!"; |
die "Can't read hosts table!!"; |
%hostshash = %{$hosttab} |
%hostshash = %{$hosttab}; |
|
if($DebugLevel > 3) { |
|
foreach my $host (keys %hostshash) { |
|
print "host $host => $hostshash{$host}\n"; |
|
} |
|
} |
|
$ConfigRead = 1; |
|
|
} |
} |
|
|
Line 121 sub Dump {
|
Line 129 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 STDERR "$key -> $value\n"; |
print "$key -> $value\n"; |
} |
} |
print "-------------------------------\n"; |
print "-------------------------------\n"; |
} |
} |
Line 554 Shuts down the socket.
|
Line 562 Shuts down the socket.
|
sub Shutdown { |
sub Shutdown { |
my $self = shift; |
my $self = shift; |
my $socket = $self->GetSocket(); |
my $socket = $self->GetSocket(); |
|
$socket->send("exit\n", 0); # Ask lond to exit too. Non blocking so |
|
# there's no cost for failure. |
$socket->shutdown(2); |
$socket->shutdown(2); |
} |
} |
|
|