Я пытаюсь создать веб-сервер, который нуждается в некоторой аутентификации пользователя на самом сервере.Мне нужно сделать это с Perl, поэтому я решил попробовать использовать сервер LDAP в localhost.
Я пытался использовать приведенный ниже скрипт.Все настроено правильно (так как я пытался найти записи, которые уже настроены), но, когда я пытаюсь запустить скрипт, он говорит мне «Ошибка генерации индекса»
my $ldap = Net::LDAP->new( '127.0.0.1' ) or die "$@";
my $mesg = $ldap->bind ('cn=admin, dc=ramal, dc=com',
password=>'<admin_password>'
);
#$mesg->code or die $mesg->error;
my $result = $ldap->add('uid=pruebaPerl, ou=User, dc=ramal, dc=com',
attrs=> [
'uid' => 'pruebaPerl',
'cn' => 'Usuario de prueba de Perl',
'objectclass' => ['account', 'posixAccount', 'shadowAccount'],
'userPassword' => '<hashed password>',
'loginShell' => '/bin/bash',
'uidNumber' => 2001,
'gidNumber' => 2001,
'homeDirectory' => '/home/pruebaPerl'
]
);
$result->code and warn "Failed to add entry: ", $result->error;
$mesg = $ldap->unbind
Итак, я думаю, что-то не так варгументы для добавления, но я не знаю что.Любая помощь приветствуется.