/[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.1 by joko, Sat Jan 18 18:29:08 2003 UTC revision 1.2 by joko, Sun Jan 19 03:32:39 2003 UTC
# Line 1  Line 1 
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;
# Line 11  sub new { Line 28  sub new {
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed