--- loncom/auth/lonwebdavauth.pm 2015/05/29 20:00:49 1.4 +++ loncom/auth/lonwebdavauth.pm 2016/08/16 20:17:49 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # Authentication Handler for webDAV access to Authoring Space. # -# $Id: lonwebdavauth.pm,v 1.4 2015/05/29 20:00:49 raeburn Exp $ +# $Id: lonwebdavauth.pm,v 1.6 2016/08/16 20:17:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -178,12 +178,18 @@ sub handler { if ($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$/)) { $r->note_basic_auth_failure; return AUTH_REQUIRED; } } else { $uname = $r->user; + $uname =~ s/^\s+//; + $uname =~ s/\s+$//; ($udom) = ($r->uri =~ m{^/webdav/($match_domain)/}); unless (($udom ne '' ) && ($uname =~ /^$match_username$/) && ($upass ne '')) { $r->note_basic_auth_failure; @@ -285,11 +291,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 = $r->get_remote_host(); &Apache::lonnet::log($udom,$uname,$uhome, "Login webdav/$author $ip"); }