Antes que nada quiero decirles que soy nuevo en este lenguaje (Perl) y la verdad tengo mucho interés en aprender más.
Tengo una página hospedada en un servidor, un dominio y el servidor soporta PHP y Perl para los cgi, sé cuales son las rutas y tengo los permisos 755 en la carpeta y en el archivo .cgi, pero a la hora de hacer una prueba da error.
El servicio técnico del hosting me dice que son antiguos.
Este mismo cgi ha funcionado en otro hosting que ha cerrado, ahora en septiembre.
Por favor, ayuda.
admin.cgi
Using perl Syntax Highlighting
- #!/usr/bin/perl
- #
- # admin.cgi (Antonio Tain, 26-09-2011)
- #
- # CGI para la administración de productos de ADOS
- #
- use Mysql;
- use LWP::Simple;
- require "admin.cfg";
- $|=1;
- print "Content-type: text/html\n\n";
- #-- Fichero de contraseña de administración.
- $FICH_PWD=$dir_cgi.$separador_directorios."admin.pwd";
- #-- Leemos la entrada guardando los campos en el hash %in y los nombres de los ficheros,
- #-- si los hay, en %file_name. %file_content dice el tipo de los ficheros, y %cgi_sfn no se usa.
- #-- ATENCION, esta funcion, añade al final de cada variable de $in, el fin de cadena \0, con lo
- #-- que la expresion regular para ver si una variable esta vacia o con espacios, con
- #-- esta nueva funcion, no funciona if ($variablei=~/^[ \t]*$/)
- #-- sino que tenemos que usar if ($variable=~/^[ \t]*[\0]*$/)
- &ReadParse(\%in,\%file_name,\%file_content,\%cgi_sfn);
- localhost estudioa_datos
- #------------------ conexion a la BD ------------------------------------
- $user='estudioa_estudio';
- $passwd='f@M2Fx63$)';
- $dbh=Mysql->connect('localhost','estudioa_estudio',$user, $passwd);
- $tabla_productos="productos";
- $tabla_categorias="categorias";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
