Torus/Map/Outlook.pm

##    ------------------------------------------------------------------------
##    $Id: Files.pm,v 1.2 2003/01/19 02:14:11 joko Exp $
##    ------------------------------------------------------------------------
##    $Log: Files.pm,v $
##    ------------------------------------------------------------------------


package Torus::Map::Outlook;

use strict;
use warnings;

use base qw( DesignPattern::Object );

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


=pod
sub new {
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  #bless $self, "BizWorks::SatelliteMapping";
  my $self = { @_ };
  bless $self, $class;
  return $self;
}
=cut

=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 => 'storage_method:id',
        exclude => [qw( cs )],
      },
      target => {
        #address => 'code:Folder',
        ident => 'property:rid',
      },

    # 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: 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;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26