/[cvs]/nfo/perl/scripts/outlook2ldap/libs/Torus/API.pm
ViewVC logotype

Diff of /nfo/perl/scripts/outlook2ldap/libs/Torus/API.pm

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

revision 1.1 by joko, Sat Jan 18 15:38:10 2003 UTC revision 1.3 by joko, Sun Jan 19 03:35:25 2003 UTC
# Line 1  Line 1 
1    ##    ------------------------------------------------------------------------
2    ##    $Id$
3    ##    ------------------------------------------------------------------------
4    ##    $Log$
5    ##    Revision 1.3  2003/01/19 03:35:25  joko
6    ##    + added cvs-header
7    ##
8    ##    ------------------------------------------------------------------------
9    
10    
11  package Torus::API;  package Torus::API;
12    
13  use strict;  use strict;
# Line 37  sub sendContact { Line 47  sub sendContact {
47    $container = $folderMapping->{_default};    $container = $folderMapping->{_default};
48    # 2. try to determine target-container by mapping currently "use"d folder against ini-configuration    # 2. try to determine target-container by mapping currently "use"d folder against ini-configuration
49    $container = $folderMapping->{$sourceFolderName} if $folderMapping->{$sourceFolderName};    $container = $folderMapping->{$sourceFolderName} if $folderMapping->{$sourceFolderName};
50    my $basedn = "ou=$container, dc=labnet, dc=de";  #  my $basedn = "ou=$container, dc=labnet, dc=de";
51      my $basedn = "ou=$container, o=netfrag.org, c=de";
52      
53    
54    return Torus::Core::addItem('MapiContact', $data_transfer, $basedn);    return Torus::Core::addItem('MapiContact', $data_transfer, $basedn);
55    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed