version 1.5, 2015/05/30 00:11:04
|
version 1.8, 2020/12/18 15:23:03
|
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 = &Apache::lonnet::get_requestor_ip($r); |
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"); |
} |
} |