Return to loncapaverifypackages CVS log

Up to [LON-CAPA] / loncom / build

first mainly complete version

    1: #!/usr/bin/perl
    2: 
    3: # loncapaverifypackages
    4: 
    5: # This tool helps with system verification.  It looks at the
    6: # RPM packages on the system.  It downloads a list of expected
    7: # RPMs from install.lon-capa.org.  It makes two comparisons.
    8: # Which packages are missing?  Which packages are unexpected?
    9: 
   10: # Scott Harrison, 10/25/2000
   11: 
   12: use strict;
   13: 
   14: my @current_rpms=`/bin/rpm -qa`;
   15: my %chash=map {($_,1)} @current_rpms;
   16: my @ideal_rpms=`/usr/bin/lynx -source http://install.lon-capa.org/3.1/otherfiles/rpm_list.txt`;
   17: my %ihash=map {($_,1)} @ideal_rpms;
   18: 
   19: @not_current_but_ideal=map {"- $_"} grep {$chash{$_}} @ideal_rpms;
   20: @not_ideal_but_current=map {"+ $_"} grep {$ihash{$_}} @current_rpms;
   21: 
   22: print <<END;
   23: These packages are missing and should be on your system.
   24: END
   25: print join("\n",@not_current_but_ideal);
   26: print <<END;
   27: 
   28: 
   29: END
   30: print <<END;
   31: These packages below are on your system but, according to install.lon-capa.org,
   32: should not be.  This may be due to not having an upgraded package, a package added
   33: by the administrator of this machine to enhance functionality, changes in the
   34: LON-CAPA system, or malicious activity.  You may want to remove or upgrade these.
   35: END
   36: print join("\n",@not_ideal_but_current);
   37: print <<END;
   38: END
   39: