[BACK]Return to loncapaverifypackages CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/loncapaverifypackages between versions 1.2 and 1.3

version 1.2, 2000/10/25 20:37:01 version 1.3, 2000/10/25 23:50:21
Line 13  use strict; Line 13  use strict;
   
 my @current_rpms=`/bin/rpm -qa`;  my @current_rpms=`/bin/rpm -qa`;
 my %chash=map {($_,1)} @current_rpms;  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 @ideal_rpms=`/usr/bin/lynx -source http://install.lon-capa.org/3.1/otherfiles/rpm_list.txt | /bin/grep '^[[:alpha:]][[:space:]][[:alpha:]]' | /usr/bin/cut -b3-`;
 my %ihash=map {($_,1)} @ideal_rpms;  my %ihash=map {($_,1)} @ideal_rpms;
   
 @not_current_but_ideal=map {"- $_"} grep {$chash{$_}} @ideal_rpms;  my @not_current_but_ideal=map {"- $_"} grep {!$chash{$_}} @ideal_rpms;
 @not_ideal_but_current=map {"+ $_"} grep {$ihash{$_}} @current_rpms;  my @not_ideal_but_current=map {"+ $_"} grep {!$ihash{$_}} @current_rpms;
   
 print <<END;  print <<END if @not_current_but_ideal;
 These packages are missing and should be on your system.  These packages below are missing and should be on your system.
 END  END
 print join("\n",@not_current_but_ideal);  print join("",@not_current_but_ideal);
 print <<END;  print <<END if @not_ideal_but_current;
   
   
 END  
 print <<END;  
 These packages below are on your system but, according to install.lon-capa.org,  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  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  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.  LON-CAPA system, or malicious activity.  You may want to remove or upgrade these.
 END  END
 print join("\n",@not_ideal_but_current);  print join("",@not_ideal_but_current);
 print <<END;  
 END  
   
Removed from v.1.2  
changed lines
  Added in v.1.3

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