![[BACK]](/icons/back.gif){kind=icon}
Return to lonc CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lonc CVS log | Up to [LON-CAPA] / loncom |
| version 1.27, 2002/02/19 21:49:12 | version 1.28, 2002/02/19 22:51:13 |
|---|---|
| Line 160 open (CONFIG,"$perlvar{'lonTabDir'}/host | Line 160 open (CONFIG,"$perlvar{'lonTabDir'}/host |
| while ($configline=<CONFIG>) { | while ($configline=<CONFIG>) { |
| my ($id,$domain,$role,$name,$ip)=split(/:/,$configline); | my ($id,$domain,$role,$name,$ip)=split(/:/,$configline); |
| chomp($ip); | chomp($ip); |
| $hostip{$id}=$ip; | if ($ip) { |
| $hostname{$id}=$name; | $hostip{$id}=$ip; |
| $hostname{$id}=$name; | |
| } | |
| } | } |
| close(CONFIG); | close(CONFIG); |