| 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; |
Parent Directory
| 
Revision Log
| 
Patch
