--- loncom/build/Attic/parse.pl	2001/01/18 15:13:09	1.25
+++ loncom/build/Attic/parse.pl	2001/02/27 15:36:02	1.31
@@ -179,6 +179,10 @@ ALL: ALL
 END
 close OUT;
     
+    `install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`;
+    open OUT,">>setup_file_list.txt";
+    print OUT "BinaryRoot/home/www\n";
+    close OUT;
     `install -d BinaryRoot/etc/pam.d`;
     open OUT,">>setup_file_list.txt";
     print OUT "BinaryRoot/etc/pam.d/passwd\n";
@@ -723,7 +727,7 @@ END
 		my ($owner,$group)=split(/\:/,$devchown);
 		if ($category eq 'conf') {
 		    $description.=<<END;
-\tinstall -b -S `date +'.\%Y\%m\%d\%H\%M\%S'` -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
+\tcp -p \$(TARGET)/$rot \$(TARGET)/$rot`date +'.\%Y\%m\%d\%H\%M\%S'` 2 > /dev/null; install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
 END
                 }
 	    }
@@ -1325,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'};
@@ -1357,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;
@@ -1379,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) {
@@ -1402,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>";