--- doc/loncapafiles/rpmcheck.piml	2004/05/19 16:31:07	1.1
+++ doc/loncapafiles/rpmcheck.piml	2005/12/05 21:44:51	1.12
@@ -3,7 +3,7 @@
 <!-- phpcheck.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: rpmcheck.piml,v 1.1 2004/05/19 16:31:07 matthew Exp $ -->
+<!-- $Id: rpmcheck.piml,v 1.12 2005/12/05 21:44:51 albertel Exp $ -->
 
 <!--
 
@@ -34,10 +34,12 @@ http://www.lon-capa.org/
 <files>
 <file>
 <target dist="default">/home/httpd/lonUsers</target>
-<perlscript mode="fg">
+<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`;
 if (@phprpms) {
-    print "WARNING: PHP packages are present on this system.\n".
+    print "**** WARNING: PHP packages are present on this system.\n".
         "There are known conflicts between PHP libraries and LON-CAPA.\n".
         "Use the following command to remove ".
         "the php packages from your system:\nrpm -e ";
@@ -47,18 +49,19 @@ if (@phprpms) {
     }
     print "\n";
 }
+#
+# Look for mod_* that are thought to conflict with LON-CAPA
 my @mod_rpms = `rpm -q -a | grep mod`;
 foreach my $rpm (@mod_rpms) {
-#    next if ($rpm =~ /^mod_perl/);
     if ($rpm =~ /mod_bandwidth/) {
-        print "WARNING: it appears you have the mod_bandwidth ".
+        print "**** WARNING: it appears you have the mod_bandwidth ".
         "package installed.\n".
         "mod_bandwidth appears to conflict with LON-CAPA.\n".
         "Use the following command to remove it:\n".
         "rpm -e $rpm\n";
     }
-    if ($rpm =~ /throttle/) {
-        print "WARNING: it appears you have the mod_throttle ".
+    if ($rpm =~ /mod_throttle/) {
+        print "**** WARNING: it appears you have the mod_throttle ".
         "package installed.\n".
         "mod_throttle appears to conflict with LON-CAPA.\n".
         "Use the following command to remove it:\n".
@@ -67,6 +70,42 @@ 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`;
+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";
+    }
+}
+</perlscript>
+<perlscript dist="fedora1 fedora2 fedora3 fedora4 suse9.2 suse9.3 sles9" 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') {
+    if (! -e $file) {
+        print "**** WARNING: ".$file." does not appear to be installed.\n";
+    }
+}
+</perlscript>
 </file>
 </files>
 </piml>