Hola de nuevo... estoy probando un CGI asociado a un formulario que pasa el password para ser validado... pero me muestra el siguiente mensaje: - Código: Seleccionar todo
No se puede mostrar la página
Hay un problema con la página solicitada y no puede ser mostrada..
--------------------------------------------------------------------------------
HTTP 500 - Error interno del servidor
Realmente este CGI es la unión de dos, en uno solo, que ejecutándolos independientemente me funcionan, pero al fusionarlos, ya no.
Agradecería su ayuda... Gracias.
El código del CGI es el siguiente:
Using perl Syntax Highlighting
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
use strict;
use DBI;
my $pruser = "GJR";
my $identif = " ";
my $nombre = " ";
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
read(STDIN, my $buffer, $ENV{"CONTENT_LENGTH"});
my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs)
{
(my $name, my $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');
my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif = '$pruser'" );
$query->execute();
$query->bind_columns(\$nombre, \$identif);
while( $query->fetch() ) {
}
$query->finish();
if ( $FORM{"password"} eq $identif) {
print
header,
start_html('CGI MINIMO'),
h1('VALIDACION PASSWORD'),
hr,
p("El password es correcto"),
hr;
print end_html;
} else {
print
header,
start_html('CGI MINIMO'),
h1('VALIDACION PASSWORD'),
hr,
p("El password es Incorrecto"),
hr;
print end_html;
}
exit;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
use strict;
use DBI;
my $pruser = "GJR";
my $identif = " ";
my $nombre = " ";
my $dbuser = "maest_gonzalo";
my $dbpass = "gjr";
my $dbhost = "localhost";
my $dbname = "maest_ME3REGIS";
read(STDIN, my $buffer, $ENV{"CONTENT_LENGTH"});
my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs)
{
(my $name, my $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');
my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif = '$pruser'" );
$query->execute();
$query->bind_columns(\$nombre, \$identif);
while( $query->fetch() ) {
}
$query->finish();
if ( $FORM{"password"} eq $identif) {
header,
start_html('CGI MINIMO'),
h1('VALIDACION PASSWORD'),
hr,
p("El password es correcto"),
hr;
print end_html;
} else {
header,
start_html('CGI MINIMO'),
h1('VALIDACION PASSWORD'),
hr,
p("El password es Incorrecto"),
hr;
print end_html;
}
exit;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
