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.20, 2007/02/01 07:13:04
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);