Return to checkforupdates.pl CVS log

Up to [LON-CAPA] / loncom / misc

- Bring punctuation into agreement with usage in similar phrase in lonmodulecheck.pl

    1: #!/usr/bin/perl
    2: # The LearningOnline Network
    3: #
    4: # $Id: checkforupdates.pl,v 1.3 2013/10/02 23:47:17 raeburn Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: #################################################
   29: 
   30: =pod
   31: 
   32: =head1 NAME
   33: 
   34: checkforupdates.pl
   35: 
   36: =head1 SYNOPSIS
   37: 
   38: checkforupdates.pl gathers version numbers and computes checksums
   39: for LON-CAPA modules, scripts, and a couple of configuration files,
   40: and compares them with those expected for the version of LON-CAPA
   41: installed on the server.
   42: 
   43: =head1 DESCRIPTION
   44: 
   45: If there are discrepancies in checksums between the installed modules
   46: and those expected, or if there are problems performing the update check,
   47: or if a newer stable release of LON-CAPA is available, an e-mail will be
   48: sent to the e-mail address configured to receive these types of alert.
   49: 
   50: Run as www.
   51: 
   52: =cut
   53: 
   54: #################################################
   55: 
   56: use strict;
   57: use lib '/home/httpd/lib/perl/';
   58: use Apache::lonnet();
   59: use Apache::lonlocal();
   60: use LONCAPA::Configuration;
   61: use LONCAPA::Checksumming;
   62: use Apache::loncommon();
   63: 
   64: my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');
   65: 
   66: my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail,
   67:     $docroot);
   68: if (ref($perlvar) eq 'HASH') {
   69:     $londaemons = $perlvar->{'lonDaemons'};
   70:     $lonlib = $perlvar->{'lonLib'};
   71:     $lonincludes = $perlvar->{'lonIncludes'};
   72:     $lontabdir = $perlvar->{'lonTabDir'};
   73:     $lonhost = $perlvar->{'lonHostID'};
   74:     $defdom = $perlvar->{'lonDefDomain'};
   75:     $origmail = $perlvar->{'lonAdmEMail'};
   76:     $docroot = $perlvar->{'lonDocRoot'};
   77: }
   78: undef($perlvar);
   79: 
   80: &Apache::lonlocal::get_language_handle();
   81: 
   82: my ($distro,$send,$message);
   83: 
   84: my $loncaparev = &Apache::lonnet::get_server_loncaparev($defdom);
   85: my ($version,$timestamp) = split(/\-/,$loncaparev);
   86: if ($loncaparev =~ /CVS_HEAD/) {
   87:     $message = &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD')."\n";
   88: } else {
   89:     # Get Linux distro
   90:     if (open(PIPE, "$londaemons/distprobe |")) {
   91:         $distro = <PIPE>;
   92:         close(PIPE);
   93:     }
   94: 
   95:     if ($distro) {
   96:         my ($serversums,$serverversions) =
   97:             &LONCAPA::Checksumming::get_checksums($distro,$londaemons,$lonlib,
   98:                                                   $lonincludes,$lontabdir);
   99:         if ((ref($serversums) eq 'HASH') && (ref($serverversions) eq 'HASH')) {
  100:             if (keys(%{$serversums}) > 0) {
  101:                 my ($result,$numchg) =
  102:                     &LONCAPA::Checksumming::compare_checksums('mail',$lonhost,
  103:                                                               $version,
  104:                                                               $serversums,
  105:                                                               $serverversions);
  106:                 if ($numchg) {  
  107:                     $send = 1;
  108:                 }
  109:                 $message = $result;
  110:             } else {
  111:                 $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
  112:             }
  113:         } else {
  114:             $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
  115:         }
  116:     } else {
  117:         $message = &Apache::lonlocal::mt('No comparison attempted - unable to determine Linux distribution.');
  118:     }
  119: 
  120:     my ($update_toprod,$update_totest);
  121:     my ($smajor,$sminor,$sdecimal,$smodifier) =
  122:         ($version =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  123:     my ($production,$proddate,$testing,$testdate) = &latest_release();
  124:     my ($pmajor,$pminor,$pdecimal,$pmodifier) =
  125:        ($production =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  126:     if ($smodifier =~ /^RC(\d+)$/) {
  127:         my $scand = $1;
  128:         my ($tmajor,$tminor,$tdecimal,$tmodifier) =
  129:             ($testing =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  130:         my $tcand;
  131:         if ($tmodifier =~ /^RC(\d+)$/) {
  132:             $tcand = $1; 
  133:         }
  134:         if (($smajor < $tmajor ) ||
  135:             (($smajor == $tmajor) && ($sminor < $tminor)) ||
  136:             (($smajor == $tmajor) && ($sminor == $tminor) && 
  137:              ($sdecimal < $tdecimal)) ||
  138:             ((($smajor == $tmajor) && ($sminor == $tminor) &&
  139:               ($sdecimal == $tdecimal) &&
  140:               (($scand && $tcand) && ($scand < $tcand))))) { 
  141:             $update_totest = $testing;
  142:         }
  143:     }
  144:     if (($smajor < $pmajor ) ||
  145:         (($smajor == $pmajor) && ($sminor < $pminor)) ||
  146:         (($smajor == $pmajor) && ($sminor == $pminor) && 
  147:          ($sdecimal < $pdecimal))) {
  148:         $update_toprod = $production;           
  149:     }
  150:     if ($update_totest) {
  151:         $message .= 
  152:             "\n\n".
  153:             &Apache::lonlocal::mt('A newer testing version of LON-CAPA: [_1]'.
  154:                                   ' is available from: [_2]',
  155:                                   $testing.'-'.$testdate,
  156:                                   "\n http://install.loncapa.org/\n");
  157:     }
  158:     if ($update_toprod) {
  159:         $message .= 
  160:             "\n\n".
  161:             &Apache::lonlocal::mt('A newer version of LON-CAPA: [_1]'.
  162:                                   ' is available from: [_2]',
  163:                                   $production.'-'.$proddate,
  164:                                   "\n http://install.loncapa.org/\n");
  165:     }
  166: }
  167: 
  168: if ($docroot ne '') {
  169:     if (open(my $fh,">$docroot/lon-status/checkLCupdates.txt")) {
  170:         print $fh
  171:              &Apache::lonlocal::mt('Update check result -- [_1]',
  172:                                    &Apache::lonlocal::locallocaltime(time)).
  173:              "\n\n".
  174:              $message;
  175:         close($fh);
  176:         system("chown www:www $docroot/lon-status/checkLCupdates.txt");
  177:         chmod(0600,"$docroot/lon-status/checkLCupdates.txt");
  178: 
  179:         if ($send) {
  180:             # Determine who receives the e-mail
  181:             my $emailto =
  182:                 &Apache::loncommon::build_recipient_list(undef,'updatesmail',
  183:                                                          $defdom,$origmail);
  184:             if ($emailto) {
  185:                 my $subj = "LON-CAPA module check -- $lonhost";
  186:                 if (-e "$docroot/lon-status/checkLCupdates.txt") {
  187:                     system(qq{mail -s '$subj' "$emailto" < $docroot/lon-status/checkLCupdates.txt});
  188:                 }
  189:             }
  190:         }
  191:     }
  192: }
  193: 
  194: exit;
  195: 
  196: sub latest_release {
  197:     my ($production,$proddate,$testing,$testdate);
  198:     if (-e "/tmp/latestLCrelease.txt") {
  199:          unlink("/tmp/latestLCrelease.txt");
  200:     }
  201:     my $rtncode = system("wget -O /tmp/latestLCrelease.txt ".
  202:                          "http://install.loncapa.org/versions/latest.txt ".
  203:                          "> /dev/null 2>&1");
  204:     if (!$rtncode) {
  205:         if (open(my $fh,"</tmp/latestLCrelease.txt")) {
  206:             my @info = <$fh>;
  207:             close($fh);
  208:             foreach my $line (@info) {
  209:                 chomp($line);
  210:                 if ($line =~ /^\QLATEST-IS: \E([\w\-.]+):\d+$/) {
  211:                     $production = $1;
  212:                 } elsif ($line =~ /^\QLASTRELPROD: \E(\d+)$/) {
  213:                     $proddate = $1; 
  214:                 } elsif ($line =~ /^\QLATEST-TESTING-IS: \E([\w\-.]+):\d+$/) {
  215:                     $testing = $1;
  216:                 } elsif ($line =~ /^\QLASTRELTEST: \E(\d+)$/) {
  217:                     $testdate = $1;
  218:                 } 
  219:             }
  220:         }
  221:     }
  222:     return ($production,$proddate,$testing,$testdate);
  223: }
  224: