--- 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(<IN>) {
 	    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 <<END;
-<HTML>
-<HEAD>
-<TITLE>LON-CAPA Software RPM Status Page</TITLE>
-</HEAD>
-<BODY>
-<FONT SIZE=+2>LON-CAPA Software RPM Status Page (done on $date for $hostname)</FONT>
-<BR>Michigan State University
-<BR>Learning Online with CAPA
-<BR>Contact korte\@lon-capa.org
-<UL>
-<LI>About this file</LI>
-<LI>Bad RPM Versions</LI>
-<LI>Out-of-date RPMS</LI>
-<LI>Newer than expected RPMS</LI>
-<LI>RPMS external to LON-CAPA</LI>
-</UL>
-<FONT SIZE=+2>About this file</FONT>
-<P>
+<html>
+<head>
+<title>LON-CAPA Software RPM Status Page</title>
+</head>
+<body>
+<font size="+2">LON-CAPA Software RPM Status Page
+(done on $date for $hostname)</font>
+<br />Michigan State University
+<br />Learning Online with CAPA
+<br />Contact korte\@lon-capa.org
+<ul>
+<li>About this file</li>
+<li>Bad RPM Versions</li>
+<li>Out-of-date RPMS</li>
+<li>Newer than expected RPMS</li>
+<li>RPMS external to LON-CAPA</li>
+</ul>
+<font size="+2">About this file</font>
+<p>
 This file is generated dynamically by <tt>make rpmstatuspost</tt>
 when this command is entered in the CVS:loncom/build directory.
-</P>
+</p>
 END
     print <<END;
-<FONT SIZE=+2>Bad RPM Versions</FONT>
-<PRE>
+<font size="+2">Differing RPM Versions</font>
+<pre>
 END
 foreach my $rpminfo (@badversionrpms) {
     print $rpminfo;
 }
 print <<END;
-</PRE>
+</pre>
 END
 print <<END;
-<FONT SIZE=+2>Out-of-date RPMS</FONT>
-<PRE>
+<font size="+2">Out-of-date RPMS</font>
+<pre>
 END
 foreach my $rpminfo (@oldrpms) {
     print $rpminfo;
 }
 print <<END;
-</PRE>
+</pre>
 END
 print <<END;
-<FONT SIZE=+2>Newer than expected RPMS</FONT>
-<PRE>
+<font size="+2">Newer than expected RPMS</font>
+<pre>
 END
 foreach my $rpminfo (@newrpms) {
     print $rpminfo;
 }
 print <<END;
-</PRE>
+</pre>
 END
 print <<END;
-<FONT SIZE=+2>RPMS external to LON-CAPA</FONT>
-<PRE>
+<font size="+2">RPMS external to LON-CAPA</font>
+<pre>
 END
 foreach my $rpminfo (@externalrpms) {
     print $rpminfo;
 }
 print <<END;
-</PRE>
+</pre>
 END
