[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