VPF::данные из postgresql в openldap - Форум программистов

toni3d

Дата 8.7.2013, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.7.2013

Репутация: нет
Всего: нет

взять данные из таблицы Postgresql и добавить в LDAP

Код



#подключаемся к таблице user_accounts1
$query = "SELECT * FROM user_accounts1";

$sth = $dbh->prepare($query);
$rv = $sth->execute();
if (!defined $rv) {
  print "При выполнении запроса '$query' возникла ошибка: " . $dbh->errstr . "\n";
  exit(0);
}

while ($ref = $sth->fetchrow_hashref()) {
  ($name, $mail) = ($ref->{'login'}, $ref->{'email'});
  #print "$name\t$mail\n";
}


$ldap = Net::LDAP->new($server);
$mesg = $ldap->bind($binddn, password=>$passwd);
$result = $ldap->add("cn=$name,ou=addressbook,dc=mydomain,dc=com", 
                attr => [ 'cn' => $name,
                          'sn' => 'Smith',
                          'givenName' => $name,
                          'mail' => $mail,
                          'objectclass' => [ 'person', 'inetOrgPerson']
                        ]
           );
           
$ldap->unbind;
$sth->finish();
$dbh->disconnect();

в итоге добавляет одно значение и все
подскажите как правильно организовать цикл

arto

Дата 8.7.2013, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

читать и писать одновременно, а не сначала прочитать по одной строке, и записать последнюю в ldap.

toni3d

Дата 8.7.2013, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.7.2013

Репутация: нет
Всего: нет

Цитата(arto @ 8.7.2013, 15:11)

читать и писать одновременно, а не сначала прочитать по одной строке, и записать последнюю в ldap.

спасибо
самое интересное что я пробовал, но так как изучаю недолго не был уверен так надо

Код


while ($ref = $sth->fetchrow_hashref()) {
  ($name, $mail) = ($ref->{'login'}, $ref->{'email'});
  #print "$name\t$mail\n";
$result = $ldap->add("cn=$name,ou=addressbook,dc=mydomain,dc=com", 
                attr => [ 'cn' => $name,
                          'sn' => $name,
                          'givenName' => $name,
                          #'homePhone' => '555-2020',
                          'mail' => $mail,
                          'objectclass' => [ 'top','person', 'inetOrgPerson']
                       ]
           );
  }

работает через тестовое виндовое подключение, позже проверю на freebsd сервере
есть подозрение что будут траблы с кодировкой русских букв

Это сообщение отредактировал(а) toni3d - 8.7.2013, 16:52

noize

Дата 9.7.2013, 10:01 (ссылка)

(нет голосов)

Загрузка ...

5.18.2

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 10.7.2010
Где: СПб

Репутация: 3
Всего: 3

используйте прагмы

use strict;
use warnings;

иначе дров наломаете.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »