[BACK]Return to rpmcheck.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/rpmcheck.piml between versions 1.5 and 1.6

version 1.5, 2004/05/28 12:45:18 version 1.6, 2004/07/06 21:58:09
Line 35  http://www.lon-capa.org/ Line 35  http://www.lon-capa.org/
 <file>  <file>
 <target dist="default">/home/httpd/lonUsers</target>  <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">  <perlscript mode="fg">
   my $rhversion = "7.3";
   if (-e '/etc/redhat-release') {
       my $tmp = `cat /etc/redhat-release`;
       if ($tmp =~ /fedora/i) {
           $rhversion = 'fedora';
       }
   }
 #  #
 # Look for php packages that should not be installed  # Look for php packages that should not be installed
 my @phprpms = `rpm -q -a|grep php`;  my @phprpms = `rpm -q -a|grep php`;
Line 72  foreach my $rpm (@mod_rpms) { Line 79  foreach my $rpm (@mod_rpms) {
 #  #
 # Look for packages which we need to be present  # Look for packages which we need to be present
 my @RPMS = `rpm -q -a`;  my @RPMS = `rpm -q -a`;
   if ($rhversion eq "7.3") {
       foreach my $rpm ('gnuplot-3.7.1-5','LON-CAPA-systemperl-3.10') {
           my @matching_rpms = grep(/$rpm/,@RPMS);
           if (! @matching_rpms) {
               print "WARNING: ".$rpm." does not appear to be installed.\n";
           }
       }
   } else {
       foreach my $rpm ('gnuplot-',
                        'perl-IO-Socket-SSL',
                        'perl-Net-SSLeay',
                        'perl-Time-HiRes-1.59',
                        'perl-GDGraph',
                        'perl-GD',
                        'perl-GD-Graph3d',
                        'perl-GD-Barcode',
                        'perl-GDTextUtil',
                        'ImageMagick-5',
                        'ImageMagick-perl',
                        'perl-Algorithm-Diff',
                        'perl-Authen-Krb4',
                        'perl-Authen-Krb5',
                        'perl-Authen-PAM',
                        'perl-Crypt-DES',
                        'perl-Crypt-IDEA',
                        'perl-Crypt-SSLeay',
                        'perl-Event',
                        'perl-HTML-Tree',
                        'perl-IO-stringy',
                        'perl-MailTools',
                        'perl-Math-Cephes',
                        'perl-Math-FFT',
                        'perl-Math-Random',
                        'perl-Net-PH',
                        'perl-Net-SNPP',
                        'perl-Net-SSLeay',
                        'perl-OLE-Storage_Lite',
                        'perl-Parse-RecDescent',
                        'perl-Pod-POM',
                        'perl-PostScript-Simple',
                        'perl-Safe-Hole',
                        'perl-Spreadsheet-WriteExcel',
                        'perl-String-Similarity',
                        'perl-Text-Query',
                        'perl-TimeDate',) {
           my @matching_rpms = grep(/$rpm/,@RPMS);
           if (! @matching_rpms) {
               print "WARNING: ".$rpm." does not appear to be installed.\n";
           }
       }
   }
   
 foreach my $rpm ('psutils','openssl-devel','perl-suidperl',  foreach my $rpm ('psutils','openssl-devel','perl-suidperl',
                  'gnuplot-3.7.1-5','apache-1.3','mod_perl.1',                   'apache-1.3','mod_perl.1','^gzip','^zip-',
                  '^gzip','^zip-','^bzip2-libs','^unzip','^bzip2','^tar-') {                   '^bzip2-libs','^unzip','^bzip2','^tar-') {
     my @matching_rpms = grep(/$rpm/,@RPMS);      my @matching_rpms = grep(/$rpm/,@RPMS);
     if (! @matching_rpms) {      if (! @matching_rpms) {
         print "WARNING: ".$rpm." does not appear to be installed.\n";          print "WARNING: ".$rpm." does not appear to be installed.\n";
     }      }
 }  }
   
 #  #
 # Look for files which we need to be present  # Look for files which we need to be present
 foreach my $file ('/usr/bin/pstops') {  foreach my $file ('/usr/bin/pstops') {
Removed from v.1.5  
changed lines
  Added in v.1.6

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