/[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.1 by joko, Sat Jan 18 18:20:45 2003 UTC revision 1.2 by joko, Sun Jan 19 03:34:59 2003 UTC
# Line 4  Line 4 
4  ##    $Id$  ##    $Id$
5  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
6  ##    $Log$  ##    $Log$
7    ##    Revision 1.2  2003/01/19 03:34:59  joko
8    ##    + new command-line-arguments
9    ##
10  ##    Revision 1.1  2003/01/18 18:20:45  joko  ##    Revision 1.1  2003/01/18 18:20:45  joko
11  ##    + initial check-in  ##    + initial check-in
12  ##  ##
# Line 20  BEGIN { Line 23  BEGIN {
23    #require "$Bin/use_libs.pl";    #require "$Bin/use_libs.pl";
24  }  }
25    
26    use Tie::IxHash;
27    
28    
29  use lib qw( ../libs ../etc C:\home\amo\develop\netfrag.org\nfo\perl\libs );  use lib qw( ../libs ../etc C:\home\amo\develop\netfrag.org\nfo\perl\libs );
30  use Torus::Logger;  use Torus::Logger;
# Line 109  sub getoptions { Line 114  sub getoptions {
114    
115    GetOptions(    GetOptions(
116      'source=s' => \$self->{opt}->{source},      'source=s' => \$self->{opt}->{source},
117      'node=s' => \$self->{opt}->{node},      'source-type=s' => \$self->{opt}->{'source-type'},
118        'source-node=s' => \$self->{opt}->{'source-node'},
119      'target=s' => \$self->{opt}->{target},      'target=s' => \$self->{opt}->{target},
120        'target-node=s' => \$self->{opt}->{'target-node'},
121      'action=s' => \$self->{opt}->{action},      'action=s' => \$self->{opt}->{action},
122      'mapping=s' => \$self->{opt}->{mapping},      'mapping-module=s' => \$self->{opt}->{'mapping-module'},
123      'prepare' => \$self->{opt}->{prepare},      'prepare' => \$self->{opt}->{prepare},
124      'fresh' => \$self->{opt}->{fresh},      'fresh' => \$self->{opt}->{fresh},
125      'help' => \&usage,      'help' => \&usage,
# Line 177  sub run { Line 184  sub run {
184        $erase = 1;        $erase = 1;
185        #$import = 1;        #$import = 1;
186      }      }
187      $self->{process}->startSync({  
188        source => $self->{opt}->{source},  
189        source_node => $self->{opt}->{node},  #print Dumper($self->{opt});
190        target => $self->{opt}->{target},  #exit;
191        mode => $mode,  
192        erase => $erase,      my %syncConfig;
193        import => $import,      tie %syncConfig, 'Tie::IxHash';
194        mapping => $self->{opt}->{mapping},      %syncConfig = (
195        prepare => $self->{opt}->{prepare},        map => {
196      });          moduleName => $self->{opt}->{'mapping-module'},
197          },
198          source => {
199            dbKey => $self->{opt}->{source},
200            nodeType => $self->{opt}->{'source-type'},
201            nodeName => $self->{opt}->{'source-node'},
202          },
203          target => {
204            dbKey => $self->{opt}->{target},
205            nodeName => $self->{opt}->{'target-node'},
206          },
207          process => {
208            mode => $mode,
209            erase => $erase,
210            import => $import,
211            prepare => $self->{opt}->{prepare},
212          },
213        );
214    
215    #print Dumper(\%syncConfig);
216    
217        $self->{process}->startSync( \%syncConfig );
218    
219  =pod  =pod
220    } else {    } else {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed