version 1.5, 2013/02/02 00:22:51
|
version 1.9, 2025/03/04 02:24:03
|
Line 77 sub handler {
|
Line 77 sub handler {
|
&Apache::lonhtmlcommon::breadcrumbs('Server Status Information')); |
&Apache::lonhtmlcommon::breadcrumbs('Server Status Information')); |
|
|
if (keys(%candisplay) > 0) { |
if (keys(%candisplay) > 0) { |
$r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>'). |
$r->print(&print_status_menu(\%candisplay,$dom)); |
'</h2>'.&print_status_menu(\%candisplay)); |
|
} else { |
} else { |
$r->print( |
$r->print( |
'<h2>'.&mt('No information available').'</h2>' |
'<h2>'.&mt('No information available').'</h2>' |
Line 93 sub handler {
|
Line 92 sub handler {
|
} |
} |
|
|
sub print_status_menu { |
sub print_status_menu { |
my ($candisplay) = @_; |
my ($candisplay,$dom) = @_; |
return '' if (ref($candisplay) ne 'HASH'); |
return '' if (ref($candisplay) ne 'HASH'); |
return &Apache::lonhtmlcommon::generate_menu( |
return &Apache::lonhtmlcommon::generate_menu( |
&servermenu_items($candisplay)); |
&servermenu_items($candisplay,$dom)); |
} |
} |
|
|
sub servermenu_items { |
sub servermenu_items { |
my ($candisplay) = @_; |
my ($candisplay,$dom) = @_; |
my $titles = &LONCAPA::lonauthcgi::serverstatus_titles(); |
my $titles = &LONCAPA::lonauthcgi::serverstatus_titles(); |
my $linknames = &serverstatus_links(); |
my $linknames = &serverstatus_links(); |
my @menu; |
my @menu; |
Line 145 sub servermenu_items {
|
Line 144 sub servermenu_items {
|
linktitle => $titles->{'clusterstatus'}, |
linktitle => $titles->{'clusterstatus'}, |
}, |
}, |
{ |
{ |
|
linktext => $linknames->{'certstatus'}, |
|
icon => '', |
|
alttext => '', |
|
#help => 'Domain_Coordination_Apache_Status', |
|
url => '/cgi-bin/loncertstatus.pl', |
|
permission => $candisplay->{'certstatus'}, |
|
linktitle => $titles->{'certstatus'}, |
|
}, |
|
{ |
linktext => $linknames->{'codeversions'}, |
linktext => $linknames->{'codeversions'}, |
icon => '', |
icon => '', |
alttext => '', |
alttext => '', |
Line 163 sub servermenu_items {
|
Line 171 sub servermenu_items {
|
linktitle => $titles->{'checksums'}, |
linktitle => $titles->{'checksums'}, |
}, |
}, |
{ |
{ |
|
linktext => $linknames->{'diskusage'}, |
|
icon => '', |
|
alttext => '', |
|
#help => 'Domain_Coordination_Disk_Usage', |
|
url => '/cgi-bin/quotacheck.pl?domain='.$dom, |
|
permission => $candisplay->{'diskusage'}, |
|
linktitle => $titles->{'diskusage'}, |
|
}, |
|
{ |
|
linktext => $linknames->{'uniquecodes'}, |
|
icon => '', |
|
alttext => '', |
|
#help => 'Domain_Coordination_Uniquecodes', |
|
url => '/cgi-bin/listcodes.pl?domain='.$dom.'&format=html', |
|
permission => $candisplay->{'uniquecodes'}, |
|
linktitle => $titles->{'uniquecodes'}, |
|
}, |
|
{ |
linktext => $linknames->{'showenv'}, |
linktext => $linknames->{'showenv'}, |
icon => '', |
icon => '', |
alttext => '', |
alttext => '', |
Line 231 sub serverstatus_links {
|
Line 257 sub serverstatus_links {
|
'lonstatus' => 'Connection Status', |
'lonstatus' => 'Connection Status', |
'server-status' => 'Apache Server Status', |
'server-status' => 'Apache Server Status', |
'clusterstatus' => 'Domain Status', |
'clusterstatus' => 'Domain Status', |
|
'certstatus' => 'LON-CAPA SSL Certificates Status', |
'codeversions' => 'LON-CAPA Modules', |
'codeversions' => 'LON-CAPA Modules', |
'checksums' => 'Check for LON-CAPA Module changes', |
'checksums' => 'Check for LON-CAPA Module changes', |
|
'diskusage' => 'Display quotas and usage for Course/Community Content', |
'showenv' => 'User Environment for current log-in', |
'showenv' => 'User Environment for current log-in', |
'loncron' => 'Update Connections and Refresh Status Information', |
'loncron' => 'Update Connections and Refresh Status Information', |
|
'uniquecodes' => "List Domain's Courses with Assigned Six Character codes", |
'takeoffline' => 'Replace log-in page with offline notice', |
'takeoffline' => 'Replace log-in page with offline notice', |
'takeonline' => 'Replace offline notice with log-in page', |
'takeonline' => 'Replace offline notice with log-in page', |
'metadata_keywords' => 'Display Metadata Keywords', |
'metadata_keywords' => 'Display Metadata Keywords', |