[SP-pm] Autenticador Squid em Perl

[Lucas Mateus]

Esqueci de dizer que é necessário ativar o AUTOFLUSH

BEGIN {
         $| = 1
}


2008/6/4 Lucas Mateus <lucasmateus.oliveira em gmail.com>:

> Ja fiz varios autenticadores e redirecionadores para Squid em Perl com
> consultas em LDAP ou MySQL e integração com outros programas em outros
> servidores via Socket.
>
>
> É muito simples:
>
> O Squid passa para seu programa 'USUARIO SENHA' exatamente dessa forma,
> basta separa-los, autenticar e retornar com print, "OK\n" para sucesso ou
> "ERR\n" para falha de atutenticação.
>
> while(<>) {
>     @d = split;
>
>     # $d[0] => usuario
>     # $d[1] => senha
>
>    # pegue a senha do usuario $d[0] e compare com $d[1]
>
>    if ($d[1] == $senha_em_banco) {
>              print "OK\n"
>    } else {
>              print "ERR\n"
>    }
> }
>
>
> OBS: seu programa deve ser um LOOP Infinito, se seu programa abortar ou
> sair do Laço o serviço Squid para.
>
>
> 2008/6/4 Otávio Fernandes <otaviof em gmail.com>:
>
> 2008/6/4 William A. Knob <william em raidbr.com.br>:
>> >         Boa noite,
>> >
>> >    Algum de voces utiliza Perl para criação de um autenticador para o
>> > Squid ? Estou usando o mysql_auth.c mas estou tendo problemas com
>> > timeout... por ex: o expediente acaba as 18h e quando os usuários
>> > retornam as 07:30 do outro dia, o autenticador não está mais
>> > funcionando... pede a senha repetidas vezes...
>> >
>> >    Por este problema eu gostaria de usar outro autenticador, porém não
>> > conheco outra linguagem de programação, gostaria de um auxilio de voces!
>> >
>> >    Abraços
>> >
>> > _______________________________________________
>> > SaoPaulo-pm mailing list
>> > SaoPaulo-pm em pm.org
>> > http://mail.pm.org/mailman/listinfo/saopaulo-pm
>> >
>>
>> Fala William,
>>
>> Então a solução que você adotou é a mais utilizada para autenticação
>> de usuários no Squid, acredito também que esta seja a melhor opção
>> pronta. Agora, se você quer fazer um software para isso, recomendo que
>> você dê uma boa olhada na CPAN ( http://search.cpan.org ) antes de
>> sair devenvolvendo algo, com certeza, boas partes do seu software vão
>> sair de lá
>>
>>  Para dar uma ajuda no que fazer, eu achei este artigo:
>> http://www.freesoftwaremagazine.com/articles/authentication_with_squid
>>
>> Tem alguns exemplos bem úteis em PHP, agora falta ( a parte mais legal
>> ) você adaptar para Perl :-).
>>
>> OBS.: Lembre-se que nem sempre desenvolver algo do zero é a melhor
>> opção ... Talvez seja o caso de você abrir seus fontes e aproveitar o
>> que você já tem.
>>
>> um abraço e boa sorte,
>>
>> --
>>  | --
>>  | Otávio Fernandes <otaviof at gmail.com>
>>  | GNU/Linux User: 283.396
>>  | http://www.geekbr.com.br/podcast/
>>  | --
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080604/e02d1a63/attachment.html