--- loncom/build/Attic/parse.pl	2000/12/09 17:03:57	1.5
+++ loncom/build/Attic/parse.pl	2000/12/10 03:06:11	1.8
@@ -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>
@@ -183,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>
@@ -195,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;
@@ -221,12 +238,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 +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>