[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