Return to checkforupdates.pl CVS log

Up to [LON-CAPA] / loncom / misc

- Utilities to checksum LON-CAPA modules to verify integrity of
  LON-CAPA installation, and also to check the availibility of new
  LON-CAPA releases.

    1: #!/usr/bin/perl
    2: # The LearningOnline Network
    3: #
    4: # $Id: checkforupdates.pl,v 1.1 2013/02/02 00:22:39 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 $tmpfile = '/tmp/checkLONCAPA.'.$$;
   65: my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');
   66: 
   67: my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail,
   68:     $docroot);
   69: if (ref($perlvar) eq 'HASH') {
   70:     $londaemons = $perlvar->{'lonDaemons'};
   71:     $lonlib = $perlvar->{'lonLib'};
   72:     $lonincludes = $perlvar->{'lonIncludes'};
   73:     $lontabdir = $perlvar->{'lonTabDir'};
   74:     $lonhost = $perlvar->{'lonHostID'};
   75:     $defdom = $perlvar->{'lonDefDomain'};
   76:     $origmail = $perlvar->{'lonAdmEMail'};
   77:     $docroot = $perlvar->{'lonDocRoot'};
   78: }
   79: undef($perlvar);
   80: 
   81: &Apache::lonlocal::get_language_handle();
   82: 
   83: my ($distro,$send,$message);
   84: 
   85: my $loncaparev = &Apache::lonnet::get_server_loncaparev($defdom);
   86: my ($version,$timestamp) = split(/\-/,$loncaparev);
   87: if ($loncaparev =~ /CVS_HEAD/) {
   88:     $message = &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD.')."\n";
   89: } else {
   90:     # Get Linux distro
   91:     if (open(PIPE, "$londaemons/distprobe |")) {
   92:         $distro = <PIPE>;
   93:         close(PIPE);
   94:     }
   95: 
   96:     if ($distro) {
   97:         my ($serversums,$serverversions) =
   98:             &LONCAPA::Checksumming::get_checksums($distro,$londaemons,$lonlib,
   99:                                                   $lonincludes,$lontabdir);
  100:         if ((ref($serversums) eq 'HASH') && (ref($serverversions) eq 'HASH')) {
  101:             if (keys(%{$serversums}) > 0) {
  102:                 my ($result,$numchg) =
  103:                     &LONCAPA::Checksumming::compare_checksums('mail',$lonhost,
  104:                                                               $version,
  105:                                                               $serversums,
  106:                                                               $serverversions);
  107:                 if ($numchg) {  
  108:                     $send = 1;
  109:                 }
  110:                 $message = $result;
  111:             } else {
  112:                 $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
  113:             }
  114:         } else {
  115:             $message = &Apache::lonlocal::mt('No comparison attempted - failed to retrieve checksums for installed files.');
  116:         }
  117:     } else {
  118:         $message = &Apache::lonlocal::mt('No comparison attempted - unable to determine Linux distribution.');
  119:     }
  120: 
  121:     my ($update_toprod,$update_totest);
  122:     my ($smajor,$sminor,$sdecimal,$smodifier) =
  123:         ($version =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  124:     my ($production,$proddate,$testing,$testdate) = &latest_release();
  125:     my ($pmajor,$pminor,$pdecimal,$pmodifier) =
  126:        ($production =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  127:     if ($smodifier =~ /^RC(\d+)$/) {
  128:         my $scand = $1;
  129:         my ($tmajor,$tminor,$tdecimal,$tmodifier) =
  130:             ($testing =~ /^(\d+)\.(\d+)\.(\d+)\.?(\w*)$/);
  131:         my $tcand;
  132:         if ($tmodifier =~ /^RC(\d+)$/) {
  133:             $tcand = $1; 
  134:         }
  135:         if (($smajor < $tmajor ) ||
  136:             (($smajor == $tmajor) && ($sminor < $tminor)) ||
  137:             (($smajor == $tmajor) && ($sminor == $tminor) && 
  138:              ($sdecimal < $tdecimal)) ||
  139:             ((($smajor == $tmajor) && ($sminor == $tminor) &&
  140:               ($sdecimal == $tdecimal) &&
  141:               (($scand && $tcand) && ($scand < $tcand))))) { 
  142:             $update_totest = $testing;
  143:         }
  144:     }
  145:     if (($smajor < $pmajor ) ||
  146:         (($smajor == $pmajor) && ($sminor < $pminor)) ||
  147:         (($smajor == $pmajor) && ($sminor == $pminor) && 
  148:          ($sdecimal < $pdecimal))) {
  149:         $update_toprod = $production;           
  150:     }
  151:     if ($update_totest) {
  152:         $message .= 
  153:             "\n\n".
  154:             &Apache::lonlocal::mt('A newer testing version of LON-CAPA: [_1]'.
  155:                                   ' is available from: [_2]',
  156:                                   $testing.'-'.$testdate,
  157:                                   "\n http://install.loncapa.org/\n");
  158:     }
  159:     if ($update_toprod) {
  160:         $message .= 
  161:             "\n\n".
  162:             &Apache::lonlocal::mt('A newer version of LON-CAPA: [_1]'.
  163:                                   ' is available from: [_2]',
  164:                                   $production.'-'.$proddate,
  165:                                   "\n http://install.loncapa.org/\n");
  166:     }
  167:     if (open(my $tmpfh,">$tmpfile")) {
  168:         print $tmpfh 
  169:              &Apache::lonlocal::mt('Update check result -- [_1]',
  170:                                    &Apache::lonlocal::locallocaltime(time)).
  171:              "\n\n".
  172:              $message;
  173:         close($tmpfh);
  174:     }
  175: }
  176: 
  177: if ($docroot ne '') {
  178:     system("cat $tmpfile > $docroot/lon-status/checkLCupdates.txt");
  179:     if ($< == 0) {
  180:         system("chown www:www $docroot/lon-status/checkLCupdates.txt");
  181:     }
  182:     chmod(0600,"$docroot/lon-status/checkLCupdates.txt");
  183: }
  184: 
  185: # Determine who receives the e-mail
  186: my $emailto =
  187:     &Apache::loncommon::build_recipient_list(undef,'updatesmail',
  188:                                              $defdom,$origmail);
  189: if ($emailto) {
  190:     if ($send) {
  191:         my $subj = "LON-CAPA module check -- $lonhost"; 
  192:         system(qq{mail -s '$subj' "$emailto" < $tmpfile});
  193:     }
  194: }
  195: 
  196: exit;
  197: 
  198: sub latest_release {
  199:     my ($production,$proddate,$testing,$testdate);
  200:     if (-e "/tmp/latestLCrelease.txt") {
  201:          unlink("/tmp/latestLCrelease.txt");
  202:     }
  203:     my $rtncode = system("wget -O /tmp/latestLCrelease.txt ".
  204:                          "http://install.loncapa.org/versions/latest.txt ".
  205:                          "> /dev/null 2>&1");
  206:     if (!$rtncode) {
  207:         if (open(my $fh,"</tmp/latestLCrelease.txt")) {
  208:             my @info = <$fh>;
  209:             close($fh);
  210:             foreach my $line (@info) {
  211:                 chomp($line);
  212:                 if ($line =~ /^\QLATEST-IS: \E([\w\-.]+):\d+$/) {
  213:                     $production = $1;
  214:                 } elsif ($line =~ /^\QLASTRELPROD: \E(\d+)$/) {
  215:                     $proddate = $1; 
  216:                 } elsif ($line =~ /^\QLATEST-TESTING-IS: \E([\w\-.]+):\d+$/) {
  217:                     $testing = $1;
  218:                 } elsif ($line =~ /^\QLASTRELTEST: \E(\d+)$/) {
  219:                     $testdate = $1;
  220:                 } 
  221:             }
  222:         }
  223:     }
  224:     return ($production,$proddate,$testing,$testdate);
  225: }
  226: