loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.31, 2002/05/07 18:49:33	version 1.35, 2002/08/27 14:23:18
Line 207 sub handler {	Line 207 sub handler {
}	}

# -------------------------------------------- See if this is a public resource	# -------------------------------------------- See if this is a public resource
if (&Apache::lonnet::metadata($requrl,'copyright') eq 'public') {	if (($requrl=~/^\/public\//) \|\|
	(&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&Apache::lonnet::logthis('Granting public access: '.$requrl);	&Apache::lonnet::logthis('Granting public access: '.$requrl);
$ENV{'user.name'}='public';	$ENV{'user.name'}='public';
$ENV{'user.domain'}='public';	$ENV{'user.domain'}='public';
Line 216 sub handler {	Line 217 sub handler {
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;
return OK;	return OK;
}	}
# ----------------------------------------------- Store where they wanted to go	# -------------------------------------------------------------- Not authorized
	$requrl=~/\.(\w+)$/;
$ENV{'request.firsturl'}=$requrl;	if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|
return FORBIDDEN;	($requrl=~/^\/adm\/(roles\|logout)/)) {
	# -------------------------- Store where they wanted to go and get login screen
	$ENV{'request.firsturl'}=$requrl;
	return FORBIDDEN;
	} else {
	# --------------------------------------------------------------------- Goodbye
	return HTTP_BAD_REQUEST;
	}
}	}

1;	1;