/[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.8 by joko, Sun Dec 15 02:03:09 2002 UTC revision 1.10 by joko, Thu Dec 19 01:07:16 2002 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.10  2002/12/19 01:07:16  joko
10    ##    + fixed output done via $logger
11    ##
12    ##    Revision 1.9  2002/12/16 07:02:34  jonen
13    ##    + added comment
14    ##
15  ##    Revision 1.8  2002/12/15 02:03:09  joko  ##    Revision 1.8  2002/12/15 02:03:09  joko
16  ##    + fixed logging-messages  ##    + fixed logging-messages
17  ##    + additional metadata-checks  ##    + additional metadata-checks
# Line 121  sub prepareOptions { Line 127  sub prepareOptions {
127    $opts->{erase} ||= 0;    $opts->{erase} ||= 0;
128    #$opts->{import} ||= 0;    #$opts->{import} ||= 0;
129        
130    $logger->info( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )");    $logger->notice( __PACKAGE__ . "->prepareOptions( source_node $opts->{source_node} mode $opts->{mode} erase $opts->{erase} prepare $opts->{prepare} )");
131    
132    if (!$opts->{mapping} || !$opts->{mapping_module}) {    if (!$opts->{mapping} || !$opts->{mapping_module}) {
133      $logger->warning( __PACKAGE__ . "->prepareOptions: No mapping supplied - please check key 'mappings' in BizWorks/Config.pm");      $logger->warning( __PACKAGE__ . "->prepareOptions: No mapping supplied - please check key 'mappings' in BizWorks/Config.pm");
# Line 645  sub _syncNodes { Line 651  sub _syncNodes {
651  }  }
652    
653    
654    # refactor this as some core-function to do a generic dump resolving data-encapsulations of e.g. Set::Object
655  sub _dumpCompact {  sub _dumpCompact {
656    my $self = shift;    my $self = shift;
657    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed