/ /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 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"; } } my $hasprereqs = 0; if (open(PIPE,"rpm -q LONCAPA-prerequisites|")) { my @lines = (<PIPE>); close(PIPE); chomp(@lines); foreach my $line (@lines) { if ($line =~ /^\QLONCAPA-prerequisites-\E[.\w\-]+$/) { $hasprereqs = 1; last; } } } if (!$hasprereqs) { print "**** WARNING: LONCAPA-prerequisites does not appear to be installed.\n"; } my $hasprereqs = 0; if (open(PIPE,"dpkg -l loncapa-prerequisites|")) { my @lines = (<PIPE>); close(PIPE); chomp(@lines); foreach my $line (@lines) { if ($line =~ /^ii\s+\Qloncapa-prerequisites\E\s+([.\d\-]+)/) { $hasprereqs = 1; last; } } } if (!$hasprereqs) { print "**** WARNING: loncapa-prerequisites does not appear to be installed.\n"; } print <<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 # # 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"; } }