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 |
## |
## |
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; |
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 |