[SP-pm] Autenticador Squid em Perl

[Gabriel Vieira]

Pronto. Contém tudo que precisa.

2008/6/5 Mike Tesliuk <mike em braslink.com>:
> 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!
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
Gabriel Vieira