--- loncom/build/Attic/parse.pl	2000/12/10 03:06:11	1.8
+++ loncom/build/Attic/parse.pl	2000/12/10 04:15:23	1.9
@@ -75,7 +75,7 @@ while ($info1=~/\<loncapa\s+(.*?)\>/isg)
         foreach my $m (@meta) {
 	    if ($data=~/\<($m)\>(.*?)\<\/$m\>/sgi) {
 		my ($key,$value)=($1,$2);
-		$info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{$key}=
+		$info{$hash{'TYPE'}}{$hash{'DIST'}}{$hash{'TARGET'}}{uc($key)}=
 		                                                    $value;
 	    }
         }
@@ -183,6 +183,13 @@ sub make_directory_structure_description
     my $description=<<END;
 <FONT SIZE=+2>Directory Structure Description, $date</FONT>
 <P>
+The directory structure description below shows only those
+directories which either contain LON-CAPA specific files
+or normally do not exist on a RedHat Linux system (and
+must be generated to allow proper placement of files
+during LON-CAPA run-time operation).
+</P>
+<P>
 <TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
 END
     my $maxcount=0;
@@ -292,7 +299,7 @@ the specified location, then the text is
 <FONT COLOR=#FF0000>red</FONT>.
 </P>
 <P>
-<TABLE BORDER=1 CELLPADDING=5 WIDTH=60%>
+<TABLE BORDER=1 CELLPADDING=5 WIDTH=500>
 END
     my $counter=0;
     my @colorindex=("#80FF80","#80FFFF","#FFFF80");
@@ -346,14 +353,38 @@ 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'};
+		my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
+		$note.="<BR>" if $note;
+		my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
+		my @E=split(/\s+/,$listing);
+		$source=~/(.*)\/[^\/]+$/;
+		my $sd=$1;
+		my $eflag=0;
+		foreach my $e (@E) {
+		    unless (-e "../../$sd/$e") {
+			$e="<FONT COLOR=#FF0000>$e</FONT>";
+			$eflag=1;
+		    }
+		}
+		$listing=join("\n",@E);
+		$listing="<B>listing</B><BR><FONT SIZE=-2>$listing</FONT>" if $listing;
+		$listing.="<BR>" if $listing;
+		my $build=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'BUILD'};
+		$build="<B>build</B><BR>$build" if $build;
+		$build.="<BR>" if $build;
+		my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
+		$dependencies="<B>dependencies</B><BR>$dependencies" if $dependencies;
+		$dependencies.="<BR>" if $dependencies;
 		unless (-e "../../$source") {
 		    $source=~/([^\/]+)$/;
 		    my $s=$1;
-		    $source="<FONT COLOR=#FF0000>$source</FONT>";
-#		    my $fr=`cd ../../; find . -name $s`;
-#		    $source.="<BR>$fr\n";
+		    if ($source!~/\*/) {
+			$source="<FONT COLOR=#FF0000>$source</FONT>";
+		    }
+		    elsif ($eflag) {
+			$source="<FONT COLOR=#FF0000>$source</FONT>";
+		    }
 		}
-		my $notes=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTES'};
 		$description.=<<END;
 <TR>
 <TD BGCOLOR=#A0A0A0><IMG SRC="$fcm{$category}.gif" ALT="$category"></TD>
@@ -361,7 +392,7 @@ END
 <TD BGCOLOR=$color>$files[$i]</TD>
 <TD BGCOLOR=$color>$fdescription&nbsp;</TD>
 <TD BGCOLOR=$color>$source</TD>
-<TD BGCOLOR=$color>$notes&nbsp;</TD>
+<TD BGCOLOR=$color>$note$listing$build$dependencies&nbsp;</TD>
 </TR>
 END
 	    }