--- loncom/build/Attic/parse.pl	2001/01/23 16:26:38	1.27
+++ loncom/build/Attic/parse.pl	2001/02/27 14:18:46	1.29
@@ -1329,6 +1329,7 @@ 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 $source2=$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'};
@@ -1361,6 +1362,9 @@ END
 			$source="<FONT COLOR=#FF0000>$source</FONT>";
 		    }
 		}
+		my $checksum;
+		my $checksum_source;
+		my $checksum_target;
 		if ($mode eq 'status') {
 		    $filestatus='';
 		    my $fs;
@@ -1383,6 +1387,16 @@ END
 		    }
 		    else {
 			$fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
+			if (-f "/$filesfull[$i]" && !(-l "/$filesfull[$i]")) {
+			    $checksum_source=`md5sum ../../$source2 | cut -d ' ' -f1`;
+			    chop $checksum_source;
+			    $checksum_target=`md5sum /$filesfull[$i] | cut -d ' ' -f1`;
+			    chop $checksum_target;
+#			    warn ("CS: $checksum_source, CT: $checksum_target\n");
+			    unless ($checksum_source eq $checksum_target) {
+				$checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";
+			    }
+			}
 		    }
 		    my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
 		    unless ($fs || $filestatus) {
@@ -1406,13 +1420,13 @@ END
 			    $s='';
 			}
 			if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {
-			    $filestatus='<TD BGCOLOR=#FFFFFF>runtime+development</TD>';
+			    $filestatus="<TD BGCOLOR=#FFFFFF>runtime+development$checksum</TD>";
 			}
 			elsif ($fs eq "$chmod$s$chown") {
-			    $filestatus='<TD BGCOLOR=#FFFFFF>runtime</TD>';
+			    $filestatus="<TD BGCOLOR=#FFFFFF>runtime$checksum</TD>";
 			}
 			elsif ($fs eq "$devchmod$s$devchown") {
-			    $filestatus='<TD BGCOLOR=#FFFFFF>development</TD>';
+			    $filestatus="<TD BGCOLOR=#FFFFFF>development$checksum</TD>";
 			}
 			else {
 			    $filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";