Адресная книга на OpenLDAP для Outlook’а

Вступление

На предприятии есть файл с контактами сотрудников, заполняемый руками менеджера. Необходимо сделать из него синхронизируемую адресную книгу с адресами и явками для почтовой программы — MS Outlook, The Bat, Mozilla Thunderbird, и.тд

Очень хочется, чтобы она была совместима с «показать весь список» в Oulook, без фильтра.

Распилим задачу на 4 части:

• Настроить OpenLDAP
• Забрать XLS с сервера
• Преобразовать в перевариваемый формат, распарсить
• Удалить старые контакты из книги, положить туда модули

OpenLDAP

Вследствие фривольного обращения со стандартами компанией Microsoft, мы имеем несовместимость показа всех адресов в адресной книге. Поскольку гора к Муххамеду не идет, придется немного подрихтовать OpenLDAP.

С патчем отлично разобрался Victor Sudakov здесь, за что ему огромное админское спасибо.

В качестве операционки на сервере, которая легко может быть виртуальной, скажем, с 8Gb диска и 64Mb памяти, стоит CSS — Calculate Linux Scratch(Gentoo, одним словом), для которой можно сделать свой патч легко и непринужденно.

Пачим

Отступление для тех, кто не хочет заниматься кровавым патчингом — просто подключите мою тестовую репу (не факт, что я буду ее обновлять): Добавляем overlay в /etc/layman/layman.cfg:

overlays  : http://www.gentoo.org/proj/en/overlays/repositories.xml             https://raw.github.com/arrrght/openldap-outlook/master/overlay.xml 

Активируем и синхронизируем:

# layman -S # layman -a openldap-outlook 

Пишем ключики в /etc/portage/package.use:
net-nds/openldap experimental icu slp perl overlays ms-sssvlv

Устанавливаем OpenLDAP

emerge openldap 

Для тех кто любит все делать руками, вот патч(взят здесь):

--- ./openldap-2.4.33/servers/slapd/schema_prep.c.orig    2012-12-07 09:54:56.000000000 +0700 +++ ./openldap-2.4.33/servers/slapd/schema_prep.c    2012-12-07 09:58:10.000000000 +0700 @@ -908,6 +908,7 @@              "DESC 'RFC4519: common supertype of name attributes' "              "EQUALITY caseIgnoreMatch "              "SUBSTR caseIgnoreSubstringsMatch " +            "ORDERING caseIgnoreOrderingMatch "              "SYNTAX 1.3.6.1.4.1.1466.115.121.1.15{32768} )",              NULL, SLAP_AT_ABSTRACT,              NULL, NULL, 

Настройка

Наиболее правильно написана настройка вот здесь — это как раз для тех кто решит серъёзно заняться LDAP-ом. В моем случае все проще — мне просто нужна адресная книга. Почти все я оставил по умочанию в файле /etc/openldap/slapd.conf. Вот он, целиком, безо всяких индексов, и вообще, много чего лишнего:

include         /etc/openldap/schema/core.schema include         /etc/openldap/schema/cosine.schema include         /etc/openldap/schema/inetorgperson.schema include         /etc/openldap/schema/java.schema include         /etc/openldap/schema/openldap.schema include         /etc/openldap/schema/nis.schema include         /etc/openldap/schema/corba.schema include         /etc/openldap/schema/dyngroup.schema include         /etc/openldap/schema/misc.schema include         /etc/openldap/schema/pmi.schema  pidfile         /var/run/openldap/slapd.pid argsfile        /var/run/openldap/slapd.args  modulepath      /usr/lib64/openldap/openldap moduleload      back_passwd.so moduleload      back_ldap.so moduleload      sssvlv.so  database        hdb overlay         sssvlv suffix          "dc=org,dc=com" checkpoint      32      30 rootdn          "cn=Manager,dc=org,dc=com" rootpw          secret directory       /var/lib/openldap-data index   objectClass     eq Маленькая начальая конфигурация, для того, чтобы зайти на LDAP через клиент entry.ldif:  dn: dc=org,dc=com objectClass: dcObject objectClass: organization o: org.com</code>  Записываем этот ldif в базу:  <code>slapadd < entry.ldif</code> Заходим через клиент LdapAdmin и создаем адресную книгу ou=ab,dc=org,dc=com. Вот, это точка, откуда будут забирать адресную книгу клиенты.  <h4>XLS</h4> Проще всего забирать простой утилиткой smbget, поставляемой вместе с samba, парсить утилитой xls2csv. В итоге у меня получился вот такой маленький скрипт getfile.sh:  <source lang="bash"> #!/bin/sh SMBGET=/usr/bin/smbget LDAPSEARCH=/usr/bin/ldapsearch LDAPDELETE=/usr/bin/ldapdelete  rm "temp.xls" ${SMBGET} "smb://domain;user:password@192.168.1.1/Share/Telephones.xls" -o temp.xls xls2csv -c~ -b\' temp.xls > temp.csv  # delete all from ou=ab,dc=org,dc=com  ${LDAPSEARCH} -b "ou=ab,dc=org,dc=com" "(uid=*)" | grep dn: | awk '{print $2}' | ${LDAPDELETE} -Dcn=Manager,dc=org,dc=com -wsecret 

Дальше перловый скрипт, преобразующий csv в нужный ldif файл, примерно такой(написано на скорую руку):

#!/usr/bin/perl use strict; use encoding 'utf8';  open my $fh, "<temp.csv" or die 'Can\'t open file'; open my $fout, ">temp.ldif" or die 'Can\'t write to file';  my $org = ''; my $orgNum = 0; my $div = ''; my $userNum = 1000; my $ouDcDc = 'ou=ab,dc=org,dc=com';  while (my $line = <$fh>) {         my $isNowOrg = 0;         my $email = '';          chomp $line;         my @f = split /~/, $line;          if (!$org || $f[0]=~/\'/){                 $org = clean($f[0]);                 $org =~s/^(.+)\"(.+)\"$/$2/;                 $org = firstUp($org);                 $isNowOrg = 1;                 $orgNum++;         }          $email = clean($f[5]) if $f[5]=~/@/;         $div = firstUp(clean($f[0])) unless $f[1] || $email;          my $name = clean($f[1]);         my $post = clean($f[0]);          my $telNum = clean($f[4]);         $telNum =clean($f[2]) if $orgNum==3;         $telNum =~s/\D/ /g;         $telNum =~s/^\D*//g;         #print "#$telNum#\n";         #$telNum = ~s/\W//g;          my %names = givenName($name);         if ($name && $post && $names{'firstName'}){                 ++$userNum;                 print $fout "dn: uid=user${userNum},${ouDcDc}\n";                 print $fout "uid: user${userNum}\n";                 print $fout "objectClass: posixAccount\nobjectClass: top\nobjectClass: inetOrgPerson\ngidNumber: 1000\n";                 print $fout "uidNumber: ${userNum}\n";                 print $fout "givenName: ", $names{'firstName'}, "\n";                 print $fout "initials: ", $names{'middleName'}, "\n";                 print $fout "sn: ", $names{'lastName'}, "\n";                 #print $fout "username: user${userNum}\n";                 print $fout "homeDirectory: home_dir\ngecos: gecos\nloginShell: log_shell\n";                 print $fout "telephoneNumber: ${telNum}\n" if $telNum;                 print $fout "physicalDeliveryOfficeName: ${div}\n";                 print $fout "ou: ${div}\n";                 print $fout "o: $org\n";                 #print $fout "organizationName: ACME\n";                 print $fout "title: $post\n";                 print $fout "mail: $email\n";                 print $fout "cn: ", $names{'shortName'},"\n";                 print $fout "\n";         #       print "ORG: $org, DIV: $div, POST: $post, NAME: $name, EMAIL: $email\n";         } } close $fout; close $fh;  sub givenName(){         my $name = shift;         my @s=[];         my %names = {};         @s = split ' ', $name;         $names{'firstName'} = $s[1];         $names{'lastName'} = $s[0];         $names{'middleName'} = $s[2];         $names{'shortName'} = $s[0] .' '. substr($s[1],0,1) .'.'. substr($s[2],0,1) .'.';         return %names; }  sub clean(){         my $name = shift;         $name =~s/^\'//;         $name =~s/\"\"/\"/g;         $name =~s/^\"//;         $name =~s/\"$//;         $name =~s/\ *$//g;         $name =~s/\ +/\ /g;         return $name; }  sub firstUp(){         my $name = shift;         $name = lc($name);         return ucfirst($name); }  

После чего а выходе должен получится файл temp.ldif, уже который мы скармиливаем команде

ldapadd -v -Dcn=Manager,dc=org,dc=com -wsecret < ./temp.ldif 

Вот как-то так с серверной частью. На клиенте, в Outlook, делаем:

Настройка учетный записей -->   Адресные книги -->   Создать -->     LDAP-->     IP: наш IP       Не требуется вход на сервер       Другие настройки -->         Поиск -->           База поиска: ou=ab,dc=org,dc=com           Просмотр: Включить просмотр (требуется серверная поддержка) 

Все. Проверяем, прописываем в крон, оптимизируем.
PS: Для того, чтобы отображалась организация в списке адресов Oulook, надо отпатчить файл /etc/openldap/schema/core.schema: Добавим ‘company’ — отдельное спасибо Microsoft, что она не обращает внимания на стандартную запись o, строка 120

attributetype ( 2.5.4.10 NAME ( 'company' 'o' 'organizationName' )         DESC 'RFC2256: organization this object belongs to'         SUP name ) 

** Копипаста с моего сайта a3r.me/posts/openldap-outlook.html