/[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.7 by joko, Fri Dec 13 21:49:34 2002 UTC revision 1.9 by jonen, Mon Dec 16 07:02:34 2002 UTC
# Line 6  Line 6 
6  ##  ##
7  ##    ----------------------------------------------------------------------------------------  ##    ----------------------------------------------------------------------------------------
8  ##    $Log$  ##    $Log$
9    ##    Revision 1.9  2002/12/16 07:02:34  jonen
10    ##    + added comment
11    ##
12    ##    Revision 1.8  2002/12/15 02:03:09  joko
13    ##    + fixed logging-messages
14    ##    + additional metadata-checks
15    ##
16  ##    Revision 1.7  2002/12/13 21:49:34  joko  ##    Revision 1.7  2002/12/13 21:49:34  joko
17  ##    + sub configure  ##    + sub configure
18  ##    + sub checkOptions  ##    + sub checkOptions
# Line 319  sub syncNodes { Line 326  sub syncNodes {
326        
327    # check partners/nodes: does partner exist / is node available?    # check partners/nodes: does partner exist / is node available?
328    foreach my $partner (keys %{$self->{meta}}) {    foreach my $partner (keys %{$self->{meta}}) {
329      next if $self->{meta}->{$partner}->{storage}->{locator}->{type} eq 'DBI';    # for DBD::CSV - re-enable for others      
330        # 1. check partners & storages
331        if (!$self->{meta}->{$partner}) {
332          $logger->critical( __PACKAGE__ . "->syncNodes: Could not find partner '$partner' in configuration metadata." );
333          return;
334        }
335    
336        my $dbkey = $self->{meta}->{$partner}->{dbkey};
337    
338        if (!$self->{meta}->{$partner}->{storage}) {
339          $logger->critical( __PACKAGE__ . "->syncNodes: Could not access storage of partner '$partner' (named '$dbkey'), looks like a configuration-error." );
340          return;
341        }
342        
343        # TODO:
344        # 2. check if partners (and nodes?) are actually available....
345        # eventually pre-check mode of access-attempt (read/write) here to provide an "early-croak" if possible
346        
347        # 3. check nodes
348        next if $self->{meta}->{$partner}->{storage}->{locator}->{type} eq 'DBI';    # HACK for DBD::CSV - re-enable for others
349        # get node-name
350      my $node = $self->{meta}->{$partner}->{node};      my $node = $self->{meta}->{$partner}->{node};
351      if (!$self->{meta}->{$partner}->{storage}->existsChildNode($node)) {      if (!$self->{meta}->{$partner}->{storage}->existsChildNode($node)) {
352        $logger->critical( __PACKAGE__ . "->syncNodes: Could not reach \"$node\" at \"$partner\"." );        $logger->critical( __PACKAGE__ . "->syncNodes: Could not reach node \"$node\" at partner \"$partner\"." );
353        return;        return;
354      }      }
355        
356    }    }
357    
358    # TODO:    # TODO:
# Line 620  sub _syncNodes { Line 648  sub _syncNodes {
648  }  }
649    
650    
651    # refactor this as some core-function to do a generic dump resolving data-encapsulations of e.g. Set::Object
652  sub _dumpCompact {  sub _dumpCompact {
653    my $self = shift;    my $self = shift;
654    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed