/[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.3 by joko, Mon Jan 20 16:29:48 2003 UTC
# Line 4  Line 4 
4  ##    $Id$  ##    $Id$
5  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
6  ##    $Log$  ##    $Log$
7    ##    Revision 1.3  2003/01/20 16:29:48  joko
8    ##    + new mechanism to pass configuration-metadata to Torus:
9    ##    >     process => Torus->new(
10    ##    >       config_metadata => { file => '../etc/syncOutlookContacts.ini' },
11    ##    >     )
12    ##       and stuff ....
13    ##
14  ##    Revision 1.2  2003/01/19 03:34:59  joko  ##    Revision 1.2  2003/01/19 03:34:59  joko
15  ##    + new command-line-arguments  ##    + new command-line-arguments
16  ##  ##
# Line 48  my $logger = Log::Dispatch::Config->inst Line 55  my $logger = Log::Dispatch::Config->inst
55    my $bizWorks;    my $bizWorks;
56    $context->set(    $context->set(
57      app => $bizWorks,      app => $bizWorks,
58      process => Torus::Core->new(),      process => Torus->new(
59          config_metadata => { file => '../etc/syncOutlookContacts.ini' },
60        ),
61      logger => $logger,      logger => $logger,
62      config => { mappings => { 'LdapAddress' => 'xyz' } },      #config => { mappings => { 'LdapAddress' => 'xyz' } },
63        
64    );    );
65  #print Dumper($context);    #print Dumper($context);  
66  #print Dumper($context->{process}->{bizWorks}->{backend});  #print Dumper($context->{process}->{bizWorks}->{backend});
# Line 210  sub run { Line 220  sub run {
220          import => $import,          import => $import,
221          prepare => $self->{opt}->{prepare},          prepare => $self->{opt}->{prepare},
222        },        },
223          metadata => {
224            config => $self->{config_metadata},
225          }
226      );      );
227    
228  #print Dumper(\%syncConfig);  #print Dumper(\%syncConfig);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed