loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.55, 2011/10/24 22:39:14	version 1.56, 2011/10/25 18:37:11
Line 103 sub constructaccess {	Line 103 sub constructaccess {
if ($url=~/\.(\d+)\.(\w+)$/) { return ''; }	if ($url=~/\.(\d+)\.(\w+)$/) { return ''; }

# Get username and domain from URL	# Get username and domain from URL
my ($ownerdomain,$ownername)=($url=~/^\/priv\/($match_domain)\/($match_username)\//);	my ($ownerdomain,$ownername)=($url=~/^(?:\/home\/httpd\/html\/\|\/)priv\/($match_domain)\/($match_username)\//);

# The URL does not really point to any authorspace, forget it	# The URL does not really point to any authorspace, forget it
unless (($ownername) && ($ownerdomain)) { return ''; }	unless (($ownername) && ($ownerdomain)) { return ''; }