version 1.1, 2004/05/19 16:31:07
|
version 1.5, 2004/05/28 12:45:18
|
Line 35 http://www.lon-capa.org/
|
Line 35 http://www.lon-capa.org/
|
<file> |
<file> |
<target dist="default">/home/httpd/lonUsers</target> |
<target dist="default">/home/httpd/lonUsers</target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
|
# |
|
# Look for php packages that should not be installed |
my @phprpms = `rpm -q -a|grep php`; |
my @phprpms = `rpm -q -a|grep php`; |
if (@phprpms) { |
if (@phprpms) { |
print "WARNING: PHP packages are present on this system.\n". |
print "WARNING: PHP packages are present on this system.\n". |
Line 47 if (@phprpms) {
|
Line 49 if (@phprpms) {
|
} |
} |
print "\n"; |
print "\n"; |
} |
} |
|
# |
|
# Look for mod_* that are thought to conflict with LON-CAPA |
my @mod_rpms = `rpm -q -a | grep mod`; |
my @mod_rpms = `rpm -q -a | grep mod`; |
foreach my $rpm (@mod_rpms) { |
foreach my $rpm (@mod_rpms) { |
# next if ($rpm =~ /^mod_perl/); |
|
if ($rpm =~ /mod_bandwidth/) { |
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". |
"package installed.\n". |
Line 57 foreach my $rpm (@mod_rpms) {
|
Line 60 foreach my $rpm (@mod_rpms) {
|
"Use the following command to remove it:\n". |
"Use the following command to remove it:\n". |
"rpm -e $rpm\n"; |
"rpm -e $rpm\n"; |
} |
} |
if ($rpm =~ /throttle/) { |
if ($rpm =~ /mod_throttle/) { |
print "WARNING: it appears you have the mod_throttle ". |
print "WARNING: it appears you have the mod_throttle ". |
"package installed.\n". |
"package installed.\n". |
"mod_throttle appears to conflict with LON-CAPA.\n". |
"mod_throttle appears to conflict with LON-CAPA.\n". |
Line 66 foreach my $rpm (@mod_rpms) {
|
Line 69 foreach my $rpm (@mod_rpms) {
|
} |
} |
|
|
} |
} |
|
# |
|
# Look for packages which we need to be present |
|
my @RPMS = `rpm -q -a`; |
|
foreach my $rpm ('psutils','openssl-devel','perl-suidperl', |
|
'gnuplot-3.7.1-5','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') { |
|
if (! -e $file) { |
|
print "WARNING: ".$file." does not appear to be installed.\n"; |
|
} |
|
} |
</perlscript> |
</perlscript> |
</file> |
</file> |
</files> |
</files> |