/[cvs]/nfo/perl/libs/Data/Transfer/Sync/Core.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Transfer/Sync/Core.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by joko, Sat Jun 19 01:45:08 2004 UTC revision 1.13 by joko, Sat Jun 19 16:53:38 2004 UTC
# Line 8  Line 8 
8  ##  ##
9  ## -------------------------------------------------------------------------  ## -------------------------------------------------------------------------
10  ##    $Log$  ##    $Log$
11    ##    Revision 1.13  2004/06/19 16:53:38  joko
12    ##    fix: handle local checksum only if database is configured with "hasLocalChecksum"
13    ##
14  ##    Revision 1.12  2004/06/19 01:45:08  joko  ##    Revision 1.12  2004/06/19 01:45:08  joko
15  ##    introduced "local checksum"-mechanism  ##    introduced "local checksum"-mechanism
16  ##    moved _dumpCompact to ::Compare::Checksum  ##    moved _dumpCompact to ::Compare::Checksum
# Line 317  sub _run { Line 320  sub _run {
320      #if ( $statOK && (lc $self->{args}->{method} eq 'checksum') ) {      #if ( $statOK && (lc $self->{args}->{method} eq 'checksum') ) {
321      #if ( !$self->{node}->{status}->{new} && (lc $self->{args}->{method} eq 'checksum') ) {      #if ( !$self->{node}->{status}->{new} && (lc $self->{args}->{method} eq 'checksum') ) {
322                
323      # calculate local checksum of source node      # new 2004-06-17: calculate local checksum of source node
324      $self->handleLocalChecksum('source');      # new 2004-06-19: ... only if requested
325        if ($self->{options}->{source}->{storage}->{handle}->{locator}->{hasLocalChecksum}) {
326          $self->handleLocalChecksum('source');
327        }
328            
329      # calculate checksum of source node      # calculate checksum of source node
330        #$self->_calcChecksum('source');        #$self->_calcChecksum('source');
# Line 363  sub _run { Line 369  sub _run {
369        }        }
370    
371        # new 2004-06-17: also check if local checksum is inconsistent        # new 2004-06-17: also check if local checksum is inconsistent
372        if ($self->{node}->{source}->{checksum_local_storage} ne $self->{node}->{source}->{checksum_local_calculated}) {        # new 2004-06-19: ... only if requested
373          if ($self->{options}->{source}->{storage}->{handle}->{locator}->{hasLocalChecksum} and
374            ($self->{node}->{source}->{checksum_local_storage} ne $self->{node}->{source}->{checksum_local_calculated}) ) {
375          $self->{node}->{status}->{dirty_local} = 1;          $self->{node}->{status}->{dirty_local} = 1;
376          $self->{node}->{status}->{dirty} = 1;          $self->{node}->{status}->{dirty} = 1;
377        }        }
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed