[SP-pm] Autenticador Squid em Perl

Fernando Oliveira fernandocorrea em gmail.com
Quinta Junho 5 07:30:11 PDT 2008


2008/6/5 Luis Motta Campos <luismottacampos em yahoo.co.uk>:

> Lucas Mateus wrote:
> > Ja fiz varios autenticadores e redirecionadores para Squid em Perl com
> > consultas em LDAP ou MySQL e integração com outros programas em outros
> > servidores via Socket.
> >
> >
> > É muito simples:
> >
>
> 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+};

# Não seria melhor assim, p/ possibilitar senhas com espaço?
   my @userPass = split / /;
   my $user = $userPass[0];
   my $password = join " ", @userPass[1 .. $#userPass];

>
>     print "ERR\n" unless $password;    # do not accept empty
>     print "OK\n" if is_valid( $user, $password );
> }
> __END__
>
> Eu acho impossível que não exista um pacote no CPAN para isso. Alguém
> com mais tempo que eu pode por favor dar uma vasculhada por lá?
>
> Se não existir pacote, eu vou construir um e publicar, sob instruções.
>
> 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
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080605/b7765a53/attachment-0001.html 


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