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; |
} | } |