6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.11 2002/12/23 07:10:59 joko |
10 |
|
## + using MD5 for checksum generation again - the 32-bit integer hash from DBI seems to be too lazy |
11 |
|
## |
12 |
## Revision 1.10 2002/12/19 01:07:16 joko |
## Revision 1.10 2002/12/19 01:07:16 joko |
13 |
## + fixed output done via $logger |
## + fixed output done via $logger |
14 |
## |
## |
718 |
#$logger->dump( __PACKAGE__ . ": " . $dump ); |
#$logger->dump( __PACKAGE__ . ": " . $dump ); |
719 |
|
|
720 |
# calculate checksum from dump |
# calculate checksum from dump |
721 |
|
# note: the 32-bit integer hash from DBI seems |
722 |
|
# to generate duplicates with small payloads already in ranges of hundreds of items/rows!!! |
723 |
|
# try to avoid to use it or try to use it only for payloads greater than, hmmm, let's say 30 chars? |
724 |
|
# (we had about 15 chars average per item (row)) |
725 |
|
|
726 |
# md5-based fingerprint, base64 encoded (from Digest::MD5) |
# md5-based fingerprint, base64 encoded (from Digest::MD5) |
727 |
#my $checksum_cur = md5_base64($objdump) . '=='; |
$self->{node}->{$descent}->{checksum} = md5_base64($dump) . '=='; |
728 |
# 32-bit integer "hash" value (maybe faster?) (from DBI) |
# 32-bit integer "hash" value (maybe faster?) (from DBI) |
729 |
$self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1); |
#$self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1); |
730 |
|
|
731 |
# signal good |
# signal good |
732 |
return 1; |
return 1; |