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

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

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

revision 1.6 by joko, Fri Feb 14 12:58:47 2003 UTC revision 1.9 by joko, Tue May 13 08:16:44 2003 UTC
# Line 1  Line 1 
1    ## -------------------------------------------------------------------------
2    ##
3  ##    $Id$  ##    $Id$
4  ##  ##
5  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>
6  ##  ##
7  ##    See COPYRIGHT section in pod text below for usage and distribution rights.  ##    See COPYRIGHT section in associated pod text
8    ##    or below for usage and distribution rights.
9  ##  ##
10  ##    ----------------------------------------------------------------------------------------  ## -------------------------------------------------------------------------
11  ##    $Log$  ##    $Log$
12    ##    Revision 1.9  2003/05/13 08:16:44  joko
13    ##    minor update: modified header
14    ##
15    ##    Revision 1.8  2003/03/27 15:31:15  joko
16    ##    fixes to modules regarding new namespace(s) below Data::Mungle::*
17    ##
18    ##    Revision 1.7  2003/02/21 08:00:24  joko
19    ##    debugging
20    ##
21  ##    Revision 1.6  2003/02/14 12:58:47  joko  ##    Revision 1.6  2003/02/14 12:58:47  joko
22  ##    + re-enabled the erase-mechanism  ##    + re-enabled the erase-mechanism
23  ##  ##
# Line 45  use mixin::with qw( Data::Transfer::Sync Line 57  use mixin::with qw( Data::Transfer::Sync
57  use Data::Dumper;  use Data::Dumper;
58  use Hash::Merge qw( merge );  use Hash::Merge qw( merge );
59    
60  use Data::Compare::Struct qw( isEmpty );  use Data::Mungle::Compare::Struct qw( isEmpty );
61    
62  # get logger instance  # get logger instance
63  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
# Line 151  sub syncNodes { Line 163  sub syncNodes {
163    my $self = shift;    my $self = shift;
164    my $args = shift;    my $args = shift;
165    
166    $logger->notice( "==========================   " . __PACKAGE__ . "->syncNodes   ==============");    #$logger->notice( "==========================   " . __PACKAGE__ . "->syncNodes   ==============");
167    $logger->debug( __PACKAGE__ . "->syncNodes: starting" );    $logger->debug( __PACKAGE__ . "->syncNodes: starting" );
168    
169  #print Dumper($self);  #print Dumper($self);
# Line 242  sub syncNodes { Line 254  sub syncNodes {
254      #print Dumper($self);      #print Dumper($self);
255      #exit;      #exit;
256    
257    $logger->info( __PACKAGE__ . "->syncNodes: source=$self->{meta}->{source}->{dbKey}/$self->{meta}->{source}->{nodeName} [$self->{meta}->{source}->{nodeType}] $direction_arrow target=$self->{meta}->{target}->{dbKey}/$self->{meta}->{target}->{nodeName} [$self->{meta}->{target}->{nodeType}]" );    # V1:
258      $logger->debug( __PACKAGE__ . "->syncNodes: source=$self->{meta}->{source}->{dbKey}/$self->{meta}->{source}->{nodeName} [$self->{meta}->{source}->{nodeType}] $direction_arrow target=$self->{meta}->{target}->{dbKey}/$self->{meta}->{target}->{nodeName} [$self->{meta}->{target}->{nodeType}]" );
259      
260      # V2:
261      my $what = "$self->{meta}->{source}->{dbKey}/$self->{meta}->{source}->{nodeName} [$self->{meta}->{source}->{nodeType}] $direction_arrow $self->{meta}->{target}->{dbKey}/$self->{meta}->{target}->{nodeName} [$self->{meta}->{target}->{nodeType}]";
262      #my $header = ("~.." x 7) . "  " . $what . "  " . ("~.." x 4);
263      #my $header = ("= " x 7) . "  " . $what . "  " . ("= " x 4);
264      #my $header = ("~=-_-=" x 3) . "  " . $what . "  " . ("~=-_-=" x 4);
265      my $header = ("_-=~=-" x 4) . "  " . $what . "  " . ("_-=~=-" x 4);
266      $logger->notice($header);
267    
268    
269    return if !$self->buildFieldmapping();    return if !$self->buildFieldmapping();
270    return if !$self->_touchNodeSet();    return if !$self->_touchNodeSet();
# Line 309  sub _tellWhatIWillDo { Line 331  sub _tellWhatIWillDo {
331  EOT  EOT
332        
333        
334    $logger->notice( $ql );    chomp($ql);
335      $logger->info($ql);
336        
337    #exit;    #exit;
338    return;    return;
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed