[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