/[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.6 by joko, Fri Feb 14 14:03:49 2003 UTC revision 1.8 by joko, Thu Mar 27 15:31:15 2003 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.8  2003/03/27 15:31:15  joko
10    ##    fixes to modules regarding new namespace(s) below Data::Mungle::*
11    ##
12    ##    Revision 1.7  2003/02/21 08:01:11  joko
13    ##    debugging, logging
14    ##    renamed module
15    ##
16  ##    Revision 1.6  2003/02/14 14:03:49  joko  ##    Revision 1.6  2003/02/14 14:03:49  joko
17  ##    + logging, debugging  ##    + logging, debugging
18  ##    - refactored code to sister module  ##    - refactored code to sister module
# Line 86  use mixin::with qw( Data::Transfer::Sync Line 93  use mixin::with qw( Data::Transfer::Sync
93    
94  use Data::Dumper;  use Data::Dumper;
95    
96  use misc::HashExt;  #use misc::HashExt;
97  use Data::Compare::Struct qw( getDifference isEmpty );  use Hash::Serializer;
98    use Data::Mungle::Compare::Struct qw( getDifference isEmpty );
99  use Data::Storage::Container;  use Data::Storage::Container;
100  use DesignPattern::Object;  use DesignPattern::Object;
101  use libdb qw( quotesql );  use libdb qw( quotesql );
# Line 152  sub _run { Line 160  sub _run {
160    $logger->debug( __PACKAGE__ . "->_run" );    $logger->debug( __PACKAGE__ . "->_run" );
161    
162    # for statistics    # for statistics
163    my $tc = OneLineDumpHash->new( {} );    my $tc = Hash::Serializer->new( {} );
164    my $results;    my $results;
165        
166    # set of objects is already in $self->{args}    # set of objects is already in $self->{args}
# Line 424  sub _run { Line 432  sub _run {
432            
433      # todo!!!      # todo!!!
434      #sysevent( { usermsg => $msg, level => $level }, $taskEvent );      #sysevent( { usermsg => $msg, level => $level }, $taskEvent );
435      $logger->info( __PACKAGE__ . "->_run: $msg" );      #$logger->info( __PACKAGE__ . "->_run: $msg" );
436        $logger->info($msg . "\n");
437    
438    return $tc;    return $tc;
439    
# Line 585  sub _prepareNode_DummyIdent { Line 594  sub _prepareNode_DummyIdent {
594      $i++;      $i++;
595    }    }
596    
597    print "\n" if $self->{verbose};    #print "\n" if $self->{verbose};
598        
599    if (!$i) {    if (!$i) {
600      $logger->warning( __PACKAGE__ . "->_prepareNode_DummyIdent: no nodes touched" );      $logger->warning( __PACKAGE__ . "->_prepareNode_DummyIdent: no nodes touched" );
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed