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

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

[Slava Dubrovskiy]

[-- Attachment #1: Type: text/plain, Size: 1411 bytes --]

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

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


[-- Attachment #2: S/MIME Cryptographic Signature --]
[-- Type: application/pkcs7-signature, Size: 5525 bytes --]

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

[Slava Dubrovskiy]

[-- Attachment #1: Type: text/plain, Size: 715 bytes --]

03.02.2011 22:03, Slava Dubrovskiy пишет:
> Здравствуйте.
>
> Пытаюсь допилить proxmox. Там используется авторизация через системных
> пользователей.
> Но она не работает. Также не работает пример из FAQ (пункт 1 из
> /usr/lib/perl5/Authen/PAM/FAQ.pod)
>
> Подскажите кто силен в перле в чем может быть проблема?
Обнаружил что из под root работает. Теперь вопрос - как сделать чтобы
работало из под обычного пользователя?

-- 
WBR,
Dubrovskiy Vyacheslav


[-- Attachment #2: S/MIME Cryptographic Signature --]
[-- Type: application/pkcs7-signature, Size: 5525 bytes --]

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

[Vladimir Lettiev]

On Thu, Feb 03, 2011 at 10:33:52PM +0200, Slava Dubrovskiy wrote:
> 03.02.2011 22:03, Slava Dubrovskiy пишет:
> > Здравствуйте.
> >
> > Пытаюсь допилить proxmox. Там используется авторизация через системных
> > пользователей.
> > Но она не работает. Также не работает пример из FAQ (пункт 1 из
> > /usr/lib/perl5/Authen/PAM/FAQ.pod)
> >
> > Подскажите кто силен в перле в чем может быть проблема?
> Обнаружил что из под root работает. Теперь вопрос - как сделать чтобы
> работало из под обычного пользователя?

Под обычным пользователем врядли будет работать.

Судя по strace ему нужны доступные на чтение файлы:
/etc/pam.d/login, /etc/tcb/username/shadow.
Доступный на запуск /usr/lib/chkpwd/tcb_chkp

-- 
Vladimir Lettiev aka crux ✉ theCrux@gmail.com

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

[Slava Dubrovskiy]

[-- Attachment #1: Type: text/plain, Size: 1161 bytes --]

03.02.2011 22:42, Vladimir Lettiev пишет:
>
>>> Пытаюсь допилить proxmox. Там используется авторизация через системных
>>> пользователей.
>>> Но она не работает. Также не работает пример из FAQ (пункт 1 из
>>> /usr/lib/perl5/Authen/PAM/FAQ.pod)
>>>
>>> Подскажите кто силен в перле в чем может быть проблема?
>> Обнаружил что из под root работает. Теперь вопрос - как сделать чтобы
>> работало из под обычного пользователя?
> Под обычным пользователем врядли будет работать.
>
> Судя по strace ему нужны доступные на чтение файлы:
> /etc/pam.d/login, /etc/tcb/username/shadow.
> Доступный на запуск /usr/lib/chkpwd/tcb_chkp

т.е. это нужно права менять, чтобы оно смогло из под апача
авторизироваться? =-O

Как быть?

-- 
WBR,
Dubrovskiy Vyacheslav


[-- Attachment #2: S/MIME Cryptographic Signature --]
[-- Type: application/pkcs7-signature, Size: 5525 bytes --]

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

[Dmitry V. Levin]

[-- Attachment #1: Type: text/plain, Size: 924 bytes --]

On Thu, Feb 03, 2011 at 11:42:08PM +0300, Vladimir Lettiev wrote:
> On Thu, Feb 03, 2011 at 10:33:52PM +0200, Slava Dubrovskiy wrote:
> > 03.02.2011 22:03, Slava Dubrovskiy пишет:
> > > Здравствуйте.
> > >
> > > Пытаюсь допилить proxmox. Там используется авторизация через системных
> > > пользователей.
> > > Но она не работает. Также не работает пример из FAQ (пункт 1 из
> > > /usr/lib/perl5/Authen/PAM/FAQ.pod)
> > >
> > > Подскажите кто силен в перле в чем может быть проблема?
> > Обнаружил что из под root работает. Теперь вопрос - как сделать чтобы
> > работало из под обычного пользователя?
> 
> Под обычным пользователем врядли будет работать.
> 
> Судя по strace ему нужны доступные на чтение файлы:
> /etc/pam.d/login,

Никто, кроме login(1), не должен смотреть в /etc/pam.d/login.

> /etc/tcb/username/shadow.
> Доступный на запуск /usr/lib/chkpwd/tcb_chkpwd

См. tcb(5).


-- 
ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]

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

[Afanasov Dmitry]

[-- Attachment #1: Type: text/plain, Size: 717 bytes --]

On Thu, Feb 03, 2011 at 11:42:08PM +0300, Vladimir Lettiev wrote:
> On Thu, Feb 03, 2011 at 10:33:52PM +0200, Slava Dubrovskiy wrote:
> > Обнаружил что из под root работает. Теперь вопрос - как сделать чтобы
> > работало из под обычного пользователя?
> 
> Под обычным пользователем врядли будет работать.
ну, squid работает.

> Судя по strace ему нужны доступные на чтение файлы:
> /etc/pam.d/login, /etc/tcb/username/shadow.
> Доступный на запуск /usr/lib/chkpwd/tcb_chkp
ну тогда 
# control tcb_chkpwd tcb
и будет /usr/lib/chkpwd/tcb_chkp sgid shadow, доступный на запуск всем.
только предварительно может понадобится пользоватлея скрипта включить в
группу auth.
-- 
С уважением
Афанасов Дмитрий

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 198 bytes --]

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

[Slava Dubrovskiy]

[-- Attachment #1: Type: text/plain, Size: 641 bytes --]

04.02.2011 08:39, Afanasov Dmitry пишет:
>
>> Судя по strace ему нужны доступные на чтение файлы:
>> /etc/pam.d/login, /etc/tcb/username/shadow.
>> Доступный на запуск /usr/lib/chkpwd/tcb_chkp
> ну тогда 
> # control tcb_chkpwd tcb
> и будет /usr/lib/chkpwd/tcb_chkp sgid shadow, доступный на запуск всем.
> только предварительно может понадобится пользоватлея скрипта включить в
> группу auth.
Нет, не работает. Что-то еще?

-- 
WBR,
Dubrovskiy Vyacheslav


[-- Attachment #2: S/MIME Cryptographic Signature --]
[-- Type: application/pkcs7-signature, Size: 5525 bytes --]