Torus/Map/Outlook.pm

##    ------------------------------------------------------------------------
##    $Id: Outlook.pm,v 1.2 2003/01/19 03:32:39 joko Exp $
##    ------------------------------------------------------------------------
##    $Log: Outlook.pm,v $
##    Revision 1.2  2003/01/19 03:32:39  joko
##    + new proposal for passing metadata-information to 'Data::Transfer::Sync'
##
##    ------------------------------------------------------------------------


package Torus::Map::Outlook;

use strict;
use warnings;

use base qw( DesignPattern::Object );

use Data::Transform::Map;
use Data::Dumper;

=pod
sub Folder {
  my $self = shift;
  my $baseMap = shift;
  print Dumper($baseMap);
  exit;
  
  my $sourceFolder = $baseMap->{source};
  my $targetFolder = $sourceFolder;
  print "Mapping MAPI-Folder \"$sourceFolder\" to LDAP-Folder \"$targetFolder\".", "\n";
}
=cut


sub ContactItem {
  return {

    metadata => {
      version => 0.2,
      syncMethod => 'checksum',
    },

    # metadata on node-level
      source => {
        #nodeType => 'ContactItem',
        ident => 'property:EntryID',
        exclude => [qw( cs )],
      },
      target => {
        #address => 'code:Folder',
        #ident => 'property:rid',
        ident => 'code:dn',
        autocreateFolders => 1,
      },

    # metadata on field-level
      fieldmap => Data::Transform::Map->new(
        lookup => 'local',     # local|dsn(csv|xml|ldap)
        rules => [
          { source => 'ckey', target => 'rkey' },
          { source => 'cname', target => 'rval' },
        ],
      ),
  };
}

1;
1	## ------------------------------------------------------------------------
2	## $Id: Outlook.pm,v 1.2 2003/01/19 03:32:39 joko Exp $
3	## ------------------------------------------------------------------------
4	## $Log: Outlook.pm,v $
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;
12
13	use strict;
14	use warnings;
15
16	use base qw( DesignPattern::Object );
17
18	use Data::Transform::Map;
19	use Data::Dumper;
20
21	=pod
22	sub Folder {
23	my $self = shift;
24	my $baseMap = shift;
25	print Dumper($baseMap);
26	exit;
27
28	my $sourceFolder = $baseMap->{source};
29	my $targetFolder = $sourceFolder;
30	print "Mapping MAPI-Folder \"$sourceFolder\" to LDAP-Folder \"$targetFolder\".", "\n";
31	}
32	=cut
33
34
35	sub ContactItem {
36	return {
37
38	metadata => {
39	version => 0.2,
40	syncMethod => 'checksum',
41	},
42
43	# metadata on node-level
44	source => {
45	#nodeType => 'ContactItem',
46	ident => 'property:EntryID',
47	exclude => [qw( cs )],
48	},
49	target => {
50	#address => 'code:Folder',
51	#ident => 'property:rid',
52	ident => 'code:dn',
53	autocreateFolders => 1,
54	},
55
56	# metadata on field-level
57	fieldmap => Data::Transform::Map->new(
58	lookup => 'local', # local\|dsn(csv\|xml\|ldap)
59	rules => [
60	{ source => 'ckey', target => 'rkey' },
61	{ source => 'cname', target => 'rval' },
62	],
63	),
64	};
65	}
66
67	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26