loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2001/05/05 13:14:45	version 1.16, 2001/05/09 16:57:07
Line 3	Line 3
# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)	# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
# 6/15,16/11,22/11,	# 6/15,16/11,22/11,
# 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,	# 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,
# 01/06/01,05/04,05/05 Gerd Kortemeyer	# 01/06/01,05/04,05/05,05/09 Gerd Kortemeyer

package Apache::loncacc;	package Apache::loncacc;

Line 15 use Fcntl qw(:flock);	Line 15 use Fcntl qw(:flock);

sub constructaccess {	sub constructaccess {
my ($url,$ownerdomain)=@_;	my ($url,$ownerdomain)=@_;
my ($ownername)=($url=~/\/(?:\~\|priv\/)(\w+)/);	my ($ownername)=($url=~/\/(?:\~\|priv\/\|home\/)(\w+)/);
unless (($ownername) && ($ownerdomain)) { return ''; }	unless (($ownername) && ($ownerdomain)) { return ''; }

if (($ownername eq $ENV{'user.name'}) &&	if (($ownername eq $ENV{'user.name'}) &&