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