[BACK]Return to domainstatus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainstatus.pm between versions 1.3 and 1.7

version 1.3, 2010/05/18 16:13:31 version 1.7, 2014/03/17 02:36:56
Line 78  sub handler { Line 78  sub handler {
   
     if (keys(%candisplay) > 0) {      if (keys(%candisplay) > 0) {
         $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').          $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').
                   '</h2>'.&print_status_menu(\%candisplay));                    '</h2>'.&print_status_menu(\%candisplay,$dom));
     } else {      } else {
         $r->print(          $r->print(
             '<h2>'.&mt('No information available').'</h2>'              '<h2>'.&mt('No information available').'</h2>'
Line 93  sub handler { Line 93  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 110  sub servermenu_items { Line 110  sub servermenu_items {
                   items =>                    items =>
                  [{                   [{
                  linktext => $linknames->{'userstatus'},                   linktext => $linknames->{'userstatus'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Userstatus',                   #help => 'Domain_Coordination_Userstatus',
                  url => '/cgi-bin/userstatus.pl',                   url => '/cgi-bin/userstatus.pl',
                  permission => $candisplay->{'userstatus'},                   permission => $candisplay->{'userstatus'},
Line 118  sub servermenu_items { Line 119  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'lonstatus'},                   linktext => $linknames->{'lonstatus'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Connection_Status',                   #help => 'Domain_Coordination_Connection_Status',
                  url => '/lon-status/',                   url => '/lon-status/',
                  permission => $candisplay->{'lonstatus'},                   permission => $candisplay->{'lonstatus'},
Line 126  sub servermenu_items { Line 128  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'server-status'},                   linktext => $linknames->{'server-status'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Apache_Status',                   #help => 'Domain_Coordination_Apache_Status',
                  url => '/server-status',                   url => '/server-status',
                  permission => $candisplay->{'server-status'},                   permission => $candisplay->{'server-status'},
Line 134  sub servermenu_items { Line 137  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'clusterstatus'},                   linktext => $linknames->{'clusterstatus'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Apache_Status',                   #help => 'Domain_Coordination_Apache_Status',
                  url => '/cgi-bin/clusterstatus.pl',                   url => '/cgi-bin/clusterstatus.pl',
                  permission => $candisplay->{'clusterstatus'},                   permission => $candisplay->{'clusterstatus'},
Line 142  sub servermenu_items { Line 146  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'codeversions'},                   linktext => $linknames->{'codeversions'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Code_Versions',                   #help => 'Domain_Coordination_Code_Versions',
                  url => '/cgi-bin/lonversions.pl',                   url => '/cgi-bin/lonversions.pl',
                  permission => $candisplay->{'codeversions'},                   permission => $candisplay->{'codeversions'},
                  linktitle => $titles->{'codeversions'},                   linktitle => $titles->{'codeversions'},
              },               },
              {               {
                    linktext => $linknames->{'checksums'},
                    icon => '',
                    alttext => '',
                    #help => 'Domain_Coordination_Code_Checksums',
                    url => '/cgi-bin/lonmodulecheck.pl',
                    permission => $candisplay->{'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.'&amp;format=html',
                    permission => $candisplay->{'uniquecodes'},
                    linktitle => $titles->{'uniquecodes'},
                },
                {
                  linktext => $linknames->{'showenv'},                   linktext => $linknames->{'showenv'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_User_Environment',                   #help => 'Domain_Coordination_User_Environment',
                  url => '/adm/test',                   url => '/adm/test',
                  permission => $candisplay->{'showenv'},                   permission => $candisplay->{'showenv'},
Line 160  sub servermenu_items { Line 193  sub servermenu_items {
              items =>               items =>
              [{               [{
                  linktext => $linknames->{'loncron'},                   linktext => $linknames->{'loncron'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Connection_Reload',                   #help => 'Domain_Coordination_Connection_Reload',
                  url => '/cgi-bin/loncron.pl',                   url => '/cgi-bin/loncron.pl',
                  permission => $candisplay->{'loncron'},                   permission => $candisplay->{'loncron'},
Line 168  sub servermenu_items { Line 202  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'takeoffline'},                   linktext => $linknames->{'takeoffline'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Server_Offline',                   #help => 'Domain_Coordination_Server_Offline',
                  url => '/cgi-bin/takeoffline.pl',                   url => '/cgi-bin/takeoffline.pl',
                  permission => $candisplay->{'takeoffline'},                   permission => $candisplay->{'takeoffline'},
Line 176  sub servermenu_items { Line 211  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'takeonline'},                   linktext => $linknames->{'takeonline'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Server_Online',                   #help => 'Domain_Coordination_Server_Online',
                  url => '/cgi-bin/takeonline.pl',                   url => '/cgi-bin/takeonline.pl',
                  permission => $candisplay->{'takeonline'},                   permission => $candisplay->{'takeonline'},
Line 186  sub servermenu_items { Line 222  sub servermenu_items {
              items =>               items =>
              [{               [{
                  linktext => $linknames->{'metadata_keywords'},                   linktext => $linknames->{'metadata_keywords'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Metadata_Keywords',                   #help => 'Domain_Coordination_Metadata_Keywords',
                  url => '/cgi-bin/metadata_keywords.pl',                   url => '/cgi-bin/metadata_keywords.pl',
                  permission => $candisplay->{'metadata_keywords'},                   permission => $candisplay->{'metadata_keywords'},
Line 194  sub servermenu_items { Line 231  sub servermenu_items {
              },               },
              {               {
                  linktext => $linknames->{'metadata_harvest'},                   linktext => $linknames->{'metadata_harvest'},
                  icon => 'srvr.png',                   icon => '',
                    alttext => '',
                  #help => 'Domain_Coordination_Metadata_Harvest',                   #help => 'Domain_Coordination_Metadata_Harvest',
                  url => '/cgi-bin/metadata_harvest.pl',                   url => '/cgi-bin/metadata_harvest.pl',
                  permission => $candisplay->{'metadata_harvest'},                   permission => $candisplay->{'metadata_harvest'},
Line 212  sub serverstatus_links { Line 250  sub serverstatus_links {
                     'server-status' => 'Apache Server Status',                      'server-status' => 'Apache Server Status',
                     'clusterstatus' => 'Domain Status',                      'clusterstatus' => 'Domain Status',
                     'codeversions' => 'LON-CAPA Modules',                      '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',                      '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',
Removed from v.1.3  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>