--- loncom/build/lpml_parse.pl	2001/11/17 23:23:36	1.22
+++ loncom/build/lpml_parse.pl	2001/11/29 15:01:04	1.23
@@ -8,7 +8,7 @@
 # 9/17,9/18 - Scott Harrison
 # 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison
 #
-# $Id: lpml_parse.pl,v 1.22 2001/11/17 23:23:36 harris41 Exp $
+# $Id: lpml_parse.pl,v 1.23 2001/11/29 15:01:04 harris41 Exp $
 ###
 
 ###############################################################################
@@ -336,7 +336,46 @@ sub format_lpml {
     my (@tokeninfo)=@_;
     my $date=`date`; chop $date;
     if ($mode eq 'html') {
-	$lpml = "<br />LPML BEGINNING: $date";
+	$lpml = "<br /><font size='+2'>LPML Description Page (dist=$dist, ".
+	    "$date)".
+	    "</font>";
+	$lpml .=<<END;
+<ul>
+<li>About this file</li>
+<li>Software Package Description</li>
+<li>Directory Structure</li>
+<li>File Type Ownership and Permissions</li>
+<li>File and Directory Structure</li>
+</ul>
+END
+        $lpml .=<<END;
+<font size='+2'>About this file</font>
+<p>
+This file is generated dynamically by <tt>lpml_parse.pl</tt> as
+part of a development compilation process.  Author: Scott
+Harrison (harris41\@msu.edu).
+</p>
+END
+    }
+    elsif ($mode eq 'text') {
+	$lpml = "LPML Description Page (dist=$dist, $date)";
+	$lpml .=<<END;
+
+* About this file
+* Software Package Description
+* Directory Structure
+* File Type Ownership and Permissions
+* File and Directory Structure
+END
+        $lpml .=<<END;
+
+About this file
+
+This file is generated dynamically by lpml_parse.pl as
+part of a development compilation process.  Author: Scott
+Harrison (harris41\@msu.edu).
+
+END
     }
     elsif ($mode eq 'install') {
 	print '# LPML install targets. Linux Packaging Markup Language,';
@@ -456,7 +495,22 @@ sub format_rpm {
     my $text=&trim($parser->get_text('/rpm'));
     $parser->get_tag('/rpm');
     if ($mode eq 'html') {
-	return $rpm="\n<br />BEGIN RPM\n$text\n<br />END RPM";
+	return $rpm=<<END;
+<font size='+2'>Software Package Description</font>
+<p>
+<table bgcolor='#ffffff' border='0' cellpadding='10' cellspacing='0'>
+<tr><td><pre>
+$text
+</pre></td></tr>
+</table>
+END
+    }
+    elsif ($mode eq 'text') {
+	return $rpm=<<END;
+Software Package Description
+
+$text
+END
     }
     else {
 	return '';
@@ -467,7 +521,10 @@ sub format_rpmSummary {
     my $text=&trim($parser->get_text('/rpmSummary'));
     $parser->get_tag('/rpmSummary');
     if ($mode eq 'html') {
-	return $rpmSummary="\n<br />RPMSUMMARY $text";
+	return $rpmSummary="\nSummary     : $text";
+    }
+    elsif ($mode eq 'text') {
+	return $rpmSummary="\nSummary     : $text";
     }
     else {
 	return '';