loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.28, 2003/05/13 00:52:46	version 1.30, 2003/09/16 18:15:43
Line 42 use Apache::Constants qw(:common :http :	Line 42 use Apache::Constants qw(:common :http :
use Apache::File;	use Apache::File;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
	use Apache::lonlocal;

sub constructaccess {	sub constructaccess {
my ($url,$ownerdomain)=@_;	my ($url,$ownerdomain)=@_;
Line 55 sub constructaccess {	Line 56 sub constructaccess {
}	}

my $capriv='user.priv.ca./'.	my $capriv='user.priv.ca./'.
$ownerdomain.'/'.$ownername.'./'.	$ownerdomain.'/'.$ownername.'./';
$ownerdomain.'/'.$ownername;
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_ eq $capriv) {	if ($_ eq $capriv) {
return ($ownername,$ownerdomain);	return ($ownername,$ownerdomain);
}	}
}	}

return '';	return '';
}	}

Line 83 sub handler {	Line 82 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();

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

$ENV{'request.state'} = "construct";	$ENV{'request.state'} = "construct";