Return to domainstatus.pm CVS log

Up to [LON-CAPA] / loncom / interface

- Add quotacheck.pl
  - CGI script for use on a library server to display disk usage and quota
    for course content uploaded directly to course/communities in the domain.

    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.7 2014/03/17 02:36:56 raeburn 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,$dom));
   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,$dom) = @_;
   97:     return '' if (ref($candisplay) ne 'HASH');
   98:     return &Apache::lonhtmlcommon::generate_menu(
   99:                &servermenu_items($candisplay,$dom));
  100: }
  101: 
  102: sub servermenu_items {
  103:     my ($candisplay,$dom) = @_;
  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->{'checksums'},
  158:                  icon => '',
  159:                  alttext => '',
  160:                  #help => 'Domain_Coordination_Code_Checksums',
  161:                  url => '/cgi-bin/lonmodulecheck.pl',
  162:                  permission => $candisplay->{'checksums'},
  163:                  linktitle => $titles->{'checksums'},
  164:              },
  165:              {
  166:                  linktext => $linknames->{'diskusage'},
  167:                  icon => '',
  168:                  alttext => '',
  169:                  #help => 'Domain_Coordination_Disk_Usage',
  170:                  url => '/cgi-bin/quotacheck.pl?domain='.$dom,
  171:                  permission => $candisplay->{'diskusage'},
  172:                  linktitle => $titles->{'diskusage'},
  173:              },
  174:              {
  175:                  linktext => $linknames->{'uniquecodes'},
  176:                  icon => '',
  177:                  alttext => '',
  178:                  #help => 'Domain_Coordination_Uniquecodes',
  179:                  url => '/cgi-bin/listcodes.pl?domain='.$dom.'&amp;format=html',
  180:                  permission => $candisplay->{'uniquecodes'},
  181:                  linktitle => $titles->{'uniquecodes'},
  182:              },
  183:              {
  184:                  linktext => $linknames->{'showenv'},
  185:                  icon => '',
  186:                  alttext => '',
  187:                  #help => 'Domain_Coordination_User_Environment',
  188:                  url => '/adm/test',
  189:                  permission => $candisplay->{'showenv'},
  190:                  linktitle => $titles->{'showenv'},
  191:              }]},
  192:              {categorytitle => 'Server Actions',
  193:              items =>
  194:              [{
  195:                  linktext => $linknames->{'loncron'},
  196:                  icon => '',
  197:                  alttext => '',
  198:                  #help => 'Domain_Coordination_Connection_Reload',
  199:                  url => '/cgi-bin/loncron.pl',
  200:                  permission => $candisplay->{'loncron'},
  201:                  linktitle => $titles->{'loncron'},
  202:              },
  203:              {
  204:                  linktext => $linknames->{'takeoffline'},
  205:                  icon => '',
  206:                  alttext => '',
  207:                  #help => 'Domain_Coordination_Server_Offline',
  208:                  url => '/cgi-bin/takeoffline.pl',
  209:                  permission => $candisplay->{'takeoffline'},
  210:                  linktitle => $titles->{'takeoffline'},
  211:              },
  212:              {
  213:                  linktext => $linknames->{'takeonline'},
  214:                  icon => '',
  215:                  alttext => '',
  216:                  #help => 'Domain_Coordination_Server_Online',
  217:                  url => '/cgi-bin/takeonline.pl',
  218:                  permission => $candisplay->{'takeonline'},
  219:                  linktitle => $titles->{'takeonline'},
  220:              }]},
  221:              {categorytitle => 'Metadata Information',
  222:              items =>
  223:              [{
  224:                  linktext => $linknames->{'metadata_keywords'},
  225:                  icon => '',
  226:                  alttext => '',
  227:                  #help => 'Domain_Coordination_Metadata_Keywords',
  228:                  url => '/cgi-bin/metadata_keywords.pl',
  229:                  permission => $candisplay->{'metadata_keywords'},
  230:                  linktitle => $titles->{'metadata_keywords'},
  231:              },
  232:              {
  233:                  linktext => $linknames->{'metadata_harvest'},
  234:                  icon => '',
  235:                  alttext => '',
  236:                  #help => 'Domain_Coordination_Metadata_Harvest',
  237:                  url => '/cgi-bin/metadata_harvest.pl',
  238:                  permission => $candisplay->{'metadata_harvest'},
  239:                  linktitle => $titles->{'metadata_harvest'},
  240:              }]},
  241:            );
  242:         }
  243:     return @menu;
  244: }
  245: 
  246: sub serverstatus_links {
  247:     my $linkname = { 
  248:                     'userstatus' => 'User Sessions',
  249:                     'lonstatus' => 'Connection Status',
  250:                     'server-status' => 'Apache Server Status',
  251:                     'clusterstatus' => 'Domain Status',
  252:                     'codeversions' => 'LON-CAPA Modules',
  253:                     'checksums'    => 'Check for LON-CAPA Module changes',   
  254:                     'diskusage'    => 'Display quotas and usage for Course/Community Content',
  255:                     'showenv' => 'User Environment for current log-in',
  256:                     'loncron' => 'Update Connections and Refresh Status Information',
  257:                     'uniquecodes' => "List Domain's Courses with Assigned Six Character codes",
  258:                     'takeoffline' => 'Replace log-in page with offline notice',
  259:                     'takeonline' => 'Replace offline notice with log-in page',
  260:                     'metadata_keywords' => 'Display Metadata Keywords',
  261:                     'metadata_harvest' => 'Harvest Metadata Keywords',
  262:     };
  263:     return $linkname;
  264: }
  265: 
  266: 1;