6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.4 2004/05/06 12:53:07 jonen |
10 |
|
## + added use of File::RsycP::digest |
11 |
|
## |
12 |
## Revision 1.3 2003/05/13 08:19:00 joko |
## Revision 1.3 2003/05/13 08:19:00 joko |
13 |
## switched to crc32 |
## switched to crc32 |
14 |
## |
## |
42 |
# TODO: Load these appropriatly at runtime. |
# TODO: Load these appropriatly at runtime. |
43 |
use Digest::MD5 qw( md5 md5_hex md5_base64 ); |
use Digest::MD5 qw( md5 md5_hex md5_base64 ); |
44 |
use String::CRC32; |
use String::CRC32; |
45 |
|
use File::RsyncP::Digest; |
46 |
|
|
47 |
# get logger instance |
# get logger instance |
48 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
82 |
#$self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1); |
#$self->{node}->{$descent}->{checksum} = DBI::hash($dump, 1); |
83 |
|
|
84 |
# 3. good ol' crc32??? |
# 3. good ol' crc32??? |
85 |
$self->{node}->{$descent}->{checksum} = crc32($dump); |
#$self->{node}->{$descent}->{checksum} = crc32($dump); |
86 |
|
|
87 |
# 4. some more modern Digest::SHA1 or similar? |
# 4. File::RsyncP::Digest - Perl interface to rsync message digest algorithms |
88 |
|
my $rsDigest = new File::RsyncP::Digest; |
89 |
|
$rsDigest->add($dump); |
90 |
|
my $digest = $rsDigest->digest(); |
91 |
|
$self->{node}->{$descent}->{checksum} = unpack("H*", $digest); |
92 |
|
|
93 |
|
# 5. some more modern Digest::SHA1 or similar? |
94 |
|
|
95 |
# signal good |
# signal good |
96 |
return 1; |
return 1; |