/[cvs]/nfo/perl/scripts/outlook2ldap/bin/feed.pl
ViewVC logotype

Diff of /nfo/perl/scripts/outlook2ldap/bin/feed.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Sun Jan 19 03:34:59 2003 UTC revision 1.4 by janosch, Thu Jan 23 14:44:35 2003 UTC
# Line 4  Line 4 
4  ##    $Id$  ##    $Id$
5  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
6  ##    $Log$  ##    $Log$
7    ##    Revision 1.4  2003/01/23 14:44:35  janosch
8    ##    Updated lib Path and some ini Fields
9    ##
10    ##    Revision 1.3  2003/01/20 16:29:48  joko
11    ##    + new mechanism to pass configuration-metadata to Torus:
12    ##    >     process => Torus->new(
13    ##    >       config_metadata => { file => '../etc/syncOutlookContacts.ini' },
14    ##    >     )
15    ##       and stuff ....
16    ##
17  ##    Revision 1.2  2003/01/19 03:34:59  joko  ##    Revision 1.2  2003/01/19 03:34:59  joko
18  ##    + new command-line-arguments  ##    + new command-line-arguments
19  ##  ##
# Line 26  BEGIN { Line 36  BEGIN {
36  use Tie::IxHash;  use Tie::IxHash;
37    
38    
39  use lib qw( ../libs ../etc C:\home\amo\develop\netfrag.org\nfo\perl\libs );  use lib qw( ../libs ../etc );
40    use org::netfrag::preambel;
41  use Torus::Logger;  use Torus::Logger;
42  use Torus::Core;  use Torus::Core;
43    
# Line 48  my $logger = Log::Dispatch::Config->inst Line 59  my $logger = Log::Dispatch::Config->inst
59    my $bizWorks;    my $bizWorks;
60    $context->set(    $context->set(
61      app => $bizWorks,      app => $bizWorks,
62      process => Torus::Core->new(),      process => Torus->new(
63          config_metadata => { file => '../etc/syncOutlookContacts.ini' },
64        ),
65      logger => $logger,      logger => $logger,
66      config => { mappings => { 'LdapAddress' => 'xyz' } },      #config => { mappings => { 'LdapAddress' => 'xyz' } },
67        
68    );    );
69  #print Dumper($context);    #print Dumper($context);  
70  #print Dumper($context->{process}->{bizWorks}->{backend});  #print Dumper($context->{process}->{bizWorks}->{backend});
# Line 210  sub run { Line 224  sub run {
224          import => $import,          import => $import,
225          prepare => $self->{opt}->{prepare},          prepare => $self->{opt}->{prepare},
226        },        },
227          metadata => {
228            config => $self->{config_metadata},
229          }
230      );      );
231    
232  #print Dumper(\%syncConfig);  #print Dumper(\%syncConfig);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed