loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2002/01/17 19:25:31	version 1.5, 2002/07/26 19:35:20
Line 34 package Apache::lonracc;	Line 34 package Apache::lonracc;

use strict;	use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :remotehost);
	use Apache::lonnet();
use Apache::File();	use Apache::File();

	sub subscribed {
	my ($filename,$id) = @_;
	my $found=0;
	my $expr='^'.$id.':'.$Apache::lonnet::hostip{$id}.':';
	$expr =~ s/\./\\\./g;
	my $sh;
	if ($sh=Apache::File->new("$filename.subscription")) {
	while (my $subline=<$sh>) { if ($subline =~ /$expr/) { $found=1; } }
	$sh->close();
	}
	return $found;
	}

sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost;	my $reqhost;
Line 55 sub handler {	Line 69 sub handler {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);
if ($name =~ /$reqhost/i) {	if ($name =~ /$reqhost/i) {
my $filename=$r->filename;	my $filename=$r->filename;
if ((-e "$filename.$id") \|\| ($filename=~/\.meta$/)) {	if ((-e "$filename.$id") \|\|
	&subscribed($filename,$id) \|\|
	($filename=~/\.meta$/)) {
return OK;	return OK;
} else {	} else {
$r->log_reason("$id not subscribed", $r->filename);	$r->log_reason("$id not subscribed", $r->filename);