Return to domainstatus.pm CVS log

Up to [LON-CAPA] / loncom / interface

No menu icons for sub menu "Status of domain servers"
(should be currently sufficient for DCs)

    1: # The LearningOnline Network
    2: # Generate a menu page containing links to server status pages accessible
    3: # to user. 
    4: #
    5: # $Id: domainstatus.pm,v 1.4 2010/05/26 16:24:41 bisitz Exp $
    6: #
    7: # Copyright Michigan State University Board of Trustees
    8: #
    9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   10: #
   11: # LON-CAPA is free software; you can redistribute it and/or modify
   12: # it under the terms of the GNU General Public License as published by
   13: # the Free Software Foundation; either version 2 of the License, or
   14: # (at your option) any later version.
   15: #
   16: # LON-CAPA is distributed in the hope that it will be useful,
   17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   19: # GNU General Public License for more details.
   20: #
   21: # You should have received a copy of the GNU General Public License
   22: # along with LON-CAPA; if not, write to the Free Software
   23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   24: #
   25: # /home/httpd/html/adm/gpl.txt
   26: #
   27: # http://www.lon-capa.org/
   28: #
   29: #
   30: package Apache::domainstatus;
   31: 
   32: use strict;
   33: use Apache::Constants qw(:common);
   34: use Apache::lonnet;
   35: use Apache::loncommon;
   36: use Apache::lonhtmlcommon;
   37: use Apache::lonlocal;
   38: use LONCAPA::lonauthcgi;
   39: 
   40: sub handler {
   41:     my $r = shift;
   42:     &Apache::loncommon::content_type($r,'text/html');
   43:     $r->send_http_header;
   44:     if ($r->header_only) {
   45:         return OK;
   46:     }
   47: 
   48:     &Apache::lonlocal::get_language_handle();
   49:     my $dom = &Apache::lonnet::default_login_domain();
   50: 
   51:     if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {
   52:         $dom = $env{'user.domain'};
   53:         if ($env{'request.role.domain'} ne '') {
   54:             $dom = $env{'request.role.domain'};
   55:         }
   56:     }
   57:     my $domdesc = &Apache::lonnet::domain($dom,'description');
   58: 
   59:     my %candisplay;
   60:     my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
   61:     if (ref($titles) eq 'HASH') {
   62:         foreach my $page (keys(%{$titles})) {
   63:             if (&LONCAPA::lonauthcgi::can_view($page)) {
   64:                 $candisplay{$page} = 'F';       
   65:             } elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) {
   66:                 $candisplay{$page} = 'F';
   67:             }
   68:         }
   69:     }
   70: 
   71:     &Apache::lonhtmlcommon::clear_breadcrumbs();
   72:     &Apache::lonhtmlcommon::add_breadcrumb
   73:     ({href=>"/adm/domainstatus",
   74:       text=>"Server Status Information"});
   75: 
   76:     $r->print(&Apache::loncommon::start_page('Server Status').
   77:               &Apache::lonhtmlcommon::breadcrumbs('Server Status Information'));
   78: 
   79:     if (keys(%candisplay) > 0) {
   80:         $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').
   81:                   '</h2>'.&print_status_menu(\%candisplay));
   82:     } else {
   83:         $r->print(
   84:             '<h2>'.&mt('No information available').'</h2>'
   85:            .'<p class="LC_warning">'
   86:            .&mt('Your current role and/or IP address does not have permission to display information about server status for servers in the domain: [_1].',
   87:                 '<b>'.$domdesc.'</b> ('.$dom.')')
   88:            .'</p>'
   89:         ); 
   90:     }
   91:     $r->print(&Apache::loncommon::end_page());
   92:     return OK;
   93: }
   94: 
   95: sub print_status_menu {
   96:     my ($candisplay) = @_;
   97:     return '' if (ref($candisplay) ne 'HASH');
   98:     return &Apache::lonhtmlcommon::generate_menu(
   99:                &servermenu_items($candisplay));
  100: }
  101: 
  102: sub servermenu_items {
  103:     my ($candisplay) = @_;
  104:     my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
  105:     my $linknames = &serverstatus_links();
  106:     my @menu;
  107:     if ((ref($candisplay) eq 'HASH') && (ref($titles) eq 'HASH') && 
  108:         (ref($linknames) eq 'HASH')) { 
  109:         @menu = ( {categorytitle => 'Status information',
  110:                   items =>
  111:                  [{
  112:                  linktext => $linknames->{'userstatus'},
  113:                  icon => '',
  114:                  alttext => '',
  115:                  #help => 'Domain_Coordination_Userstatus',
  116:                  url => '/cgi-bin/userstatus.pl',
  117:                  permission => $candisplay->{'userstatus'},
  118:                  linktitle =>  $titles->{'userstatus'},
  119:              },
  120:              {
  121:                  linktext => $linknames->{'lonstatus'},
  122:                  icon => '',
  123:                  alttext => '',
  124:                  #help => 'Domain_Coordination_Connection_Status',
  125:                  url => '/lon-status/',
  126:                  permission => $candisplay->{'lonstatus'},
  127:                  linktitle => $titles->{'lonstatus'},
  128:              },
  129:              {
  130:                  linktext => $linknames->{'server-status'},
  131:                  icon => '',
  132:                  alttext => '',
  133:                  #help => 'Domain_Coordination_Apache_Status',
  134:                  url => '/server-status',
  135:                  permission => $candisplay->{'server-status'},
  136:                  linktitle => $titles->{'server-status'},
  137:              },
  138:              {
  139:                  linktext => $linknames->{'clusterstatus'},
  140:                  icon => '',
  141:                  alttext => '',
  142:                  #help => 'Domain_Coordination_Apache_Status',
  143:                  url => '/cgi-bin/clusterstatus.pl',
  144:                  permission => $candisplay->{'clusterstatus'},
  145:                  linktitle => $titles->{'clusterstatus'},
  146:              },
  147:              {
  148:                  linktext => $linknames->{'codeversions'},
  149:                  icon => '',
  150:                  alttext => '',
  151:                  #help => 'Domain_Coordination_Code_Versions',
  152:                  url => '/cgi-bin/lonversions.pl',
  153:                  permission => $candisplay->{'codeversions'},
  154:                  linktitle => $titles->{'codeversions'},
  155:              },
  156:              {
  157:                  linktext => $linknames->{'showenv'},
  158:                  icon => '',
  159:                  alttext => '',
  160:                  #help => 'Domain_Coordination_User_Environment',
  161:                  url => '/adm/test',
  162:                  permission => $candisplay->{'showenv'},
  163:                  linktitle => $titles->{'showenv'},
  164:              }]},
  165:              {categorytitle => 'Server Actions',
  166:              items =>
  167:              [{
  168:                  linktext => $linknames->{'loncron'},
  169:                  icon => '',
  170:                  alttext => '',
  171:                  #help => 'Domain_Coordination_Connection_Reload',
  172:                  url => '/cgi-bin/loncron.pl',
  173:                  permission => $candisplay->{'loncron'},
  174:                  linktitle => $titles->{'loncron'},
  175:              },
  176:              {
  177:                  linktext => $linknames->{'takeoffline'},
  178:                  icon => '',
  179:                  alttext => '',
  180:                  #help => 'Domain_Coordination_Server_Offline',
  181:                  url => '/cgi-bin/takeoffline.pl',
  182:                  permission => $candisplay->{'takeoffline'},
  183:                  linktitle => $titles->{'takeoffline'},
  184:              },
  185:              {
  186:                  linktext => $linknames->{'takeonline'},
  187:                  icon => '',
  188:                  alttext => '',
  189:                  #help => 'Domain_Coordination_Server_Online',
  190:                  url => '/cgi-bin/takeonline.pl',
  191:                  permission => $candisplay->{'takeonline'},
  192:                  linktitle => $titles->{'takeonline'},
  193:              }]},
  194:              {categorytitle => 'Metadata Information',
  195:              items =>
  196:              [{
  197:                  linktext => $linknames->{'metadata_keywords'},
  198:                  icon => '',
  199:                  alttext => '',
  200:                  #help => 'Domain_Coordination_Metadata_Keywords',
  201:                  url => '/cgi-bin/metadata_keywords.pl',
  202:                  permission => $candisplay->{'metadata_keywords'},
  203:                  linktitle => $titles->{'metadata_keywords'},
  204:              },
  205:              {
  206:                  linktext => $linknames->{'metadata_harvest'},
  207:                  icon => '',
  208:                  alttext => '',
  209:                  #help => 'Domain_Coordination_Metadata_Harvest',
  210:                  url => '/cgi-bin/metadata_harvest.pl',
  211:                  permission => $candisplay->{'metadata_harvest'},
  212:                  linktitle => $titles->{'metadata_harvest'},
  213:              }]},
  214:            );
  215:         }
  216:     return @menu;
  217: }
  218: 
  219: sub serverstatus_links {
  220:     my $linkname = { 
  221:                     'userstatus' => 'User Sessions',
  222:                     'lonstatus' => 'Connection Status',
  223:                     'server-status' => 'Apache Server Status',
  224:                     'clusterstatus' => 'Domain Status',
  225:                     'codeversions' => 'LON-CAPA Modules',
  226:                     'showenv' => 'User Environment for current log-in',
  227:                     'loncron' => 'Update Connections and Refresh Status Information',
  228:                     'takeoffline' => 'Replace log-in page with offline notice',
  229:                     'takeonline' => 'Replace offline notice with log-in page',
  230:                     'metadata_keywords' => 'Display Metadata Keywords',
  231:                     'metadata_harvest' => 'Harvest Metadata Keywords',
  232:     };
  233:     return $linkname;
  234: }
  235: 
  236: 1;