loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.19, 2007/02/01 06:31:33	version 1.21, 2007/03/02 23:17:48
Line 37 use IO::Socket;	Line 37 use IO::Socket;
sub subscribed {	sub subscribed {
my ($filename,$id) = @_;	my ($filename,$id) = @_;

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