loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.23, 2002/09/30 20:35:38	version 1.25, 2003/02/03 18:03:52
Line 31	Line 31
# YEAR=2001	# YEAR=2001
# 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,05/09 Gerd Kortemeyer	# 01/06/01,05/04,05/05,05/09 Gerd Kortemeyer
# 12/21 Scott Harrison
# YEAR=2002	# YEAR=2002
# 1/4 Gerd Kortemeyer	# 1/4 Gerd Kortemeyer
###	###
Line 48 sub constructaccess {	Line 47 sub constructaccess {
my ($url,$ownerdomain)=@_;	my ($url,$ownerdomain)=@_;
my ($ownername)=($url=~/\/(?:\~\|priv\/\|home\/)(\w+)/);	my ($ownername)=($url=~/\/(?:\~\|priv\/\|home\/)(\w+)/);
unless (($ownername) && ($ownerdomain)) { return ''; }	unless (($ownername) && ($ownerdomain)) { return ''; }
	# We do not allow editing of previous versions of files.
	if ($url=~/\.(\d+)\.(\w+)$/) { return ''; }
if (($ownername eq $ENV{'user.name'}) &&	if (($ownername eq $ENV{'user.name'}) &&
($ownerdomain eq $ENV{'user.domain'})) {	($ownerdomain eq $ENV{'user.domain'})) {
return ($ownername,$ownerdomain);	return ($ownername,$ownerdomain);