--- loncom/build/lpml_parse.pl	2001/11/17 21:30:28	1.20
+++ loncom/build/lpml_parse.pl	2001/11/29 15:01:04	1.23
@@ -6,9 +6,9 @@
 # 06/19/2001,06/20,06/24 - Scott Harrison
 # 9/5/2001,9/6,9/7,9/8 - Scott Harrison
 # 9/17,9/18 - Scott Harrison
-# 11/4,11/5,11/6,11/7,11/16 - Scott Harrison
+# 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison
 #
-# $Id: lpml_parse.pl,v 1.20 2001/11/17 21:30:28 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 '';
@@ -799,14 +856,16 @@ $buildtest	\@if !(test -e "${sourceroot}
 		echo "**** ERROR **** CVS source file does not exist: ${sourceroot}/${source} and neither does target: ${targetroot}/${target}"$logcmd; \\
 	elif !(test -e "${sourceroot}/${source}"); then \\
 		echo "**** WARNING **** CVS source file does not exist: ${sourceroot}/${source}"$logcmd; \\
+		perl verifymodown.pl ${targetroot}/${target} "$categoryhash{$categoryname}"$logcmd; \\
 	else \\
 		ECODE=0; \\
 		perl filecompare.pl $bflag ${sourceroot}/${source} ${targetroot}/${target} || ECODE=\$\$?; \\
 		case "\$\$ECODE" in \\
 			1) echo "${targetroot}/${target} is unchanged";; \\
-			2) echo "**** WARNING **** target file ${targetroot}/${target} is newer than CVS source; creating ${targetroot}/${target}.lpmlnewfile instead"$logcmd && install -o www -g www -m 0500 ${sourceroot}/${source} ${targetroot}/${target}.lpmlnewfile;; \\
-			0) echo "install -o www -g www -m 0500 ${sourceroot}/${source} ${targetroot}/${target}" && install -o www -g www -m 0500 ${sourceroot}/${source} ${targetroot}/${target};; \\
+			2) echo "**** WARNING **** target file ${targetroot}/${target} is newer than CVS source; saving current (old) target file to ${targetroot}/${target}.lpmlsave and then overwriting"$logcmd && install -o www -g www -m 0600 ${targetroot}/${target} ${targetroot}/${target}.lpmlsave && install $categoryhash{$categoryname} ${sourceroot}/${source} ${targetroot}/${target};; \\
+			0) echo "install $categoryhash{$categorname} ${sourceroot}/${source} ${targetroot}/${target}" && install $categoryhash{$categoryname} ${sourceroot}/${source} ${targetroot}/${target};; \\
 		esac; \\
+		perl verifymodown.pl ${targetroot}/${target} "$categoryhash{$categoryname}"$logcmd; \\
 	fi
 END
 #	    return "\t".'@test -e '.$sourceroot.'/'.$source.
@@ -829,12 +888,12 @@ END
 		'{ [ $$ECODE != "2" ] || (install '.
                 $categoryhash{$categoryname}.' '.
 		$sourceroot.'/'.$source.' '.
-		$targetroot.'/'.$target.'.lpmlnewconf'.
+		$targetroot.'/'.$target.'.lpmlnew'.
 		' && echo "**** NOTE: CONFIGURATION FILE CHANGE ****"'.
 		$logcmd.' && echo "'.
 		'You likely need to compare contents of '.
 		''.$targetroot.'/'.$target.' with the new '.
-                ''.$targetroot.'/'.$target.'.lpmlnewconf"'.
+                ''.$targetroot.'/'.$target.'.lpmlnew"'.
 		"$logcmd); } && ".
 		'{ [ $$ECODE != "3" ] || (install '.
                 $categoryhash{$categoryname}.' '.
@@ -851,7 +910,7 @@ END
 		$logcmd.' && echo "'.
 		'Configuration source file does not exist '.
 		''.$sourceroot.'/'.$source.'"'.
-		"$logcmd); };\n\n";
+		"$logcmd); } && perl verifymodown.pl ${targetroot}/${target} \"$categoryhash{$categoryname}\"$logcmd;\n\n";
 	}
 	elsif ($mode eq 'build' && $build) {
 	    push @buildall,$sourceroot.'/'.$source;