[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