loncom/auth/lonwebdavauth.pm - diff

Return to lonwebdavauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2015/05/29 20:00:49	version 1.5, 2015/05/30 00:11:04
Line 178 sub handler {	Line 178 sub handler {

if ($r->user =~ /,/) {	if ($r->user =~ /,/) {
($uname,$udom) = split(/,/,$r->user);	($uname,$udom) = split(/,/,$r->user);
	$uname =~ s/^\s+//;
	$uname =~ s/\s+$//;
	$udom =~ s/^\s+//;
	$udom =~ s/\s+$//;
unless (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {	unless (($uname =~ /^$match_username$/) && ($udom =~ /^$match_domain$/)) {
$r->note_basic_auth_failure;	$r->note_basic_auth_failure;
return AUTH_REQUIRED;	return AUTH_REQUIRED;
}	}
} else {	} else {
$uname = $r->user;	$uname = $r->user;
	$uname =~ s/^\s+//;
	$uname =~ s/\s+$//;
($udom) = ($r->uri =~ m{^/webdav/($match_domain)/});	($udom) = ($r->uri =~ m{^/webdav/($match_domain)/});
unless (($udom ne '' ) && ($uname =~ /^$match_username$/) && ($upass ne '')) {	unless (($udom ne '' ) && ($uname =~ /^$match_username$/) && ($upass ne '')) {
$r->note_basic_auth_failure;	$r->note_basic_auth_failure;