[SP-pm] Autenticador Squid em Perl
Mike Tesliuk
mike em braslink.com
Quinta Junho 5 12:48:52 PDT 2008
aqui tem um caso semelhante
http://fedora.co.in/content/writing-custom-basic-authentication-plugin-squid-python
----------------------------------
Mike Tesliuk
Administrador de Sistemas
Braslink Networks
Phone: +55 11 2104 0005
Fax: +55 11 3544 4401
Luis Motta Campos wrote:
> Luis Motta Campos wrote:
>> A implementação mais nova é assim:
>>
>> #!/usr/bin/perl
>> use strict;
>> use warnings;
>> use IO::Handle;
>>
>> STDOUT->autoflush(1);
>> STDERR->autoflush(1);
>>
>> # implement your password validation here
>> sub is_valid;
>>
>> while (<>) {
>> my ( $user, $password ) = m{^(\S+)(?:\s+(.+))?$};
>> print is_valid( $user, $password ) ? qq{OK\n} : qq{ERR\n};
>> }
>> __END__
>
> Agora que estamos todos de acordo, alguém pode por favor me apontar para
> a documentação sobre como colocar isso no Squid, para que eu possa
> transformar isso num módulo útil e colocar no CPAN?
>
> Putamplexos!
Mais detalhes sobre a lista de discussão SaoPaulo-pm