loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.46, 2003/05/13 00:52:46	version 1.49, 2003/11/01 16:37:21
Line 44 use Apache::Constants qw(:common :http :	Line 44 use Apache::Constants qw(:common :http :
use Apache::File;	use Apache::File;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonlocal;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);

Line 63 sub handler {	Line 64 sub handler {

&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);

	# --------------------------------------------------------- Initialize Language

	&Apache::lonlocal::get_language_handle($r);

# -------------------------------------------------------------- Resource State	# -------------------------------------------------------------- Resource State

if ($requrl=~/^\/res\//) {	if ($requrl=~/^\/res\//) {
Line 71 sub handler {	Line 76 sub handler {
$ENV{'request.state'} = 'unknown';	$ENV{'request.state'} = 'unknown';
}	}
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;
	$ENV{'request.noversionuri'} = &Apache::lonnet::deversion($requrl);
# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters

&Apache::loncommon::get_posted_cgi($r);	&Apache::loncommon::get_posted_cgi($r);