/[cvs]/nfo/perl/scripts/outlook2ldap/etc/Torus/Map/Outlook.pm
ViewVC logotype

Diff of /nfo/perl/scripts/outlook2ldap/etc/Torus/Map/Outlook.pm

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

revision 1.2 by joko, Sun Jan 19 03:32:39 2003 UTC revision 1.3 by joko, Mon Jan 20 16:25:41 2003 UTC
# Line 2  Line 2 
2  ##    $Id$  ##    $Id$
3  ##    ------------------------------------------------------------------------  ##    ------------------------------------------------------------------------
4  ##    $Log$  ##    $Log$
5    ##    Revision 1.3  2003/01/20 16:25:41  joko
6    ##    - removed old code (object-constructor)
7    ##    + introduced new property for mapping-declaration: "autocreateFolders": should ldap-ou's be created automagically?
8    ##    + modified source-ident: it's the "EntryID" by now - FIXME: use a 'rule-built-dn' here as source-identifier!
9    ##
10  ##    Revision 1.2  2003/01/19 03:32:39  joko  ##    Revision 1.2  2003/01/19 03:32:39  joko
11  ##    + new proposal for passing metadata-information to 'Data::Transfer::Sync'  ##    + new proposal for passing metadata-information to 'Data::Transfer::Sync'
12  ##  ##
# Line 18  use base qw( DesignPattern::Object ); Line 23  use base qw( DesignPattern::Object );
23  use Data::Transform::Map;  use Data::Transform::Map;
24  use Data::Dumper;  use Data::Dumper;
25    
   
 =pod  
 sub new {  
   my $invocant = shift;  
   my $class = ref($invocant) || $invocant;  
   #bless $self, "BizWorks::SatelliteMapping";  
   my $self = { @_ };  
   bless $self, $class;  
   return $self;  
 }  
 =cut  
   
26  =pod  =pod
27  sub Folder {  sub Folder {
28    my $self = shift;    my $self = shift;
# Line 55  sub ContactItem { Line 48  sub ContactItem {
48      # metadata on node-level      # metadata on node-level
49        source => {        source => {
50          #nodeType => 'ContactItem',          #nodeType => 'ContactItem',
51          ident => 'storage_method:id',          ident => 'property:EntryID',
52          exclude => [qw( cs )],          exclude => [qw( cs )],
53        },        },
54        target => {        target => {
55          #address => 'code:Folder',          #address => 'code:Folder',
56          ident => 'property:rid',          #ident => 'property:rid',
57            ident => 'code:dn',
58            autocreateFolders => 1,
59        },        },
60    
61      # metadata on field-level      # metadata on field-level
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed