--- 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.=< /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.="
" if $note; my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'}; @@ -1357,6 +1362,9 @@ END $source="$source"; } } + 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="
CHECKSUM DIFFERENCE"; + } + } } 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='runtime+development'; + $filestatus="runtime+development$checksum"; } elsif ($fs eq "$chmod$s$chown") { - $filestatus='runtime'; + $filestatus="runtime$checksum"; } elsif ($fs eq "$devchmod$s$devchown") { - $filestatus='development'; + $filestatus="development$checksum"; } else { $filestatus="ERROR
$fs";