|
version 1.277, 2005/02/06 07:39:49
|
version 1.279, 2005/02/17 08:57:51
|
|
Line 4282 sub ReadHostTable {
|
Line 4282 sub ReadHostTable {
|
| if ($configline !~ /^\s*\#/ && $configline !~ /^\s*$/ ) { |
if ($configline !~ /^\s*\#/ && $configline !~ /^\s*$/ ) { |
| my ($id,$domain,$role,$name)=split(/:/,$configline); |
my ($id,$domain,$role,$name)=split(/:/,$configline); |
| $name=~s/\s//g; |
$name=~s/\s//g; |
| my (undef,undef,undef,undef,$ip) = gethostbyname($name); |
my $ip = gethostbyname($name); |
| if (length($ip) ne 4) { |
if (length($ip) ne 4) { |
| &logthis("Skipping host $id name $name no IP $ip found\n"); |
&logthis("Skipping host $id name $name no IP $ip found\n"); |
| next; |
next; |
|
Line 4741 sub make_new_child {
|
Line 4741 sub make_new_child {
|
| |
|
| ReadManagerTable; # May also be a manager!! |
ReadManagerTable; # May also be a manager!! |
| |
|
| my $clientrec=($hostid{$clientip} ne undef); |
my $outsideip=$clientip; |
| my $ismanager=($managers{$clientip} ne undef); |
if ($clientip eq '127.0.0.1') { |
| |
$outsideip=$hostip{$perlvar{'lonHostID'}}; |
| |
} |
| |
|
| |
my $clientrec=($hostid{$outsideip} ne undef); |
| |
my $ismanager=($managers{$outsideip} ne undef); |
| $clientname = "[unknonwn]"; |
$clientname = "[unknonwn]"; |
| if($clientrec) { # Establish client type. |
if($clientrec) { # Establish client type. |
| $ConnectionType = "client"; |
$ConnectionType = "client"; |
| $clientname = $hostid{$clientip}; |
$clientname = $hostid{$outsideip}; |
| if($ismanager) { |
if($ismanager) { |
| $ConnectionType = "both"; |
$ConnectionType = "both"; |
| } |
} |
| } else { |
} else { |
| $ConnectionType = "manager"; |
$ConnectionType = "manager"; |
| $clientname = $managers{$clientip}; |
$clientname = $managers{$outsideip}; |
| } |
} |
| my $clientok; |
my $clientok; |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom