--- loncom/auth/lonwebdavauth.pm	2015/05/30 00:11:04	1.5
+++ loncom/auth/lonwebdavauth.pm	2020/12/18 15:23:03	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Authentication Handler for webDAV access to Authoring Space.
 #
-# $Id: lonwebdavauth.pm,v 1.5 2015/05/30 00:11:04 raeburn Exp $
+# $Id: lonwebdavauth.pm,v 1.8 2020/12/18 15:23:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -164,6 +164,13 @@ sub handler {
                 if (&Apache::lonnet::homeserver($uname,$udom) eq $uhome) {
                     &Apache::lonnet::transfer_profile_to_env($sessiondir,$handle);
                     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;
                     } else {
                         return FORBIDDEN;
@@ -291,11 +298,7 @@ sub init_webdav_env {
                                                   \%userenv,\%domdef,\%is_adv);
             @env{keys(%disk_env)} = @disk_env{keys(%disk_env)};
             untie(%disk_env);
-            my $ip;
-            my $c = $r->connection;
-            if (ref($c)) {
-                $ip = $c->remote_ip;
-            }
+            my $ip = &Apache::lonnet::get_requestor_ip($r);
             &Apache::lonnet::log($udom,$uname,$uhome,
                                  "Login webdav/$author $ip");
         }