--- doc/loncapafiles/rpmcheck.piml	2004/05/24 18:08:26	1.3
+++ doc/loncapafiles/rpmcheck.piml	2004/07/06 21:58:09	1.6
@@ -3,7 +3,7 @@
 <!-- phpcheck.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: rpmcheck.piml,v 1.3 2004/05/24 18:08:26 matthew Exp $ -->
+<!-- $Id: rpmcheck.piml,v 1.6 2004/07/06 21:58:09 matthew Exp $ -->
 
 <!--
 
@@ -35,6 +35,13 @@ http://www.lon-capa.org/
 <file>
 <target dist="default">/home/httpd/lonUsers</target>
 <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
 my @phprpms = `rpm -q -a|grep php`;
@@ -71,13 +78,68 @@ foreach my $rpm (@mod_rpms) {
 }
 #
 # Look for packages which we need to be present
+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',
-                 'gnuplot-3.7.1-5','apache-1.3','mod_perl-1') {
-    my @RPMs = `rpm -q -a | grep $rpm`;
-    if (! @RPMs) {
+                 'apache-1.3','mod_perl.1','^gzip','^zip-',
+                 '^bzip2-libs','^unzip','^bzip2','^tar-') {
+    my @matching_rpms = grep(/$rpm/,@RPMS);
+    if (! @matching_rpms) {
         print "WARNING: ".$rpm." does not appear to be installed.\n";
     }
 }
+
 #
 # Look for files which we need to be present
 foreach my $file ('/usr/bin/pstops') {