/[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.15 by joko, Mon Jan 20 16:58:07 2003 UTC revision 1.16 by joko, Sun Feb 9 04:56:03 2003 UTC
# Line 1  Line 1 
1  ##    ------------------------------------------------------------------------  ## -------------------------------------------------------------------------
2  ##  ##
3  ##    $Id$  ##  $Id$
4  ##  ##
5  ##    Copyright (c) 2002  Andreas Motl <andreas.motl@ilo.de>  ##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
6  ##  ##
7  ##    See COPYRIGHT section in pod text below for usage and distribution rights.  ##  This module is licensed under the same terms as Perl itself.
8  ##  ##
9  ##    ------------------------------------------------------------------------  ## -------------------------------------------------------------------------
10  ##    $Log$  ##  $Log$
11  ##    Revision 1.15  2003/01/20 16:58:07  joko  ##  Revision 1.16  2003/02/09 04:56:03  joko
12  ##    + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface' - both refactored from other - already established - plugin-modules  ##  + modified header
13    ##  + api versioning mechanism
14  ##  ##
15  ##    Revision 1.14  2003/01/19 03:25:54  joko  ##  Revision 1.15  2003/01/20 16:58:07  joko
16  ##    + modified header  ##  + loading new plugin-modules on startup: 'Metadata' and 'StorageInterface'
17    ##     both refactored from other - already established - plugin-modules
18  ##  ##
19  ##    Revision 1.13  2003/01/19 01:23:03  joko  ##  Revision 1.14  2003/01/19 03:25:54  joko
20  ##    + new from Data/Transfer/Sync.pm  ##  + modified header
21  ##    ------------------------------------------------------------------------  ##
22    ##  Revision 1.13  2003/01/19 01:23:03  joko
23    ##  + new from Data/Transfer/Sync.pm
24    ## -------------------------------------------------------------------------
25    
26    
27  package Data::Transfer::Sync;  package Data::Transfer::Sync;
# Line 30  use base qw( DesignPattern::Bridge ); Line 35  use base qw( DesignPattern::Bridge );
35    
36  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
37    
38    use Data::Dumper;
39    
40  # get logger instance  # get logger instance
41  my $logger = Log::Dispatch::Config->instance;  my $logger = Log::Dispatch::Config->instance;
42    
43  sub _init {  sub constructor {
44    my $self = shift;    my $self = shift;
45    $logger->debug( __PACKAGE__ . "->new" );    #print Dumper($self);
46      #exit;
47      $logger->debug( __PACKAGE__ . "->constructor" );
48    $self->load('Core');    $self->load('Core');
49    $self->load('Metadata');    $self->load('Metadata');
50    $self->load('API');    $self->load('API', { method => 'api_constructor' } );
51    $self->load('StorageInterface');    $self->load('StorageInterface');
52      $self->load('Compare::Checksum');
53    $self->configure(@_);    $self->configure(@_);
54  }  }
55    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed