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

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

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

revision 1.2 by joko, Sun Dec 1 04:43:25 2002 UTC revision 1.4 by joko, Tue Dec 3 15:54:07 2002 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.4  2002/12/03 15:54:07  joko
10    ##    + {import}-flag is now {prepare}-flag
11    ##
12    ##    Revision 1.3  2002/12/01 22:26:59  joko
13    ##    + minor cosmetics for logging
14    ##
15  ##    Revision 1.2  2002/12/01 04:43:25  joko  ##    Revision 1.2  2002/12/01 04:43:25  joko
16  ##    + mapping deatil entries may now be either an ARRAY or a HASH  ##    + mapping deatil entries may now be either an ARRAY or a HASH
17  ##    + erase flag is used now (for export-operations)  ##    + erase flag is used now (for export-operations)
# Line 210  sub syncNodes { Line 216  sub syncNodes {
216    
217    # import flag means: prepare the source node to be syncable    # import flag means: prepare the source node to be syncable
218    # this is useful if there are e.g. no "ident" or "checksum" columns yet inside a DBI like (row-based) storage    # this is useful if there are e.g. no "ident" or "checksum" columns yet inside a DBI like (row-based) storage
219    if ($self->{args}->{import}) {    if ($self->{args}->{prepare}) {
220      $self->_prepareNode_MetaProperties('source');      $self->_prepareNode_MetaProperties('source');
221      $self->_prepareNode_DummyIdent('source');      $self->_prepareNode_DummyIdent('source');
222      #return;      #return;
# Line 460  sub _syncNodes { Line 466  sub _syncNodes {
466    print "\n" if $self->{verbose};    print "\n" if $self->{verbose};
467        
468    # build user-message from some stats    # build user-message from some stats
469      my $msg = "stats: $tc";      my $msg = "statistics: $tc";
470            
471      if ($tc->{error_per_row}) {      if ($tc->{error_per_row}) {
472        $msg .= "\n";        $msg .= "\n";
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed