--- loncom/interface/domainstatus.pm 2014/01/01 17:41:47 1.6
+++ loncom/interface/domainstatus.pm 2025/03/04 02:24:03 1.9
@@ -2,7 +2,7 @@
# Generate a menu page containing links to server status pages accessible
# to user.
#
-# $Id: domainstatus.pm,v 1.6 2014/01/01 17:41:47 raeburn Exp $
+# $Id: domainstatus.pm,v 1.9 2025/03/04 02:24:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -77,8 +77,7 @@ sub handler {
&Apache::lonhtmlcommon::breadcrumbs('Server Status Information'));
if (keys(%candisplay) > 0) {
- $r->print('
'.&mt('Server Utilities for Domain: [_1]',''.$domdesc.'').
- '
'.&print_status_menu(\%candisplay,$dom));
+ $r->print(&print_status_menu(\%candisplay,$dom));
} else {
$r->print(
''.&mt('No information available').'
'
@@ -145,6 +144,15 @@ sub servermenu_items {
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'},
icon => '',
alttext => '',
@@ -163,6 +171,15 @@ sub servermenu_items {
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 => '',
@@ -240,8 +257,10 @@ sub serverstatus_links {
'lonstatus' => 'Connection Status',
'server-status' => 'Apache Server Status',
'clusterstatus' => 'Domain Status',
+ 'certstatus' => 'LON-CAPA SSL Certificates Status',
'codeversions' => 'LON-CAPA Modules',
'checksums' => 'Check for LON-CAPA Module changes',
+ 'diskusage' => 'Display quotas and usage for Course/Community Content',
'showenv' => 'User Environment for current log-in',
'loncron' => 'Update Connections and Refresh Status Information',
'uniquecodes' => "List Domain's Courses with Assigned Six Character codes",