/[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.7 by joko, Fri Feb 21 08:00:24 2003 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.7  2003/02/21 08:00:24  joko
10    ##    debugging
11    ##
12  ##    Revision 1.6  2003/02/14 12:58:47  joko  ##    Revision 1.6  2003/02/14 12:58:47  joko
13  ##    + re-enabled the erase-mechanism  ##    + re-enabled the erase-mechanism
14  ##  ##
# Line 151  sub syncNodes { Line 154  sub syncNodes {
154    my $self = shift;    my $self = shift;
155    my $args = shift;    my $args = shift;
156    
157    $logger->notice( "==========================   " . __PACKAGE__ . "->syncNodes   ==============");    #$logger->notice( "==========================   " . __PACKAGE__ . "->syncNodes   ==============");
158    $logger->debug( __PACKAGE__ . "->syncNodes: starting" );    $logger->debug( __PACKAGE__ . "->syncNodes: starting" );
159    
160  #print Dumper($self);  #print Dumper($self);
# Line 242  sub syncNodes { Line 245  sub syncNodes {
245      #print Dumper($self);      #print Dumper($self);
246      #exit;      #exit;
247    
248    $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:
249      $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}]" );
250      
251      # V2:
252      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}]";
253      #my $header = ("~.." x 7) . "  " . $what . "  " . ("~.." x 4);
254      #my $header = ("= " x 7) . "  " . $what . "  " . ("= " x 4);
255      #my $header = ("~=-_-=" x 3) . "  " . $what . "  " . ("~=-_-=" x 4);
256      my $header = ("_-=~=-" x 4) . "  " . $what . "  " . ("_-=~=-" x 4);
257      $logger->notice($header);
258    
259    
260    return if !$self->buildFieldmapping();    return if !$self->buildFieldmapping();
261    return if !$self->_touchNodeSet();    return if !$self->_touchNodeSet();
# Line 309  sub _tellWhatIWillDo { Line 322  sub _tellWhatIWillDo {
322  EOT  EOT
323        
324        
325    $logger->notice( $ql );    chomp($ql);
326      $logger->info($ql);
327        
328    #exit;    #exit;
329    return;    return;
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed