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

Diff of /nfo/perl/libs/Data/Transfer/Sync/Compare/Checksum.pm

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

revision 1.1 by joko, Sun Feb 9 05:10:13 2003 UTC revision 1.2 by joko, Tue Feb 11 09:53:07 2003 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.2  2003/02/11 09:53:07  joko
10    ##    + metadata-structure-change, fixed some code here
11    ##
12  ##    Revision 1.1  2003/02/09 05:10:13  joko  ##    Revision 1.1  2003/02/09 05:10:13  joko
13  ##    + initial commit  ##    + initial commit
14  ##  ##
# Line 79  sub _readChecksum { Line 82  sub _readChecksum {
82    # trace    # trace
83      #print "desc: $descent", "\n";      #print "desc: $descent", "\n";
84      #print Dumper($self);      #print Dumper($self);
85        #print Dumper($self->{meta}->{$descent});
86      #exit;      #exit;
87    
88    # get checksum for current entry    # get checksum for current entry
89      # TODO: don't have the checksum column/property hardcoded as "cs" here, make this configurable somehow      # TODO: don't have the checksum column/property hardcoded as "cs" here, make this configurable somehow
90      if ($self->{options}->{$descent}->{storage}->{isChecksumAuthority}) {      if ($self->{meta}->{$descent}->{isChecksumAuthority}) {
91        $self->_calcChecksum($descent);        $self->_calcChecksum($descent);
92      } else {      } else {
93        $self->{node}->{$descent}->{checksum} = $self->{node}->{$descent}->{payload}->{cs};        $self->{node}->{$descent}->{checksum} = $self->{node}->{$descent}->{payload}->{cs};
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed