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 |
13 |
|
## + fixed output done via $logger |
14 |
|
## |
15 |
|
## Revision 1.9 2002/12/16 07:02:34 jonen |
16 |
|
## + added comment |
17 |
|
## |
18 |
## Revision 1.8 2002/12/15 02:03:09 joko |
## Revision 1.8 2002/12/15 02:03:09 joko |
19 |
## + fixed logging-messages |
## + fixed logging-messages |
20 |
## + additional metadata-checks |
## + additional metadata-checks |
130 |
$opts->{erase} ||= 0; |
$opts->{erase} ||= 0; |
131 |
#$opts->{import} ||= 0; |
#$opts->{import} ||= 0; |
132 |
|
|
133 |
$logger->info( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )"); |
$logger->notice( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )"); |
134 |
|
|
135 |
if (!$opts->{mapping} || !$opts->{mapping_module}) { |
if (!$opts->{mapping} || !$opts->{mapping_module}) { |
136 |
$logger->warning( __PACKAGE__ . "->prepareOptions: No mapping supplied - please check key 'mappings' in BizWorks/Config.pm"); |
$logger->warning( __PACKAGE__ . "->prepareOptions: No mapping supplied - please check key 'mappings' in BizWorks/Config.pm"); |
654 |
} |
} |
655 |
|
|
656 |
|
|
657 |
|
# refactor this as some core-function to do a generic dump resolving data-encapsulations of e.g. Set::Object |
658 |
sub _dumpCompact { |
sub _dumpCompact { |
659 |
my $self = shift; |
my $self = shift; |
660 |
|
|
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; |