version 1.436, 2017/03/26 22:11:54
|
version 1.437, 2017/03/26 22:19:24
|
Line 6767 ENDSCRIPT
|
Line 6767 ENDSCRIPT
|
return; |
return; |
} |
} |
|
|
|
if (&Apache::lonnet::privileged($uname,$udom, |
|
[$env{'request.role.domain'}],['dc','su'])) { |
|
unless (&Apache::lonnet::privileged($env{'user.name'},$env{'user.domain'}, |
|
[$env{'request.role.domain'}],['dc','su'])) { |
|
$r->print('<p class="LC_warning">' |
|
.&mt('You need to be a privileged user to display user access logs for [_1]', |
|
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom), |
|
$uname,$udom)) |
|
.'</p>'); |
|
if ($env{'form.popup'}) { |
|
$r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>'); |
|
} else { |
|
$r->print(&earlyout_accesslog_form($formname,$prevphasestr,$udom)); |
|
} |
|
return; |
|
} |
|
} |
|
|
# set defaults |
# set defaults |
my $now = time(); |
my $now = time(); |
my $defstart = $now - (7*24*3600); |
my $defstart = $now - (7*24*3600); |
Line 6853 ENDSCRIPT
|
Line 6871 ENDSCRIPT
|
$showntableheader = 1; |
$showntableheader = 1; |
} |
} |
my ($shown,$extra); |
my ($shown,$extra); |
my ($event,$data) = split(/\s+/,&unescape($event)); |
my ($event,$data) = split(/\s+/,&unescape($event),2); |
if ($event eq 'Role') { |
if ($event eq 'Role') { |
my ($rolecode,$extent) = split(/\./,$data,2); |
my ($rolecode,$extent) = split(/\./,$data,2); |
next if ($extent eq ''); |
next if ($extent eq ''); |
Line 6905 ENDSCRIPT
|
Line 6923 ENDSCRIPT
|
$shown = &mt('Role selection: [_1]',$rolename); |
$shown = &mt('Role selection: [_1]',$rolename); |
} else { |
} else { |
$shown = &mt($event); |
$shown = &mt($event); |
if ($data ne '') { |
if ($data =~ /^webdav/) { |
$extra = &mt('Client IP address: [_1]',$data); |
my ($path,$clientip) = split(/\s+/,$data,2); |
|
$path =~ s/^webdav//; |
|
if ($clientip ne '') { |
|
$extra = &mt('Client IP address: [_1]',$clientip); |
|
} |
|
if ($path ne '') { |
|
$shown .= ' '.&mt('(WebDAV access to [_1])',$path); |
|
} |
|
} elsif ($data ne '') { |
|
$extra = &mt('Client IP address: [_1]',$data); |
} |
} |
} |
} |
$r->print( |
$r->print( |