loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.39, 2005/06/19 00:41:32	version 1.41, 2006/04/13 19:07:33
Line 31 package Apache::loncacc;	Line 31 package Apache::loncacc;

use strict;	use strict;
use Apache::Constants qw(:common :http :methods REDIRECT);	use Apache::Constants qw(:common :http :methods REDIRECT);
use Apache::File;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::lonacc;

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

foreach my $domain (@possibledomains) {	foreach my $domain (@possibledomains) {
my $capriv='user.priv.ca./'.$domain.'/'.$ownername.'./';	if (exists($env{'user.priv.ca./'.$domain.'/'.$ownername.'./'}) \|\|
foreach (keys %env) {	exists($env{'user.priv.aa./'.$domain.'/'.$ownername.'./'}) ) {
if ($_ eq $capriv) {	return ($ownername,$domain);
return ($ownername,$domain);
}
}
my $aapriv='user.priv.aa./'.$domain.'/'.$ownername.'./';
foreach (keys %env) {
if ($_ eq $aapriv) {
return ($ownername,$domain);
}
}	}
}	}
return '';	return '';
Line 103 sub handler {	Line 94 sub handler {

# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters

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

return OK;	return OK;
} else {	} else {