loncom/build/loncapaverifypackages - diff

Return to loncapaverifypackages CVS log

Up to [LON-CAPA] / loncom / build

-version 1.1, 2000/10/25 19:24:58
+version 1.2, 2000/10/25 20:37:01
  Line 2
  # loncapaverifypackages
+ # This tool helps with system verification.  It looks at the
+ # RPM packages on the system.  It downloads a list of expected
+ # RPMs from install.lon-capa.org.  It makes two comparisons.
+ # Which packages are missing?  Which packages are unexpected?
  # Scott Harrison, 10/25/2000
+ use strict;
+ my @current_rpms=`/bin/rpm -qa`;
+ my %chash=map {($_,1)} @current_rpms;
+ my @ideal_rpms=`/usr/bin/lynx -source http://install.lon-capa.org/3.1/otherfiles/rpm_list.txt`;
+ my %ihash=map {($_,1)} @ideal_rpms;
+ @not_current_but_ideal=map {"- $_"} grep {$chash{$_}} @ideal_rpms;
+ @not_ideal_but_current=map {"+ $_"} grep {$ihash{$_}} @current_rpms;
+ print <<END;
+ These packages are missing and should be on your system.
+ END
+ print join("\n",@not_current_but_ideal);
+ print <<END;
+ END
+ print <<END;
+ These packages below are on your system but, according to install.lon-capa.org,
+ should not be.  This may be due to not having an upgraded package, a package added
+ by the administrator of this machine to enhance functionality, changes in the
+ LON-CAPA system, or malicious activity.  You may want to remove or upgrade these.
+ END
+ print join("\n",@not_ideal_but_current);
+ print <<END;
+ END