--- loncom/build/Attic/loncapaverifypackages	2000/10/25 20:37:01	1.2
+++ loncom/build/Attic/loncapaverifypackages	2000/10/25 23:50:21	1.3
@@ -13,27 +13,20 @@ 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 @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;
 
-@not_current_but_ideal=map {"- $_"} grep {$chash{$_}} @ideal_rpms;
-@not_ideal_but_current=map {"+ $_"} grep {$ihash{$_}} @current_rpms;
+my @not_current_but_ideal=map {"- $_"} grep {!$chash{$_}} @ideal_rpms;
+my @not_ideal_but_current=map {"+ $_"} grep {!$ihash{$_}} @current_rpms;
 
-print <<END;
-These packages are missing and should be on your system.
+print <<END if @not_current_but_ideal;
+These packages below are missing and should be on your system.
 END
-print join("\n",@not_current_but_ideal);
-print <<END;
-
-
-END
-print <<END;
+print join("",@not_current_but_ideal);
+print <<END if @not_ideal_but_current;
 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
-
+print join("",@not_ideal_but_current);