--- loncom/build/rpmparse.pl 2001/04/03 13:33:22 1.4 +++ loncom/build/rpmparse.pl 2001/04/04 12:48:55 1.7 @@ -33,7 +33,7 @@ while() { push @newrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n"; } if ($sbhash{$name}>$buildtime) { - push @newrpms,"$name was built ".localtime($sbhash{$name})." when the expected build time was ".localtime($buildtime)."\n"; + push @oldrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n"; } } else { @@ -45,65 +45,66 @@ close IN; my $date=`date`; chop $date; my $hostname=`hostname`; chop $hostname; print < - -LON-CAPA Software RPM Status Page - - -LON-CAPA Software RPM Status Page (done on $date for $hostname) -
Michigan State University -
Learning Online with CAPA -
Contact korte\@lon-capa.org - -About this file -

+ + +LON-CAPA Software RPM Status Page + + +LON-CAPA Software RPM Status Page +(done on $date for $hostname) +
Michigan State University +
Learning Online with CAPA +
Contact korte\@lon-capa.org +

+About this file +

This file is generated dynamically by make rpmstatuspost when this command is entered in the CVS:loncom/build directory. -

+

END print <Bad RPM Versions -
+Differing RPM Versions
+
 END
 foreach my $rpminfo (@badversionrpms) {
     print $rpminfo;
 }
 print <
+
END print <Out-of-date RPMS -
+Out-of-date RPMS
+
 END
 foreach my $rpminfo (@oldrpms) {
     print $rpminfo;
 }
 print <
+
END print <Newer than expected RPMS -
+Newer than expected RPMS
+
 END
 foreach my $rpminfo (@newrpms) {
     print $rpminfo;
 }
 print <
+
END print <RPMS external to LON-CAPA -
+RPMS external to LON-CAPA
+
 END
 foreach my $rpminfo (@externalrpms) {
     print $rpminfo;
 }
 print <
+
END