[devel] Не работает perl-Authen-PAM

Slava Dubrovskiy slava на tangramltd.com
Чт Фев 3 20:03:22 UTC 2011


Здравствуйте.

Пытаюсь допилить proxmox. Там используется авторизация через системных
пользователей.
Но она не работает. Также не работает пример из FAQ (пункт 1 из
/usr/lib/perl5/Authen/PAM/FAQ.pod)

Подскажите кто силен в перле в чем может быть проблема?

Вот testcase из их исходного кода:

#!/usr/bin/perl

use Authen::PAM;

sub pam_is_valid_user {
    my ($username, $password) = @_;
    my $pamh = new Authen::PAM ('login', $username, sub {
        my @res;
        while(@_) {
            my $msg_type = shift;
            my $msg = shift;
            push @res, (0, $password);
        }
        push @res, 0;
        return @res;
    });

    if (!ref ($pamh)) {
        my $err = $pamh->pam_strerror($pamh);
        die "Error during PAM init: $err";
    }

    my $res;
    $res = $pamh->pam_authenticate(0);
    if ( $res!= PAM_SUCCESS) {
        my $err = $pamh->pam_strerror($res);
        die "PAM1 auth failed: $err\n";
    }
    $res = $pamh->pam_acct_mgmt (0);
    if ( $res != PAM_SUCCESS) {
        my $err = $pamh->pam_strerror($res);
        die "PAM2 auth failed: $err\n";
    }
    $pamh = 0; # call destructor
    return 1;
}

pam_is_valid_user('slava', '123');


-- 
WBR,
Dubrovskiy Vyacheslav

----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : smime.p7s
Тип     : application/pkcs7-signature
Размер  : 5525 байтов
Описание: S/MIME Cryptographic Signature
Url     : <http://lists.altlinux.org/pipermail/devel/attachments/20110203/3f2d40ea/attachment-0001.bin>


Подробная информация о списке рассылки Devel