<br><br><div class="gmail_quote">2008/6/5 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><br><div class="gmail_quote">2008/6/5 Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank">luismottacampos@yahoo.co.uk</a>>:<div class="Ih2E3d"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>Lucas Mateus wrote:<br>
> Ja fiz varios autenticadores e redirecionadores para Squid em Perl com<br>
> consultas em LDAP ou MySQL e integração com outros programas em outros<br>
> servidores via Socket.<br>
><br>
><br>
> É muito simples:<br>
><br>
<br>
</div>Simples, é mesmo. E agora está organizado. :P<br>
<br>
#!/usr/bin/perl<br>
use strict;<br>
use warnings;<br>
use IO::Handle;<br>
<br>
STDOUT->autoflush(1);<br>
STDERR->autoflush(1);<br>
<br>
# implement your password validation here<br>
sub is_valid;<br>
<br>
while (<>) {<br>
# my ( $user, $password ) = split qr{\s+};</blockquote></div><div># Não seria melhor assim, p/ possibilitar senhas com espaço?<br> my @userPass = split / /;<br> my $user = $userPass[0];<br> my $password = join " ", @userPass[1 .. $#userPass]; </div>
</div></blockquote><div># ou ainda melhor:<br> my @userPass = split / /;<br> my $user = shift @userPass;<br> my $password = join " ", @userPass;<br> <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="gmail_quote"><div><br>
</div><div class="Ih2E3d"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
print "ERR\n" unless $password; # do not accept empty<br>
print "OK\n" if is_valid( $user, $password );<br>
}<br>
__END__<br>
<br>
Eu acho impossível que não exista um pacote no CPAN para isso. Alguém<br>
com mais tempo que eu pode por favor dar uma vasculhada por lá?<br>
<br>
Se não existir pacote, eu vou construir um e publicar, sob instruções.<br>
<br>
Putamplexos!<br>
<font color="#888888">--<br>
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>
Perl fanatic evangelist, and amateur {cook, photographer}<br>
</font><div><div></div><div>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div></div><font color="#888888"><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org" target="_blank">http://perl-e.org</a>
</font></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a>