--- loncom/build/lpml_parse.pl	2001/11/05 02:57:21	1.14
+++ loncom/build/lpml_parse.pl	2001/11/07 16:59:51	1.17
@@ -85,7 +85,7 @@ $targetroot=~s/\/$//;
 
 my $invocation;
 # --------------------------------------------------- Record program invocation
-if ($mode eq 'install') {
+if ($mode eq 'install' or $mode eq 'configinstall' or $mode eq 'build') {
     $invocation=(<<END);
 # Invocation: STDINPUT | lpml_parse.pl
 #             1st argument (mode) is: $mode
@@ -340,11 +340,19 @@ sub format_lpml {
 	print "\n".$invocation;
 	$lpml .= "SHELL=\"/bin/bash\"\n\n";
     }
+    elsif ($mode eq 'configinstall') {
+	print '# LPML configuration file targets (configinstall).'."\n";
+	print '# Linux Packaging Markup Language,';
+	print ' by Scott Harrison 2001'."\n";
+	print '# This file was automatically generated on '.`date`;
+	print "\n".$invocation;
+	$lpml .= "SHELL=\"/bin/bash\"\n\n";
+    }
     elsif ($mode eq 'build') {
 	$lpml = "# LPML build targets. Linux Packaging Markup Language,";
 	$lpml .= ' by Scott Harrison 2001'."\n";
 	$lpml .= '# This file was automatically generated on '.`date`;
-	$lpml .= "\n";
+	$lpml .= "\n".$invocation;
 	$lpml .= "SHELL=\"/bin/sh\"\n\n";
     }
     else {
@@ -359,10 +367,8 @@ sub format_targetroot {
     if ($mode eq 'html') {
 	return $targetroot="\n<br />TARGETROOT: $text";
     }
-    elsif ($mode eq 'install') {
-	return '# TARGET INSTALL LOCATION is "'.$targetroot."\"\n";
-    }
-    elsif ($mode eq 'build') {
+    elsif ($mode eq 'install' or $mode eq 'build' or
+	   $mode eq 'configinstall') {
 	return '# TARGET INSTALL LOCATION is "'.$targetroot."\"\n";
     }
     else {
@@ -377,10 +383,8 @@ sub format_sourceroot {
     if ($mode eq 'html') {
 	return $sourceroot="\n<br />SOURCEROOT: $text";
     }
-    elsif ($mode eq 'install') {
-	return '# SOURCE CODE LOCATION IS "'.$sourceroot."\"\n";;
-    }
-    elsif ($mode eq 'build') {
+    elsif ($mode eq 'install' or $mode eq 'build' or
+	   $mode eq 'configinstall') {
 	return '# SOURCE CODE LOCATION IS "'.$sourceroot."\"\n";;
     }
     else {
@@ -819,7 +823,7 @@ END
 		'You likely need to compare contents of '.
 		''.$targetroot.'/'.$target.' with the new '.
                 ''.$targetroot.'/'.$target.'.lpmlnewconf"'.
-		";) };\n\n";
+		"); };\n\n";
 	}
 	elsif ($mode eq 'build' && $build) {
 	    push @buildall,$sourceroot.'/'.$source;