libs/Torus/API.pm

##    ------------------------------------------------------------------------
##    $Id: Files.pm,v 1.2 2003/01/19 02:14:11 joko Exp $
##    ------------------------------------------------------------------------
##    $Log: Files.pm,v $
##    ------------------------------------------------------------------------


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