Using perl Syntax Highlighting
- #!/usr/bin/perl
- use CGI::Carp qw(fatalsToBrowser);
- use DBI;
- use DBD::Pg;
- print error;
- print "Content-type: text/html\n\n";
- my @pote;
- my @log;
- local ( $buffer, @pairs, $pair, $name, $value, %FORM );
- # Read in text
- $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
- if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
- read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
- }
- else {
- $buffer = $ENV{'QUERY_STRING'};
- }
- # Split information into name/value pairs
- @pairs = split( /&/, $buffer );
- foreach $pair (@pairs) {
- ( $name, $value ) = split( /=/, $pair );
- $value =~ tr/+/ /;
- $value =~ s/%(..)/pack("C", hex($1))/eg;
- push( @pote, $value );
- }
- $login = @pote[0];
- $pass = @pote[1];
- my $dbh = DBI->connect( "DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432" . "directorio", "directorio",
- "directorio" );
- my $sth = $dbh->prepare("SELECT login, clave, nombre FROM admin WHERE login=? AND clave=?");
- $dbh->{PrintError} = 1;
- #$sth->bind_param(1,$login);
- #$sth->bind_param(2,$pass);
- $sth->execute( $login, $pass );
- while ( @log = $sth->fetchrow_array() ) {
- print @log;
- }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
En el código me traigo un usuario y login del formulario que las metí en $login y $pass.
Ahora quiero comparar ese usuario y login con la BD... lo hago pero no me muestra resultado... no sé si estoy haciendo el execute bien o qué problema tengo... Una vez más requiero de su ayuda.
Gracias.