1 |
|
## ------------------------------------------------------------------------ |
2 |
|
## $Id$ |
3 |
|
## ------------------------------------------------------------------------ |
4 |
|
## $Log$ |
5 |
|
## Revision 1.2 2003/01/19 03:32:39 joko |
6 |
|
## + new proposal for passing metadata-information to 'Data::Transfer::Sync' |
7 |
|
## |
8 |
|
## ------------------------------------------------------------------------ |
9 |
|
|
10 |
|
|
11 |
package Torus::Map::Outlook; |
package Torus::Map::Outlook; |
12 |
|
|
13 |
use strict; |
use strict; |
14 |
use warnings; |
use warnings; |
15 |
|
|
16 |
|
use base qw( DesignPattern::Object ); |
17 |
|
|
18 |
|
use Data::Transform::Map; |
19 |
|
use Data::Dumper; |
20 |
|
|
21 |
|
|
22 |
|
=pod |
23 |
sub new { |
sub new { |
24 |
my $invocant = shift; |
my $invocant = shift; |
25 |
my $class = ref($invocant) || $invocant; |
my $class = ref($invocant) || $invocant; |
28 |
bless $self, $class; |
bless $self, $class; |
29 |
return $self; |
return $self; |
30 |
} |
} |
31 |
|
=cut |
32 |
|
|
33 |
|
=pod |
34 |
|
sub Folder { |
35 |
|
my $self = shift; |
36 |
|
my $baseMap = shift; |
37 |
|
print Dumper($baseMap); |
38 |
|
exit; |
39 |
|
|
40 |
|
my $sourceFolder = $baseMap->{source}; |
41 |
|
my $targetFolder = $sourceFolder; |
42 |
|
print "Mapping MAPI-Folder \"$sourceFolder\" to LDAP-Folder \"$targetFolder\".", "\n"; |
43 |
|
} |
44 |
|
=cut |
45 |
|
|
46 |
|
|
47 |
sub ContactItem { |
sub ContactItem { |
48 |
return { |
return { |
49 |
target => 'Adressen', |
|
50 |
source_ident => 'storage_method:id', |
metadata => { |
51 |
target_ident => 'property:rid', |
version => 0.2, |
52 |
details => [ |
syncMethod => 'checksum', |
53 |
[ 'source:ckey' => 'target:rkey' ], |
}, |
54 |
[ 'source:cname' => 'target:rval' ], |
|
55 |
], |
# metadata on node-level |
56 |
|
source => { |
57 |
|
#nodeType => 'ContactItem', |
58 |
|
ident => 'storage_method:id', |
59 |
|
exclude => [qw( cs )], |
60 |
|
}, |
61 |
|
target => { |
62 |
|
#address => 'code:Folder', |
63 |
|
ident => 'property:rid', |
64 |
|
}, |
65 |
|
|
66 |
|
# metadata on field-level |
67 |
|
fieldmap => Data::Transform::Map->new( |
68 |
|
lookup => 'local', # local|dsn(csv|xml|ldap) |
69 |
|
rules => [ |
70 |
|
{ source => 'ckey', target => 'rkey' }, |
71 |
|
{ source => 'cname', target => 'rval' }, |
72 |
|
], |
73 |
|
), |
74 |
}; |
}; |
75 |
} |
} |
76 |
|
|