/[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.4 by jonen, Wed Dec 4 07:38:07 2002 UTC revision 1.7 by joko, Thu Jan 30 22:21:52 2003 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.7  2003/01/30 22:21:52  joko
7    #  + changed 'connect'-behaviour back to old state
8    #  + renamed log-output (now using 'initializing' instead of 'booting' - corresponding to 'initStorage')
9    #
10    #  Revision 1.6  2003/01/30 21:44:00  joko
11    #  + temporary fix: (FIXME) now connecting to storage on storagehandle-instantiation
12    #
13    #  Revision 1.5  2003/01/19 02:39:57  joko
14    #  + moved 'deep_copy' from module 'libp' to module 'Data::Transform::Deep'
15    #  + preserved order for hashes '$self->{config}' and '$self->{locator}' by using Tie::IxHash
16    #
17  #  Revision 1.4  2002/12/04 07:38:07  jonen  #  Revision 1.4  2002/12/04 07:38:07  jonen
18  #  + deep copy  #  + deep copy
19  #  #
# Line 31  use warnings; Line 42  use warnings;
42  # get logger instance  # get logger instance
43  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
44    
45  use libp qw( deep_copy );  
46    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
47    use Tie::IxHash;
48  use Data::Dumper;  use Data::Dumper;
49    
50    use Data::Transform::Deep qw( deep_copy );
51  use Data::Storage;  use Data::Storage;
52  #use Data::Storage::Locator;  #use Data::Storage::Locator;
53    
# Line 46  sub new { Line 61  sub new {
61    $logger->debug( __PACKAGE__ . "->new( @args )" );    $logger->debug( __PACKAGE__ . "->new( @args )" );
62    
63    my $self = { @_ };    my $self = { @_ };
64    return bless $self, $class;    bless $self, $class;
65      
66      # preserve order of configuration variables
67      #$self->{config} = {};
68      tie %{$self->{config}}, 'Tie::IxHash';
69      tie %{$self->{locator}}, 'Tie::IxHash';
70      
71      return $self;
72  }  }
73    
74  sub addConfig {  sub addConfig {
# Line 116  sub initLocator { Line 138  sub initLocator {
138  sub initLocators {  sub initLocators {
139    my $self = shift;    my $self = shift;
140    foreach (keys %{$self->{config}}) {    foreach (keys %{$self->{config}}) {
141        #print $_, "\n";
142      $self->initLocator($_, $self->{config}->{$_}) if !/^_/;      $self->initLocator($_, $self->{config}->{$_}) if !/^_/;
143    }    }
144    #print "locs: ", Dumper($self->{locator});    #print "locs: ", Dumper($self->{locator});
# Line 132  sub initStorage { Line 155  sub initStorage {
155    my $name = shift;    my $name = shift;
156    
157    my $locator = $self->getLocator($name);    my $locator = $self->getLocator($name);
158    $logger->info( __PACKAGE__ . " is booting storage declared by locator \"$name\"" );    $logger->info( __PACKAGE__ . " is initializing storage declared by locator \"$name\"" );
159    
160    my $storage = Data::Storage->new($locator);    my $storage = Data::Storage->new($locator);
161      
162      # TODO: do below (after 'testAvailability' and 'testIntegrity') again!!!
163      #$storage->connect();
164    
165    my $log_prefix = __PACKAGE__ . "->initStorage: ";    my $log_prefix = __PACKAGE__ . "->initStorage: ";
166    $log_prefix .= "dsn=\"$self->{locator}->{$name}->{dsn}\"" if $self->{locator}->{$name}->{dsn};    $log_prefix .= "dsn=\"$self->{locator}->{$name}->{dsn}\"" if $self->{locator}->{$name}->{dsn};
# Line 202  sub initStorage { Line 228  sub initStorage {
228  sub initStorages {  sub initStorages {
229    my $self = shift;    my $self = shift;
230    foreach (keys %{$self->{locator}}) {    foreach (keys %{$self->{locator}}) {
231        #print $_, "\n";
232      $self->initStorage($_);      $self->initStorage($_);
233    }    }
234  }  }
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed