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	joko	1.2	## ------------------------------------------------------------------------
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	joko	1.1	package Torus::Map::Outlook;
9
10			use strict;
11			use warnings;
12
13	joko	1.2	use base qw( DesignPattern::Object );
14
15			use Data::Transform::Map;
16			use Data::Dumper;
17
18
19			=pod
20	joko	1.1	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	joko	1.2	=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	joko	1.1
43
44			sub ContactItem {
45			return {
46	joko	1.2
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	joko	1.1	};
72			}
73
74			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26