[SP-pm] Autenticador Squid em Perl

[Lucas Mateus]

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/8d555fb9/attachment.html