--- doc/loncapafiles/rpmcheck.piml	2004/08/23 19:07:26	1.8
+++ doc/loncapafiles/rpmcheck.piml	2007/12/07 06:01:06	1.13
@@ -3,7 +3,7 @@
 <!-- phpcheck.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: rpmcheck.piml,v 1.8 2004/08/23 19:07:26 matthew Exp $ -->
+<!-- $Id: rpmcheck.piml,v 1.13 2007/12/07 06:01:06 raeburn Exp $ -->
 
 <!--
 
@@ -34,14 +34,7 @@ http://www.lon-capa.org/
 <files>
 <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';
-    }
-}
+<perlscript dist="redhat7 fedora1 fedora2 fedora3 fedora4 suse9.2 suse9.3 sles9" mode="fg">
 #
 # Look for php packages that should not be installed
 my @phprpms = `rpm -q -a|grep php`;
@@ -76,71 +69,35 @@ foreach my $rpm (@mod_rpms) {
     }
         
 }
+</perlscript>
+<perlscript dist="redhat7" mode="fg">
 #
 # 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') {
-        my @matching_rpms = grep(/$rpm/,@RPMS);
-        if (! @matching_rpms) {
-            print "**** WARNING: ".$rpm." does not appear to be installed.\n";
-        }
-    }
-} else {
-    foreach my $rpm ('LONCAPA-prerequisites',
-                     '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 ('gnuplot-3.7.1-5','LON-CAPA-systemperl') {
+    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',
-                 'apache-1.3','mod_perl.1','^gzip','^zip-',
-                 '^bzip2-libs','^unzip','^bzip2','^tar-') {
+</perlscript>
+<perlscript dist="fedora1 fedora2 fedora3 fedora4 fedora5 fedora6 fedora7 fedora8 suse9.2 suse9.3 suse10.1 suse10.2 suse10.3 sles9 sles10" mode="fg">
+my @RPMS = `rpm -q -a`;
+foreach my $rpm ('LONCAPA-prerequisites') {
     my @matching_rpms = grep(/$rpm/,@RPMS);
     if (! @matching_rpms) {
         print "**** WARNING: ".$rpm." does not appear to be installed.\n";
     }
 }
-
+</perlscript>
+<perlscript dist="debian gentoo">
+print &lt;&lt;END;
+**** WARNING: We don't know much about your distribution.
+    Check with the loncapa development team for help satisfying 
+    the many dependencies of LON-CAPA.
+END
+</perlscript>
+<perlscript mode="fg">
 #
 # Look for files which we need to be present
 foreach my $file ('/usr/bin/pstops') {