--- loncom/build/Attic/parse.pl	2000/12/09 19:29:16	1.6
+++ loncom/build/Attic/parse.pl	2000/12/10 03:06:11	1.8
@@ -118,6 +118,7 @@ sub begin_description_page {
 <LI>About this file
 <LI>Software Package Description
 <LI>Directory Structure
+<LI>File Type Ownership and Permissions
 <LI>File and Directory Structure
 </UL>
 <FONT SIZE=+2>About this file</FONT>
@@ -185,10 +186,17 @@ sub make_directory_structure_description
 <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
 END
     my $maxcount=0;
+    my @allfiles=keys %{$info{'LOCATION'}{$distribution}};
+    my %diraccount; # hash to track which directories are accounted for
+    foreach my $file (@allfiles) {
+	$file=~/^(.*)\/([^\/]+)$/;
+	$diraccount{$1}=1;
+    }
     foreach my $d (@$dirs) {
         my (@matches)=($d=~/\//g);
 	my $count=scalar(@matches);
 	$maxcount=$count if $count>$maxcount;
+	delete $diraccount{$d};
     }
     $description.=<<END;
 <TR>
@@ -197,6 +205,13 @@ END
 <TH ALIGN=LEFT BGCOLOR=#FFFFFF><FONT COLOR=#FF0000>Development<BR>Permissions</FONT></TH>
 END
     $description.="<TH ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+1).">Directory Path</TH>\n";
+    if (keys %diraccount) {
+	$description.= "<TR><TD ALIGN=LEFT BGCOLOR=#FFFFFF COLSPAN=".($maxcount+4)."><I><PRE>Directories that are unaccounted for: \n";
+	foreach my $d (keys %diraccount) {
+	    $description.="$d\n";
+	}
+	$description.="</PRE></I></TH></TR>\n";
+    }
     foreach my $d (@$dirs) {
 	my $dtable=$d;
 	$dtable=~s/\//\<\/TD\>\<TD\>/g;
@@ -270,7 +285,11 @@ sub make_directory_and_file_structure_de
 <P>
 The icons on the left column correspond to the file type
 specified in the second column.  The last column "Notes" shows compilation,
-dependency, and configuration information.
+dependency, and configuration information.  The CVS location
+shows the location of the binary source file (if applicable) needed to
+be copied to the target.  If the binary source file is not at
+the specified location, then the text is shown in 
+<FONT COLOR=#FF0000>red</FONT>.
 </P>
 <P>
 <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
@@ -327,6 +346,13 @@ END
 		my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
 		my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
 		my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
+		unless (-e "../../$source") {
+		    $source=~/([^\/]+)$/;
+		    my $s=$1;
+		    $source="<FONT COLOR=#FF0000>$source</FONT>";
+#		    my $fr=`cd ../../; find . -name $s`;
+#		    $source.="<BR>$fr\n";
+		}
 		my $notes=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTES'};
 		$description.=<<END;
 <TR>