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

Diff for /loncom/build/rpmparse.pl between versions 1.6 and 1.7

version 1.6, 2001/04/03 13:37:09 version 1.7, 2001/04/04 12:48:55
Line 45  close IN; Line 45  close IN;
 my $date=`date`; chop $date;  my $date=`date`; chop $date;
 my $hostname=`hostname`; chop $hostname;  my $hostname=`hostname`; chop $hostname;
 print <<END;  print <<END;
 <HTML>  <html>
 <HEAD>  <head>
 <TITLE>LON-CAPA Software RPM Status Page</TITLE>  <title>LON-CAPA Software RPM Status Page</title>
 </HEAD>  </head>
 <BODY>  <body>
 <FONT SIZE=+2>LON-CAPA Software RPM Status Page (done on $date for $hostname)</FONT>  <font size="+2">LON-CAPA Software RPM Status Page
 <BR>Michigan State University  (done on $date for $hostname)</font>
 <BR>Learning Online with CAPA  <br />Michigan State University
 <BR>Contact korte\@lon-capa.org  <br />Learning Online with CAPA
 <UL>  <br />Contact korte\@lon-capa.org
 <LI>About this file</LI>  <ul>
 <LI>Bad RPM Versions</LI>  <li>About this file</li>
 <LI>Out-of-date RPMS</LI>  <li>Bad RPM Versions</li>
 <LI>Newer than expected RPMS</LI>  <li>Out-of-date RPMS</li>
 <LI>RPMS external to LON-CAPA</LI>  <li>Newer than expected RPMS</li>
 </UL>  <li>RPMS external to LON-CAPA</li>
 <FONT SIZE=+2>About this file</FONT>  </ul>
 <P>  <font size="+2">About this file</font>
   <p>
 This file is generated dynamically by <tt>make rpmstatuspost</tt>  This file is generated dynamically by <tt>make rpmstatuspost</tt>
 when this command is entered in the CVS:loncom/build directory.  when this command is entered in the CVS:loncom/build directory.
 </P>  </p>
 END  END
     print <<END;      print <<END;
 <FONT SIZE=+2>Bad RPM Versions</FONT>  <font size="+2">Differing RPM Versions</font>
 <PRE>  <pre>
 END  END
 foreach my $rpminfo (@badversionrpms) {  foreach my $rpminfo (@badversionrpms) {
     print $rpminfo;      print $rpminfo;
 }  }
 print <<END;  print <<END;
 </PRE>  </pre>
 END  END
 print <<END;  print <<END;
 <FONT SIZE=+2>Out-of-date RPMS</FONT>  <font size="+2">Out-of-date RPMS</font>
 <PRE>  <pre>
 END  END
 foreach my $rpminfo (@oldrpms) {  foreach my $rpminfo (@oldrpms) {
     print $rpminfo;      print $rpminfo;
 }  }
 print <<END;  print <<END;
 </PRE>  </pre>
 END  END
 print <<END;  print <<END;
 <FONT SIZE=+2>Newer than expected RPMS</FONT>  <font size="+2">Newer than expected RPMS</font>
 <PRE>  <pre>
 END  END
 foreach my $rpminfo (@newrpms) {  foreach my $rpminfo (@newrpms) {
     print $rpminfo;      print $rpminfo;
 }  }
 print <<END;  print <<END;
 </PRE>  </pre>
 END  END
 print <<END;  print <<END;
 <FONT SIZE=+2>RPMS external to LON-CAPA</FONT>  <font size="+2">RPMS external to LON-CAPA</font>
 <PRE>  <pre>
 END  END
 foreach my $rpminfo (@externalrpms) {  foreach my $rpminfo (@externalrpms) {
     print $rpminfo;      print $rpminfo;
 }  }
 print <<END;  print <<END;
 </PRE>  </pre>
 END  END
Removed from v.1.6  
changed lines
  Added in v.1.7

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