[BACK]Return to CHECKRPMS.default CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/CHECKRPMS.default between versions 1.1 and 1.19

version 1.1, 2002/05/01 17:01:18 version 1.19, 2004/09/01 16:28:26
Line 1 Line 1
 #!/usr/bin/perl  #!/usr/bin/perl -w
   #
   # The LearningOnline Network with CAPA
   #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   # (Navigate problems for statistical reports
   #
   
 my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4];  =pod
 my $FTPSERVER;  
 `ping -q -c 1 mirror.pa.msu.edu 2>/dev/null`;  
 if (!$FTPSERVER and $?==0) {  
     `ncftpls ftp://mirror.pa.msu.edu`;  
     if ($?==0) {  
  $FTPSERVER="mirror.pa.msu.edu";  
    $FTPUPDATES="mirror.pa.msu.edu/linux/redhat/linux/updates/$RHversion/en/os";  
     }  
 }  
 `ping -q -c 1 rufus.w3.org 2>/dev/null`;  
 if (!$FTPSERVER and $?==0) {  
     `ncftpls ftp://rufus.w3.org`;  
     if ($?==0) {  
  $FTPSERVER="rufus.w3.org";  
  $FTPUPDATES="rufus.w3.org/linux/redhat/updates/$RHversion/en/os";  
     }  
 }  
 if (!$FTPSERVER) {  
     print "Cannot find a working ftp server.\n";  
 }  
 print "Using $FTPSERVER for ftp transaction...(please be patient)\n";  
 my @rpms=`perl loncom/build/check-rpms -ftp $FTPUPDATES`;  
 if (@rpms) {  
     my $rpm_count=scalar(@rpms);  
     print(<<END);  
 **** WARNING **** You need to update at least $rpm_count RPMS shown in   
 the list below.  THIS IS IMPORTANT FOR SECURITY.  
   
 END  =head1 NAME
     print join("\n",map {chomp;$_} @rpms)."\n";  
     print(<<END);  B<CHECKRPMS> - automated status report about RPMs on a system.
   
   =head1 DESCRIPTION
   
   Runs Martin Seigert's checkrpms script.  See 
   http://www.sfu.ca/acs/security/linux/check-rpms.html for more information.
   
   Must be run as root or www.
   
   =cut
   
   use strict;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA::Configuration;
   #
   # Determine who we email
   my %perlvar=%{LONCAPA::Configuration::read_conf('loncapa.conf')};
   my $emailto = "$perlvar{'lonAdmEMail'}";
   my $subj=$perlvar{'lonHostID'}.' rpm status';
   
   my $checkrpms = '/usr/local/bin/check-rpms';
   #
   # Check that checkrpms is installed and is the proper version...
   my $mailmsg = '';
   if (! -e $checkrpms) {
       $mailmsg = <<END;
   
   Unable to locate check-rpms on your system.  Please go to 
   http://www.sfu.ca/acs/security/linux/check-rpms.html, download and 
   install check-rpms on this system.
   
 Please visit ftp://$FTPUPDATES  
 and download the RPMS you need.  
 For instructions on working with (and upgrading) RPMS, please  
 visit http://www.rpm.org/max-rpm/.  
 END  END
   
 }  }
 else {  
     print(<<END);  #
 **** NOTE **** All RPMS on your system appear to be up to date.  # Run check-rpms and capture its output
   $mailmsg = `$checkrpms`;
   
   #
   # Email the user the output of checkrpms
   if ($mailmsg ne '') {
       $mailmsg =<<"END";
   checkrpms checked the status of the packages on your system and 
   produced the following output:
   -------------------------------------------------------
   $mailmsg
   -------------------------------------------------------
   If there are rpms which need to be installed, please log into
   $perlvar{'lonHostID'} and run the following command
   
   $checkrpms --update
   
   If there are kernel packages to be installed, use
   
   $checkrpms --update --install-kernel
   
   Keeping your system up to date is very important.
   Ensuring you are using up to date software is a prerequisite for a 
   secure system.
   
 END  END
       my $mail_file = '/tmp/CHECKRPMS.'.$$;
       open(MAILFILE,">$mail_file") || die("Unable to write to ".$mail_file);
       print MAILFILE $mailmsg.$/;
       close(MAILFILE);
       my $mailcommand = "mail -s '$subj' $emailto <$mail_file";
       print STDERR $mailcommand;
       system($mailcommand);
 }  }
   
   exit;
Removed from v.1.1  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>