libs/Torus/API.pm

package Torus::API;

use strict;
use warnings;

# load configuration-data from ini-file
BEGIN {
  use loadConfig;
}

use Torus::Core;
use Data::Dumper;


sub sendContact {
  my $modulename = shift;
  my $sourceFolderName = shift;
  my $data = shift;

#  print Dumper($data);

  my $data_transfer;

  foreach my $key (sort keys %{$data}) {
    my $value = $data->{$key};
    #print $key, ": ", $value, "\n";
    next if (!$value);

    $data_transfer->{$key} = $value;
  }


# V2: 2003-01-06 - dynamic target container configuration
  my $folderMapping = $config->get("folders_map");
  my $container;
  # 1. use default
  $container = $folderMapping->{_default};
  # 2. try to determine target-container by mapping currently "use"d folder against ini-configuration
  $container = $folderMapping->{$sourceFolderName} if $folderMapping->{$sourceFolderName};
#  my $basedn = "ou=$container, dc=labnet, dc=de";
  my $basedn = "ou=$container, o=netfrag.org, c=de";
  

  return Torus::Core::addItem('MapiContact', $data_transfer, $basedn);

}

1;
1	joko	1.1	package Torus::API;
2
3			use strict;
4			use warnings;
5
6			# load configuration-data from ini-file
7			BEGIN {
8			use loadConfig;
9			}
10
11			use Torus::Core;
12			use Data::Dumper;
13
14
15			sub sendContact {
16			my $modulename = shift;
17			my $sourceFolderName = shift;
18			my $data = shift;
19
20			# print Dumper($data);
21
22			my $data_transfer;
23
24			foreach my $key (sort keys %{$data}) {
25			my $value = $data->{$key};
26			#print $key, ": ", $value, "\n";
27			next if (!$value);
28
29			$data_transfer->{$key} = $value;
30			}
31
32
33			# V2: 2003-01-06 - dynamic target container configuration
34			my $folderMapping = $config->get("folders_map");
35			my $container;
36			# 1. use default
37			$container = $folderMapping->{_default};
38			# 2. try to determine target-container by mapping currently "use"d folder against ini-configuration
39			$container = $folderMapping->{$sourceFolderName} if $folderMapping->{$sourceFolderName};
40	joko	1.2	# my $basedn = "ou=$container, dc=labnet, dc=de";
41			my $basedn = "ou=$container, o=netfrag.org, c=de";
42
43	joko	1.1
44			return Torus::Core::addItem('MapiContact', $data_transfer, $basedn);
45
46			}
47
48			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26