El código es el siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Asterisk::AGI;
- use File::Basename;
- use DBI;
- use DBD::mysql;
- use POSIX;
- $AGI = new Asterisk::AGI;
- my %input = $AGI->ReadParse();
- # CONFIG VARIABLES
- $platform = "mysql";
- $database = "aaa";
- $host = "localhost";
- $port = "3306";
- $tablename = "tabla";
- $user = "root";
- $pw = "";
- #DATA SOURCE NAME
- $dsn = "dbi:mysql:$database:localhost:3306";
- # PERL DBI CONNECT
- $cnx = DBI->connect($dsn, $user, $pw);
- #TOMA EL CODIGO DIGITADO POR EL USUARIO
- my $cedula =$AGI->get_data('custom/CEDULA', 3000, 11);
- my $clave =$AGI->get_data('custom/CLAVE', 3000, 11);
- my $sql = "SELECT clave FROM principl WHERE cedula='$cedula' AND clave='$clave'";
- $AGI->say_digits($clave);
- $sth = $cnx->prepare($sql); #ERROR 1 ACÁ, NO PASA DE ACÁ
- my $num = $sth->execute(); #ERROR 2 ACÁ
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y hasta ahí llego. El problema es en el prepare(). He corrido este código en otros server y me funciona, pero donde necesito, no. Agradezco alguien me pueda orientar.
Saludos.
