--- nfo/perl/scripts/outlook2ldap/bin/feed.pl 2003/01/19 03:34:59 1.2 +++ nfo/perl/scripts/outlook2ldap/bin/feed.pl 2003/01/20 16:29:48 1.3 @@ -1,9 +1,16 @@ #!/usr/bin/perl ## -------------------------------------------------------------------------------- -## $Id: feed.pl,v 1.2 2003/01/19 03:34:59 joko Exp $ +## $Id: feed.pl,v 1.3 2003/01/20 16:29:48 joko Exp $ ## -------------------------------------------------------------------------------- ## $Log: feed.pl,v $ +## Revision 1.3 2003/01/20 16:29:48 joko +## + new mechanism to pass configuration-metadata to Torus: +## > process => Torus->new( +## > config_metadata => { file => '../etc/syncOutlookContacts.ini' }, +## > ) +## and stuff .... +## ## Revision 1.2 2003/01/19 03:34:59 joko ## + new command-line-arguments ## @@ -48,9 +55,12 @@ my $bizWorks; $context->set( app => $bizWorks, - process => Torus::Core->new(), + process => Torus->new( + config_metadata => { file => '../etc/syncOutlookContacts.ini' }, + ), logger => $logger, - config => { mappings => { 'LdapAddress' => 'xyz' } }, + #config => { mappings => { 'LdapAddress' => 'xyz' } }, + ); #print Dumper($context); #print Dumper($context->{process}->{bizWorks}->{backend}); @@ -210,6 +220,9 @@ import => $import, prepare => $self->{opt}->{prepare}, }, + metadata => { + config => $self->{config_metadata}, + } ); #print Dumper(\%syncConfig);