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.<br><br><br>É muito simples:<br><br>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.<br>
<br>while(<>) {<br> @d = split;<br><br> # $d[0] => usuario<br> # $d[1] => senha<br><br> # pegue a senha do usuario $d[0] e compare com $d[1]<br><br> if ($d[1] == $senha_em_banco) {<br> print "OK\n"<br>
} else {<br> print "ERR\n"<br> }<br>}<br><br><br>OBS: seu programa deve ser um LOOP Infinito, se seu programa abortar ou sair do Laço o serviço Squid para.<br><br><br><div class="gmail_quote">2008/6/4 Otávio Fernandes <<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">2008/6/4 William A. Knob <<a href="mailto:william@raidbr.com.br">william@raidbr.com.br</a>>:<br>
<div><div></div><div class="Wj3C7c">> Boa noite,<br>
><br>
> Algum de voces utiliza Perl para criação de um autenticador para o<br>
> Squid ? Estou usando o mysql_auth.c mas estou tendo problemas com<br>
> timeout... por ex: o expediente acaba as 18h e quando os usuários<br>
> retornam as 07:30 do outro dia, o autenticador não está mais<br>
> funcionando... pede a senha repetidas vezes...<br>
><br>
> Por este problema eu gostaria de usar outro autenticador, porém não<br>
> conheco outra linguagem de programação, gostaria de um auxilio de voces!<br>
><br>
> Abraços<br>
><br>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
><br>
<br>
</div></div>Fala William,<br>
<br>
Então a solução que você adotou é a mais utilizada para autenticação<br>
de usuários no Squid, acredito também que esta seja a melhor opção<br>
pronta. Agora, se você quer fazer um software para isso, recomendo que<br>
você dê uma boa olhada na CPAN ( <a href="http://search.cpan.org" target="_blank">http://search.cpan.org</a> ) antes de<br>
sair devenvolvendo algo, com certeza, boas partes do seu software vão<br>
sair de lá<br>
<br>
Para dar uma ajuda no que fazer, eu achei este artigo:<br>
<a href="http://www.freesoftwaremagazine.com/articles/authentication_with_squid" target="_blank">http://www.freesoftwaremagazine.com/articles/authentication_with_squid</a><br>
<br>
Tem alguns exemplos bem úteis em PHP, agora falta ( a parte mais legal<br>
) você adaptar para Perl :-).<br>
<br>
OBS.: Lembre-se que nem sempre desenvolver algo do zero é a melhor<br>
opção ... Talvez seja o caso de você abrir seus fontes e aproveitar o<br>
que você já tem.<br>
<br>
um abraço e boa sorte,<br>
<font color="#888888"><br>
--<br>
| --<br>
| Otávio Fernandes <otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>><br>
| GNU/Linux User: 283.396<br>
| <a href="http://www.geekbr.com.br/podcast/" target="_blank">http://www.geekbr.com.br/podcast/</a><br>
| --<br>
</font><div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br>