Diff for /doc/loncapafiles/rpmcheck.piml between versions 1.7 and 1.8

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>

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>