--- loncom/build/Attic/parse.pl	2000/12/09 17:03:57	1.5
+++ loncom/build/Attic/parse.pl	2000/12/09 22:55:29	1.7
@@ -94,6 +94,8 @@ if ($mode eq "ALL" || $mode eq "HTML") {
     @directories=&determine_directory_structure;
     $a=&make_directory_structure_description_block(\@directories);
     print $a;
+    $a=&make_file_type_ownership_and_permissions_description_block;
+    print $a;
     $a=&make_directory_and_file_structure_description_block(\@directories);
     print $a;
     $a=&end_description_page;
@@ -116,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>
@@ -221,12 +224,60 @@ END
     return $description;
 }
 
+# ------------------- Make file type ownership and permissions description block
+sub make_file_type_ownership_and_permissions_description_block {
+    my $description=<<END;
+<FONT SIZE=+2>File Type Ownership and Permissions Descriptions, $date</FONT>
+<P>
+This table shows what permissions and ownership settings correspond
+to each kind of file type.
+</P>
+<P>
+<TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
+<TR>
+<TH ALIGN=LEFT BGCOLOR=#FFFFFF>Icon</TH>
+<TH ALIGN=LEFT BGCOLOR=#FFFFFF>Type</TH>
+<TH ALIGN=LEFT BGCOLOR=#FFFFFF>Permissions</TH>
+<TH ALIGN=LEFT BGCOLOR=#FFFFFF>Development Permissions</TH>
+</TR>
+END
+    foreach my $type (keys %{$info{'OWNERSHIP'}}) {
+	if (defined($fcm{$type})) {
+	    my $chmod=$info{'OWNERSHIP'}{$type}{'CHMOD'};
+	    my $chown=$info{'OWNERSHIP'}{$type}{'CHOWN'};
+	    my $devchmod=$info{'DEVOWNERSHIP'}{$type}{'CHMOD'};
+	    my $devchown=$info{'DEVOWNERSHIP'}{$type}{'CHOWN'};
+	    $description.=<<END;
+<TR>
+<TD><IMG SRC="$fcm{$type}.gif" ALT="$type"></TD>
+<TD>$type</TD>
+<TD><TT>$chmod $chown</TT></TD>
+<TD><TT>$devchmod $devchown</TT></TD>
+</TR>
+END
+        }
+    }
+    $description.=<<END;
+</TABLE>
+</P>
+END
+}
+
 # ------------------------- Make directory and file structure description block
 sub make_directory_and_file_structure_description_block {
     my ($dirs)=@_;
     my $description=<<END;
 <FONT SIZE=+2>Directory and File Structure Description, $date</FONT>
 <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.  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%>
 END
     my $counter=0;
@@ -281,6 +332,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>