Настройка адресных книг CommuniGate Pro

Настройка адресных книг CommuniGate Pro: 11 комментариев

1. А как сделать, чтобы эти адресные книги отображались в Outlook через mapi-connector?

   Ответить

   1. Добрый день! Насколько я понял из документации – никак 🙁 Адресная книга отображается только в веб клиенте. Мой ответ на абсолютную истину не претендует, но, по крайней мере в быстром доступе в документации я не нашел какого-то решения по отображению адресных книг в Outlook. В ходе локальных экспериментов на стендах тоже не нашел какого-то обходного решения.

      Ответить

   2. В версии 6.3.16 и обновленном MAPI коннекторе есть возможность указания поддерева(адресной книги) которую можно создать на удаленном томе, указав LDAP сервер AD.
      В более старых версиях такая возможность тоже заявлена https://communigate.ru/CommuniGatePro/russian/Directory.html#RemoteRoot

      Ответить

      1. Добрый день! Спасибо за обратную связь! В ближайшее время постраюсь дополнить статью.

         Ответить

2. Решение по адресной книге (да костыльное но рабочее):
   Для этой задачи есть скрипт, который можно скачать в репозитории: https://www.communigate.ru/main/purchase/scriptrepository.html

   sweepMailboxes.pl – Удаляем почтовые сообщения удовлетворяющие шаблону у всех пользователей. Полезен если много аккаунтов поражено вирусом или если случайно отправили что-то всем пользователям (через all@).

   Ответить

3. Ошибся кометном выше – по mapi:
   #!/usr/bin/perl -w
   #
   # ldapMerge.pl
   #
   # A script for merging several Directory branches (possible on
   # different servers) into one to use as address book.
   #
   # Please mail your comments to

   use Net::LDAP;
   use strict;

   #
   # You should redefine these values
   #

   my $TargetServerAddress = ‘10.3.8.1’; # You should redefine these values
   my $TargetServerLogin = ‘postmaster’;
   my $TargetServerPassword = ‘pass’;
   my $TargetServerBaseDN = ‘o=common_addressbook’;

   my @Sources = (

   { address => ‘10.3.1.216’,
   bindDN => ‘postmaster’,
   password => ‘admin’,
   base => ‘cn=d.dom’
   },
   { address => ‘10.3.1.216’,
   bindDN => ‘postmaster’,
   password => ‘admin’,
   base => ‘cn=somedom.ru’
   },

   );

   my @attributesToReturn = qw/
   mail
   cn
   sn
   description
   telephoneNumber
   l st street ou title
   postalAddress postalCode
   o
   givenName
   initials
   uid
   mobile
   photo
   jpegPhoto
   userCertificate
   displayName
   /;

   #
   # END of user customiseable parameters
   #

   #print “Started\n”;

   my %cgpData;
   my %extData;
   my $result;

   foreach my $ref (@Sources) {
   print “Reading from external LDAP server at $ref->{address} $ref->{base}\n”;
   my $eldap = Net::LDAP->new($ref->{address}, port=>389)
   || die “can’t connect to $ref->{address} via LDAP: $@”;

   $result=$eldap->bind($ref->{bindDN},password=>$ref->{password} );
   $result && $result->code && die “Can’t bind as $ref->bindDN: “.$result->error;

   my @args = (
   base => $ref->{base},
   scope => ‘sub’,
   filter => ‘(&(objectClass=inetOrgPerson)(mail=*)(!(|(objectClass=CommuniGateNamedTask)(objectClass=CommuniGateGroup)(objectClass=CommuniGateMailList)(objectClass=CommuniGateForwarder))))’,
   attrs => \@attributesToReturn,
   );
   my $cnt = 0;
   my $mesg = $eldap->search( @args );
   $mesg->code && print “search failed: “.$mesg->error.”\n”;
   foreach my $entry ($mesg->entries) {
   $extData{ makeDN($entry) } = $entry;
   ++$cnt;
   }
   $eldap->unbind();
   print ” $cnt records have been read\n”;
   }

   my $ldap = Net::LDAP->new($TargetServerAddress, port=>389)
   || die “can’t connect to $TargetServerAddress via LDAP: $@”;

   $result=$ldap->bind($TargetServerLogin,password=>$TargetServerPassword );
   $result && $result->code && die “Can’t bind as $TargetServerLogin: “.$result->error;

   $result = $ldap->add ( $TargetServerBaseDN , attrs => [ ou => “address book”, objectClass => [ “top”,”organizationalUnit” ] ] );

   {
   print “Reading from CGPro at $TargetServerAddress\n”;
   my @args = (
   base => $TargetServerBaseDN,
   scope => ‘sub’,
   filter => ‘(objectClass=*)’,
   );
   my $cnt = 0;
   my $mesg = $ldap->search( @args );
   $mesg->code && print “search failed: “.$mesg->error.”\n”;
   foreach my $entry ($mesg->entries) {
   $cgpData{ $entry->dn() } = $entry;
   ++$cnt;
   }
   print ” $cnt records have been read\n”;
   }

   {
   my $cntAdd = 0;
   my $cntUpd = 0;
   foreach my $cdn (keys %extData) {
   my $dn = “uid=$cdn,$TargetServerBaseDN”;
   unless(exists $cgpData{$dn}) {
   print “adding $dn\n”;
   my $CreateArray = [
   objectClass => [ “top”, “person”, “organizationalPerson”, “inetOrgPerson” ],
   ];
   foreach my $attr ( $extData{$cdn}->attributes ) {
   push(@$CreateArray,$attr,$extData{$cdn}->get_value($attr));
   }
   $result = $ldap->add ( $dn , attrs => [@$CreateArray] );
   if($result->code) {
   print “Can’t add $dn: “.$result->error.”\n”;
   } else {
   ++$cntAdd;
   }
   } else {
   my %changes;
   foreach my $attr ( $extData{$cdn}->attributes ) {
   next if($attr eq ‘uid’);
   my $v = $extData{$cdn}->get_value($attr);
   my $v2 = $cgpData{$dn}->get_value($attr);
   if(!defined($v2) || $v2 ne $v) {
   $changes{$attr} = $v;
   }
   }
   if(%changes) {
   print “updating $dn\n”;
   $result = $ldap->modify ( $dn, replace => { %changes } );
   if($result->code) {
   print “Can’t update $dn: “.$result->error.”\n”;
   } else {
   ++$cntUpd;
   }
   }
   }
   }
   print ” $cntAdd records have been added, $cntUpd records have been updated\n”;
   }

   {
   my $cntDel = 0;
   foreach my $dn (keys %cgpData) {
   $dn=~/uid=(.*),$TargetServerBaseDN/;
   my $cdn = $1;
   unless(exists $extData{$cdn}) {
   print “deleting $dn\n”;
   $cgpData{$dn}->delete();
   $result = $cgpData{$dn}->update ( $ldap );
   if($result->code) {
   print “Can’t delete $dn: “.$result->error.”\n”;
   } else {
   ++$cntDel;
   }
   }
   }
   print ” $cntDel records have been deleted\n”;
   }

   $ldap->unbind();
   print “Done\n”;

   exit(0);

   sub makeDN {
   my ($entry) = @_;
   my $v = ($entry->get_value(‘cn’) ne ‘none’ ? $entry->get_value(‘cn’).’ ‘ : ”);
   return $v.join(” “,$entry->get_value(‘mail’));
   }

   Ответить

   1. Денис, спасибо за комментарий! В целом да – как один из вариантов вполне себе имеет место быть. Единственный нюанс, который я тут вижу – это синхронизация данных. Например, smtp адрес у пользователя в AD может поменяться. Судя по коду, тут предусмотрена какая-то логика обновления, но, честно, я её не тестировал. Или у вас уже по крону запускается этот скрипт и проблем при обновлении вы не испытывали?

      Ответить

      1. Да скрипт нужно по крону запускать периодически

         Ответить

   2. Всё супер Денис, я настроил первый сервер – мой тестовый DC на MS, второй сервер – он же. а сервер приёмник – мой CommGatePro. Единственно сделал bind под домен админом т.к. тестовый стенд мне было удобно. В результате работы у меня скрипт очистил AD полностью, постирав пользователей, а в адресную книгу CommGatePro – никого не внёс)).

      Ответить

4. Не увидел в статье решения для кол-ва записей в адресной книге больше 1000. Не все имена отображаются 🙁

   Ответить

   1. Добрый день нашлось ли решения по данной проблеме?

      Ответить