[SP-pm] Autenticador Squid em Perl

Luis Motta Campos luismottacampos em yahoo.co.uk
Quinta Junho 5 12:37:18 PDT 2008


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!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}


Mais detalhes sobre a lista de discussão SaoPaulo-pm