/[cvs]/nfo/perl/libs/Data/Storage/Container.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Container.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by joko, Fri Jun 6 03:26:24 2003 UTC revision 1.11 by joko, Wed Jun 25 22:52:58 2003 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.11  2003/06/25 22:52:58  joko
7    #  fix:!? add storage in any case
8    #
9  #  Revision 1.10  2003/06/06 03:26:24  joko  #  Revision 1.10  2003/06/06 03:26:24  joko
10  #  + sub existsStorage  #  + sub existsStorage
11  #  #
# Line 191  sub initStorage { Line 194  sub initStorage {
194    # TODO: do below (after 'testAvailability' and 'testIntegrity') again!!!    # TODO: do below (after 'testAvailability' and 'testIntegrity') again!!!
195    #$storage->connect();    #$storage->connect();
196    
197      $self->addStorage($name, $storage);
198    
199    my $log_prefix = __PACKAGE__ . "->initStorage: ";    my $log_prefix = __PACKAGE__ . "->initStorage: ";
200    $log_prefix .= "dsn=\"$self->{locator}->{$name}->{dsn}\"" if $self->{locator}->{$name}->{dsn};    $log_prefix .= "dsn=\"$self->{locator}->{$name}->{dsn}\"" if $self->{locator}->{$name}->{dsn};
201    
# Line 199  sub initStorage { Line 204  sub initStorage {
204      $locator->{status}->{availability} = $storage->testAvailability();      $locator->{status}->{availability} = $storage->testAvailability();
205      if ( !$storage->testAvailability() ) {      if ( !$storage->testAvailability() ) {
206        $logger->error( "$log_prefix: testAvailability failed" );        $logger->error( "$log_prefix: testAvailability failed" );
207          return;
208      }      }
209    }    }
210                        
# Line 209  sub initStorage { Line 215  sub initStorage {
215      # actions if integrity fails      # actions if integrity fails
216      if (!$locator->{status}->{integrity}) {      if (!$locator->{status}->{integrity}) {
217        $logger->error( "$log_prefix: testIntegrity failed" );        $logger->error( "$log_prefix: testIntegrity failed" );
218          return;
219      }      }
220    }    }
221    
# Line 225  sub initStorage { Line 232  sub initStorage {
232      if ( !@{$storage->getChildNodes()} ) {      if ( !@{$storage->getChildNodes()} ) {
233        $locator->{status}->{empty} = 1;        $locator->{status}->{empty} = 1;
234        $logger->warning( "$log_prefix: Storage is empty.");        $logger->warning( "$log_prefix: Storage is empty.");
235        #return;        return;
236      }      }
237    }    }
238    
# Line 248  sub initStorage { Line 255  sub initStorage {
255    
256    #$self->{storage}->{$name} = $storage;    #$self->{storage}->{$name} = $storage;
257    #print "add storage: $name", "\n";    #print "add storage: $name", "\n";
258    $self->addStorage($name, $storage);    #$self->addStorage($name, $storage);
259    
260    return 1;    return 1;
261        
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed