/[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.7 by joko, Fri Feb 21 08:01:11 2003 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.7  2003/02/21 08:01:11  joko
10    ##    debugging, logging
11    ##    renamed module
12    ##
13  ##    Revision 1.6  2003/02/14 14:03:49  joko  ##    Revision 1.6  2003/02/14 14:03:49  joko
14  ##    + logging, debugging  ##    + logging, debugging
15  ##    - refactored code to sister module  ##    - refactored code to sister module
# Line 86  use mixin::with qw( Data::Transfer::Sync Line 90  use mixin::with qw( Data::Transfer::Sync
90    
91  use Data::Dumper;  use Data::Dumper;
92    
93  use misc::HashExt;  #use misc::HashExt;
94    use Hash::Serializer;
95  use Data::Compare::Struct qw( getDifference isEmpty );  use Data::Compare::Struct qw( getDifference isEmpty );
96  use Data::Storage::Container;  use Data::Storage::Container;
97  use DesignPattern::Object;  use DesignPattern::Object;
# Line 152  sub _run { Line 157  sub _run {
157    $logger->debug( __PACKAGE__ . "->_run" );    $logger->debug( __PACKAGE__ . "->_run" );
158    
159    # for statistics    # for statistics
160    my $tc = OneLineDumpHash->new( {} );    my $tc = Hash::Serializer->new( {} );
161    my $results;    my $results;
162        
163    # set of objects is already in $self->{args}    # set of objects is already in $self->{args}
# Line 424  sub _run { Line 429  sub _run {
429            
430      # todo!!!      # todo!!!
431      #sysevent( { usermsg => $msg, level => $level }, $taskEvent );      #sysevent( { usermsg => $msg, level => $level }, $taskEvent );
432      $logger->info( __PACKAGE__ . "->_run: $msg" );      #$logger->info( __PACKAGE__ . "->_run: $msg" );
433        $logger->info($msg . "\n");
434    
435    return $tc;    return $tc;
436    
# Line 585  sub _prepareNode_DummyIdent { Line 591  sub _prepareNode_DummyIdent {
591      $i++;      $i++;
592    }    }
593    
594    print "\n" if $self->{verbose};    #print "\n" if $self->{verbose};
595        
596    if (!$i) {    if (!$i) {
597      $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.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed