loncom/auth/lonwebdavauth.pm - diff

Return to lonwebdavauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2015/05/30 00:11:04	version 1.7, 2017/01/30 00:16:31
Line 164 sub handler {	Line 164 sub handler {
if (&Apache::lonnet::homeserver($uname,$udom) eq $uhome) {	if (&Apache::lonnet::homeserver($uname,$udom) eq $uhome) {
&Apache::lonnet::transfer_profile_to_env($sessiondir,$handle);	&Apache::lonnet::transfer_profile_to_env($sessiondir,$handle);
if (&Apache::lonnet::usertools_access($uname,$udom,'webdav')) {	if (&Apache::lonnet::usertools_access($uname,$udom,'webdav')) {
	if ($r->user() eq '') {
	if ($env{'user.domain'} eq $r->dir_config('lonDefDomain')) {
	$r->user($env{'user.name'});
	} else {
	$r->user($env{'user.name'}.':'.$env{'user.domain'});
	}
	}
return OK;	return OK;
} else {	} else {
return FORBIDDEN;	return FORBIDDEN;
Line 291 sub init_webdav_env {	Line 298 sub init_webdav_env {
\%userenv,\%domdef,\%is_adv);	\%userenv,\%domdef,\%is_adv);
@env{keys(%disk_env)} = @disk_env{keys(%disk_env)};	@env{keys(%disk_env)} = @disk_env{keys(%disk_env)};
untie(%disk_env);	untie(%disk_env);
my $ip;	my $ip = $r->get_remote_host();
my $c = $r->connection;
if (ref($c)) {
$ip = $c->remote_ip;
}
&Apache::lonnet::log($udom,$uname,$uhome,	&Apache::lonnet::log($udom,$uname,$uhome,
"Login webdav/$author $ip");	"Login webdav/$author $ip");
}	}