Foro - Perl en Español

He actualizado MySQL a la versión 5.1 y desde ese momento la conexión a la base de datos, utilizando DBI, me falla. El servidor devuelve el error "Error 500 - Acceso no autorizado "

Este es el código que utilizo, y que estaba funcionando:

my $dbh = DBI->connect("dbi:$Driv:$Base",$User,$Pass) || die &MensajesErrores("","No se pudo Conectar a $Base","","");

my $sth1 = $dbh->prepare("SELECT $campos FROM $tabla where ($comparar);");

Webs en Joomla o Wordpress instaladas en el mismo servidor siguen funcionando.

Muchas gracias.

Bienvenida a los foros de Perl en Español, mjose.

Disculpa, pero el mensaje de error, ¿quién lo da? ¿El servidor web o la MySQL?

Lo digo porque un Error 500 es típico de un error HTTP... así que entonces el error sale desde el servidor web.

Mira el archivo error.log del servidor web, para saber qué es lo que pasa.

Hola, buenos días, ya lo he solucionado, todo era cuestión de actualizar el DBD::mysql.

Saludos.