version 1.9, 2011/10/21 20:00:30
|
version 1.12, 2014/01/01 17:41:51
|
Line 280 sub can_view {
|
Line 280 sub can_view {
|
} |
} |
} |
} |
unless ($allowed) { |
unless ($allowed) { |
|
my %alloweddoms; |
foreach my $dom (@poss_domains) { |
foreach my $dom (@poss_domains) { |
my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'], |
my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'], |
$dom); |
$dom); |
if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") { |
if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") { |
if ($page eq 'domconf') { |
if ($page eq 'domconf') { |
$allowed .= $dom.'&'; |
$alloweddoms{$dom} = 1; |
} else { |
} else { |
$allowed = 1; |
$allowed = 1; |
} |
} |
Line 295 sub can_view {
|
Line 296 sub can_view {
|
my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'}); |
my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'}); |
if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) { |
if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) { |
if ($page eq 'domconf') { |
if ($page eq 'domconf') { |
$allowed .= $dom.'&'; |
$alloweddoms{$dom} = 1; |
} else { |
} else { |
$allowed = 1; |
$allowed = 1; |
} |
} |
Line 307 sub can_view {
|
Line 308 sub can_view {
|
} |
} |
} |
} |
} |
} |
$allowed =~ s/\&$//; |
if (($page eq 'domconf') && (!$allowed)) { |
|
$allowed = join('&',sort(keys(%alloweddoms))); |
|
} |
} |
} |
} |
} |
return $allowed; |
return $allowed; |
Line 377 sub serverstatus_titles {
|
Line 380 sub serverstatus_titles {
|
'loncron' => 'Generate Detailed Report', |
'loncron' => 'Generate Detailed Report', |
'server-status' => 'Apache Status Page', |
'server-status' => 'Apache Status Page', |
'codeversions' => 'LON-CAPA Module Versions', |
'codeversions' => 'LON-CAPA Module Versions', |
|
'checksums' => 'LON-CAPA Module Checking', |
'clusterstatus' => 'Domain status', |
'clusterstatus' => 'Domain status', |
'metadata_keywords' => 'Display Metadata Keywords', |
'metadata_keywords' => 'Display Metadata Keywords', |
'metadata_harvest' => 'Harvest Metadata Searches', |
'metadata_harvest' => 'Harvest Metadata Searches', |
Line 386 sub serverstatus_titles {
|
Line 390 sub serverstatus_titles {
|
'toggledebug' => 'Toggle debug messages', |
'toggledebug' => 'Toggle debug messages', |
'ping' => 'Cause server to ping another server', |
'ping' => 'Cause server to ping another server', |
'domconf' => 'Text Display of Domain Configuration', |
'domconf' => 'Text Display of Domain Configuration', |
|
'uniquecodes' => 'Six-character Course Codes', |
); |
); |
return \%titles; |
return \%titles; |
} |
} |