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

Пытаюсь допилить 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