version 1.4, 2004/05/25 15:55:04
|
version 1.5, 2004/05/28 12:45:18
|
Line 71 foreach my $rpm (@mod_rpms) {
|
Line 71 foreach my $rpm (@mod_rpms) {
|
} |
} |
# |
# |
# Look for packages which we need to be present |
# Look for packages which we need to be present |
|
my @RPMS = `rpm -q -a`; |
foreach my $rpm ('psutils','openssl-devel','perl-suidperl', |
foreach my $rpm ('psutils','openssl-devel','perl-suidperl', |
'gnuplot-3.7.1-5','apache-1.3','mod_perl.1') { |
'gnuplot-3.7.1-5','apache-1.3','mod_perl.1', |
my @RPMs = `rpm -q -a | grep $rpm`; |
'^gzip','^zip-','^bzip2-libs','^unzip','^bzip2','^tar-') { |
if (! @RPMs) { |
my @matching_rpms = grep(/$rpm/,@RPMS); |
|
if (! @matching_rpms) { |
print "WARNING: ".$rpm." does not appear to be installed.\n"; |
print "WARNING: ".$rpm." does not appear to be installed.\n"; |
} |
} |
} |
} |