[SP-pm] Autenticador Squid em Perl

Gabriel Vieira gabriel.vieira em gmail.com
Quinta Junho 5 08:45:56 PDT 2008


1) Se o usuário colocar apenas "login " haverá falha na REGEX, então
por que não usá-la como validador direto? A senha pode ser em branco?
2) Caso a senha e o login não batam, precisaria retornar caso tivesse
erro, certo?


print "ERR\n" unless my ( $user, $password ) = m{^(\S+)\s(.+)$};
print is_valid( $user, $password )?"OK\n":"ERR\n";



2008/6/5 Luis Motta Campos <luismottacampos em yahoo.co.uk>:
> Fernando Oliveira wrote:
>> # Não seria melhor assim, p/ possibilitar senhas com espaço?
>>    my @userPass = split / /;
>>    my $user = $userPass[0];
>>    my $password = join " ", @userPass[1 .. $#userPass];
>
> Hum. Senhas podem ter espaços. Certo, mudança de estratégia. Nada de
> usar split().
>
> #!/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 (<>) {
>
>     # captura um username (sem espaços, seguido de um
>     # espaço, seguido de qualquer coisa ( a senha).
>     my ( $user, $password ) = m{^(\S+)\s(.+)$};
>     print "ERR\n" unless $password;    # do not accept empty
>     print "OK\n" if is_valid( $user, $password );
> }
> __END__
>
> Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
Gabriel Vieira


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