version 1.5, 2015/05/30 00:11:04
|
version 1.6, 2016/08/16 20:17:49
|
Line 291 sub init_webdav_env {
|
Line 291 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"); |
} |
} |