--- loncom/build/Attic/parse.pl	2000/12/09 17:03:57	1.5
+++ loncom/build/Attic/parse.pl	2000/12/09 19:29:16	1.6
@@ -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;
@@ -221,12 +223,56 @@ 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.
+</P>
+<P>
 <TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
 END
     my $counter=0;