6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.2 2003/02/11 09:53:07 joko |
10 |
|
## + metadata-structure-change, fixed some code here |
11 |
|
## |
12 |
## Revision 1.1 2003/02/09 05:10:13 joko |
## Revision 1.1 2003/02/09 05:10:13 joko |
13 |
## + initial commit |
## + initial commit |
14 |
## |
## |
82 |
# trace |
# trace |
83 |
#print "desc: $descent", "\n"; |
#print "desc: $descent", "\n"; |
84 |
#print Dumper($self); |
#print Dumper($self); |
85 |
|
#print Dumper($self->{meta}->{$descent}); |
86 |
#exit; |
#exit; |
87 |
|
|
88 |
# get checksum for current entry |
# get checksum for current entry |
89 |
# TODO: don't have the checksum column/property hardcoded as "cs" here, make this configurable somehow |
# TODO: don't have the checksum column/property hardcoded as "cs" here, make this configurable somehow |
90 |
if ($self->{options}->{$descent}->{storage}->{isChecksumAuthority}) { |
if ($self->{meta}->{$descent}->{isChecksumAuthority}) { |
91 |
$self->_calcChecksum($descent); |
$self->_calcChecksum($descent); |
92 |
} else { |
} else { |
93 |
$self->{node}->{$descent}->{checksum} = $self->{node}->{$descent}->{payload}->{cs}; |
$self->{node}->{$descent}->{checksum} = $self->{node}->{$descent}->{payload}->{cs}; |