[SP-pm] Autenticador Squid em Perl

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


Lucas Mateus wrote:
>  > Luis Motta
>  > Simples, é mesmo. E agora está organizado. :P
> 
>  > #!/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 ) = split qr{\s+};
>  >    print "ERR\n" unless $password;    # do not accept empty
>  >    print "OK\n" if is_valid( $user, $password );
>  > }
>  > __END__
> 
> 
> 
> É uma implementação muito simples, acho que pra medidas de entendimento 
> convém utilizar codigos simples e legível, assim mesmos os newbies vão 
> se interessar pela facilidade de implementação, depois de entendido cada 
> um passa batom da forma que quiser.

Você pode por favor me dizer onde é que o meu código não está simples, 
com mil milhões de raios e trovões?

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