version 1.7, 2004/08/11 14:12:47
|
version 1.8, 2004/08/23 19:07:26
|
Line 46 if (-e '/etc/redhat-release') {
|
Line 46 if (-e '/etc/redhat-release') {
|
# Look for php packages that should not be installed |
# 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". |
"There are known conflicts between PHP libraries and LON-CAPA.\n". |
"There are known conflicts between PHP libraries and LON-CAPA.\n". |
"Use the following command to remove ". |
"Use the following command to remove ". |
"the php packages from your system:\nrpm -e "; |
"the php packages from your system:\nrpm -e "; |
Line 61 if (@phprpms) {
|
Line 61 if (@phprpms) {
|
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) { |
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". |
"mod_bandwidth appears to conflict with LON-CAPA.\n". |
"mod_bandwidth appears to conflict with LON-CAPA.\n". |
"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 =~ /mod_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". |
"Use the following command to remove it:\n". |
"Use the following command to remove it:\n". |
Line 83 if ($rhversion eq "7.3") {
|
Line 83 if ($rhversion eq "7.3") {
|
foreach my $rpm ('gnuplot-3.7.1-5','LON-CAPA-systemperl') { |
foreach my $rpm ('gnuplot-3.7.1-5','LON-CAPA-systemperl') { |
my @matching_rpms = grep(/$rpm/,@RPMS); |
my @matching_rpms = grep(/$rpm/,@RPMS); |
if (! @matching_rpms) { |
if (! @matching_rpms) { |
print "WARNING: ".$rpm." does not appear to be installed.\n"; |
print "**** WARNING: ".$rpm." does not appear to be installed.\n"; |
} |
} |
} |
} |
} else { |
} else { |
foreach my $rpm ('gnuplot-', |
foreach my $rpm ('LONCAPA-prerequisites', |
|
'gnuplot-', |
'perl-IO-Socket-SSL', |
'perl-IO-Socket-SSL', |
'perl-Net-SSLeay', |
'perl-Net-SSLeay', |
'perl-Time-HiRes-1.59', |
'perl-Time-HiRes-1.59', |
Line 126 if ($rhversion eq "7.3") {
|
Line 127 if ($rhversion eq "7.3") {
|
'perl-TimeDate',) { |
'perl-TimeDate',) { |
my @matching_rpms = grep(/$rpm/,@RPMS); |
my @matching_rpms = grep(/$rpm/,@RPMS); |
if (! @matching_rpms) { |
if (! @matching_rpms) { |
print "WARNING: ".$rpm." does not appear to be installed.\n"; |
print "**** WARNING: ".$rpm." does not appear to be installed.\n"; |
} |
} |
} |
} |
} |
} |
Line 136 foreach my $rpm ('psutils','openssl-deve
|
Line 137 foreach my $rpm ('psutils','openssl-deve
|
'^bzip2-libs','^unzip','^bzip2','^tar-') { |
'^bzip2-libs','^unzip','^bzip2','^tar-') { |
my @matching_rpms = grep(/$rpm/,@RPMS); |
my @matching_rpms = grep(/$rpm/,@RPMS); |
if (! @matching_rpms) { |
if (! @matching_rpms) { |
print "WARNING: ".$rpm." does not appear to be installed.\n"; |
print "**** WARNING: ".$rpm." does not appear to be installed.\n"; |
} |
} |
} |
} |
|
|
Line 144 foreach my $rpm ('psutils','openssl-deve
|
Line 145 foreach my $rpm ('psutils','openssl-deve
|
# Look for files which we need to be present |
# Look for files which we need to be present |
foreach my $file ('/usr/bin/pstops') { |
foreach my $file ('/usr/bin/pstops') { |
if (! -e $file) { |
if (! -e $file) { |
print "WARNING: ".$file." does not appear to be installed.\n"; |
print "**** WARNING: ".$file." does not appear to be installed.\n"; |
} |
} |
} |
} |
</perlscript> |
</perlscript> |