![[BACK]](/icons/back.gif){kind=icon}
Return to lonracc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
Return to lonracc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
| version 1.20, 2007/02/01 07:13:04 | version 1.21, 2007/03/02 23:17:48 |
|---|---|
| Line 39 sub subscribed { | Line 39 sub subscribed { |
| return 0 if (!-e "$filename.subscription"); | return 0 if (!-e "$filename.subscription"); |
| my $hostname=$Apache::lonnet::hostname{$id}; | my $hostname=&Apache::lonnet::hostname($id); |
| my (undef,undef,undef,undef,$ip) = gethostbyname($hostname); | my (undef,undef,undef,undef,$ip) = gethostbyname($hostname); |
| return 0 if (length($ip) != 4); | return 0 if (length($ip) != 4); |