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