loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.54, 2004/12/17 19:43:19	version 1.59, 2005/01/25 00:28:00
Line 138 sub handler {	Line 138 sub handler {
}	}
} else {	} else {
$symb=&Apache::lonnet::symbread($requrl);	$symb=&Apache::lonnet::symbread($requrl);
	if (&Apache::lonnet::is_on_map($requrl) && $symb &&
	!&Apache::lonnet::symbverify($symb,$requrl)) {
	$r->log_reason('Invalid symb for '.$requrl.': '.$symb);
	$ENV{'user.error.msg'}=
	"$requrl:bre:1:1:Invalid Access";
	return HTTP_NOT_ACCEPTABLE;
	}
my ($map,$mid,$murl)=split(/\_\_\_/,$symb);	my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
&Apache::lonnet::symblist($map,$murl => $mid,	&Apache::lonnet::symblist($map,$murl => $mid,
'last_known' => $murl);	'last_known' => $murl);
Line 167 sub handler {	Line 174 sub handler {
$ENV{'request.state'} = "published";	$ENV{'request.state'} = "published";
$ENV{'request.publicaccess'} = 1;	$ENV{'request.publicaccess'} = 1;
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;
	my ($httpbrowser, $clientbrowser, $clientversion,
	$clientmathml, $clientunicode, $clientos) =
	&Apache::loncommon::decode_user_agent($r);
	$ENV{'browser.type'}=$clientbrowser;
	$ENV{'browser.version'}=$clientversion;
	$ENV{'browser.mathml'}=$clientmathml;
	$ENV{'browser.unicode'}=$clientunicode;
	$ENV{'browser.os'}=$clientos;

return OK;	return OK;
}	}
# -------------------------------------------------------------- Not authorized	# -------------------------------------------------------------- Not authorized