![[BACK]](/icons/back.gif){kind=icon}
Return to lontokacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
Return to lontokacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
| version 1.16, 2006/02/07 19:46:26 | version 1.17, 2007/03/02 23:17:48 |
|---|---|
| Line 59 sub handler { | Line 59 sub handler { |
| $readline=~s/\s*$//; | $readline=~s/\s*$//; |
| my ($id,$domain,$role,$name)=split(/:/,$readline); | my ($id,$domain,$role,$name)=split(/:/,$readline); |
| foreach my $hostid (@{$hostids}) { | foreach my $hostid (@{$hostids}) { |
| my $hostname=$Apache::lonnet::hostname{$hostid}; | my $hostname=&Apache::lonnet::hostname($hostid); |
| if ($name =~ /^\Q$hostname\E$/i) { | if ($name =~ /^\Q$hostname\E$/i) { |
| return OK; | return OK; |
| } | } |