[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