Return to CHECKRPMS.sles10 CVS log

Up to [LON-CAPA] / loncom / build

rpm update checking for SLES10.  Expect this to only have a short life, as ia unified CHECKRPMS will replace this (and CHECKRPMS.*) really soon now.

    1: #!/usr/bin/perl -w
    2: #
    3: # The LearningOnline Network with CAPA
    4: #
    5: # Copyright Michigan State University Board of Trustees
    6: #
    7: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    8: #
    9: # LON-CAPA is free software; you can redistribute it and/or modify
   10: # it under the terms of the GNU General Public License as published by
   11: # the Free Software Foundation; either version 2 of the License, or
   12: # (at your option) any later version.
   13: #
   14: # LON-CAPA is distributed in the hope that it will be useful,
   15: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   16: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17: # GNU General Public License for more details.
   18: #
   19: # You should have received a copy of the GNU General Public License
   20: # along with LON-CAPA; if not, write to the Free Software
   21: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   22: #
   23: # /home/httpd/html/adm/gpl.txt
   24: #
   25: # http://www.lon-capa.org/
   26: #
   27: 
   28: =pod
   29: 
   30: =head1 NAME
   31: 
   32: B<CHECKRPMS> - automated status report about RPMs on a system, rug version.
   33: 
   34: =head1 DESCRIPTION
   35: 
   36: This file automates the usage of yum to check for available updates
   37: to SLES10 systems.
   38: 
   39: Must be run as root or www.
   40: 
   41: =cut
   42: 
   43: use strict;
   44: use lib '/home/httpd/lib/perl/';
   45: use LONCAPA::Configuration;
   46: 
   47: my $rug = '/usr/bin/rug';
   48: my $tmpfile = '/tmp/CHECKRPMS.'.$$;
   49: 
   50: #
   51: # Determine who we email
   52: my %perlvar=%{LONCAPA::Configuration::read_conf('loncapa.conf')};
   53: my $emailto = "$perlvar{'lonAdmEMail'}";
   54: my $subj=$perlvar{'lonHostID'};
   55: undef(%perlvar);
   56: 
   57: #
   58: # Put some nice text in $tmpfile
   59: my $hostname = `hostname`;
   60: chomp($hostname);
   61: open(TMPFILE,">$tmpfile");
   62: print TMPFILE localtime(time).'    '.$hostname."\n";
   63: print TMPFILE <<ENDHEADER;
   64: Your system needs to be updated.  Please execute (as root) 
   65: 
   66: rug up
   67: 
   68: to bring it up to date.
   69: 
   70: This is very important for the security of your server.  The table below
   71: lists the packages which need to be updated.
   72: 
   73: ENDHEADER
   74: 
   75: close(TMPFILE);
   76: 
   77: #
   78: # Execute rug command to check for updates 
   79: if (open (PIPE, "$rug up -N en 2>&1 |")) {
   80:     my $output=<PIPE>;
   81:     close(PIPE);
   82:     chomp $output;
   83:     unless ($output eq 'No updates are available.') {
   84:         open(TMPFILE,">>$tmpfile");
   85:         print TMPFILE $output;
   86:         close(TMPFILE);
   87: 
   88:         $subj.= ' RPMS to upgrade';
   89:         # Send email
   90:         system(qq{mail -s '$subj' $emailto < $tmpfile});
   91:      }
   92: } else {
   93:     # Send email
   94:     $subj.= ' Error running RPM update check';
   95:     system(qq{mail -s '$subj' $emailto < $tmpfile});
   96: }