Используем доменную авторизацию на перл посредствам модуля Net::LDAP.

Устанавливаем модуль

perl -MCPAN -e shell
cpan> install Net::LDAP

Вставляем функцию авторизации

  sub auth_AD {
        my ($user, $pass) = @_;
        my $ad = Net::LDAP->new("domain.ru") or die "Could not connect! $!";
       my $mesg = $ad->bind("$user\@domain.ru", password=>$pass, version => 3 );
       return $mesg->is_error();
}

Функция принимает два аргумента, и возвращает цифровой статус ошибки (0 — в случае успеха и положительные числа в случае ошибки).

Tagged with:  

One Response to Доменная авторизация на Perl

  1. Олег:

    ну и где здесь доменная авторизация?
    это всего лиш авторизация к LDAP серверу
    доменная авторизация работает по керберосу который ходит к LDAP и приезжает клиенту тикет

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Можно использовать следующие HTML-теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>