/ /home/httpd/lonUsers # # 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". "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 "; foreach (@phprpms) { chomp; print $_.' '; } 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) { if ($rpm =~ /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 =~ /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". "rpm -e $rpm\n"; } } # # Look for packages which we need to be present foreach my $rpm ('psutils') { my @RPMs = `rpm -q -a | grep $rpm`; if (! @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') { if (! -e $file) { print "WARNING: ".$file." does not appear to be installed.\n"; } }