/[cvs]/nfo/perl/libs/Data/Storage.pod

Diff of /nfo/perl/libs/Data/Storage.pod

Parent Directory | Revision Log | View Patch Patch

-revision 1.1 by joko,
Sun Jan 19 03:13:26 2003 UTC
+revision 1.5 by joko,
Wed Nov 10 08:21:41 2004 UTC
 Line 6
    Data::Storage - Interface for accessing various Storage implementations for Perl in an independent way
- =head1 AIMS
+ =head1 ABSTRACT  ;-)
+    Data Storage
+    "Where is the wisdom? Lost in the knowledge.
+    Where is the knowledge? Lost in the information."
+    - T.S. Eliot
+    "Where is the information? Lost in the data.
+    Where is the data? Lost in the #@$%?!& database."
+    - Joe Celko
+   from: MacPerl: Power and Ease - Chapter 15
+   url: http://www.macperl.com/ptf_book/r/MP/330.Data_Storage.html
+ =head1 INTENTIONS
    - should encapsulate Tangram, DBI, DBD::CSV and LWP:: to access them in an unordinary (more convenient) way ;)
    - introduce a generic layered structure, refactor *SUBLAYER*-stuff, make (e.g.) this possible:
      Perl Data::Storage[DBD::CSV]  ->  Perl LWP::  ->  Internet HTTP/FTP/*  ->  Host Daemon  ->  csv-file
    - provide generic synchronization mechanisms across arbitrary/multiple storages based on ident/checksum
      maybe it's possible to have schema-, structural- and semantical modifications synchronized???
+   - might be similar to http://sourceforge.net/projects/perl-repository
  =head1 SYNOPSIS
- =head2 BASIC ACCESS
+ =head2 ACCESS
- =head2 ADVANCED ACCESS
+   # connect to LDAP
+   my $ldapLocator = Data::Storage::Locator->new(
-   ... via inheritance:
+     ldap => {
+       type => "NetLDAP",
-     use Data::Storage;
+       dsn => "ldap:host=192.168.10.150;binddn='cn=root, o=netfrag.org, c=de';pass=secret",
-     my $proxyObj = new HttpProxy;
+       basedn => "o=netfrag.org, c=de",
-     $proxyObj->{url} = $url;
+       want_transactions => 0,
-     $proxyObj->{payload} = $content;
+       syncable => 1,
-     $self->{storage}->insert($proxyObj);
+     },
+   );
-     use Data::Storage;
+   my $ldapStorage = Data::Storage->new($ldapLocator);
-     my $proxyObj = HttpProxy->new(
+   $ldapStorage->connect();
-       url => $url,
-       payload => $content,
+   # connect to MAPI
-     );
+   my $mapiLocator = Data::Storage::Locator->new(
-     $self->{storage}->insert($proxyObj);
+     outlook => {
+       type => "MAPI",
+       showProfileChooser => $self->{config}->get("mapi_showProfileChooser"),
+       ProfileName => $self->{config}->get("mapi_ProfileName"),
+       ProfilePass => $self->{config}->get("mapi_ProfilePass"),
+       syncable => 1,
+     },
+   );
+   my $mapiStorage = Data::Storage->new($mapiLocator);
+   $mapiStorage->connect();
  =head2 SYNCHRONIZATION
+   This functionality is (in the meanwhile) provided by the Data::Transfer::Sync module.
+ =head3 proposal V1
    my $nodemapping = {
      'LangText' => 'langtexts.csv',
      'Currency' => 'currencies.csv',
-Line 90
+Line 121
      # create new sync object
      my $sync = Data::Transfer::Sync->new(
        storages => {
-         L => $self->{bizWorks}->{backend},
+         L => $self->{storage}->{backend},
-         R => $self->{bizWorks}->{resources},
+         R => $self->{storage}->{resources},
        },
        id_authorities        =>  [qw( L ) ],
        checksum_authorities  =>  [qw( L ) ],
-Line 114
+Line 145
    }
+ =head3 proposal V2
+   # create a new synchronization object
+     my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self );
+   # configure the synchronization-object
+     $sync->configure(
+       source => {
+         storage => {
+           handle => $mapiStorage,
+           #isIdentAuthority => 1,
+           #isChecksumAuthority => 1,
+           #writeProtected => 1,
+         },
+       },
+       target => {
+         storage => {
+           handle => $ldapStorage,
+           #idAuthority => 1,
+           #isChecksumAuthority => 1,
+           #isWriteProtected => 0,
+         },
+       },
+       verbose => 1,
+     );
  =head2 NOTE
-Line 164
+Line 221
  =head1 AUTHORS / COPYRIGHT
-   The Data::Storage module is Copyright (c) 2002 Andreas Motl.
+   The Data::Storage module is Copyright (c) 2002-2004 Andreas Motl.
    All rights reserved.
+   Mail to <andreas.motl (at) ilo.de> for improvements and suggestions.
    You may distribute it under the terms of either the GNU General Public
    License or the Artistic License, as specified in the Perl README file.
+ =head1 CONTRIBUTORS
+   Sebastian Utz <su (at) rotamente.com>
  =head1 ACKNOWLEDGEMENTS
    Larry Wall for Perl, Tim Bunce for DBI, Jean-Louis Leroy for Tangram and Set::Object,
    Sam Vilain for Class::Tangram, Jochen Wiedmann and Jeff Zucker for DBD::CSV & Co.,
    Adam Spiers for MySQL::Diff and all contributors.
  =head1 SUPPORT / WARRANTY
    Data::Storage is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.
-Line 184
+Line 245
  =head1 TODO
+   o interface with Jeff Zucker's AnyData:: modules, e.g. AnyData::Storage::RAM
+   o what about DBD::RAM? (DBD::RAM - a DBI driver for files and data structures)
+   o use DBD::Proxy!
+   o what about DBIx::AnyDBD?
+   o enhance schema information:
+     - DBIx::SystemCatalog
+     - DBIx::SystemCatalog::MSSQL?
+     - Data::Reporter
  =head2 BUGS

 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.5
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.5
-Removed from v.1.1
+Added in v.1.5

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26