Foro - Perl en Español

Buenas:

He modificado un poco el script para comprobar el funcionamiento de Firmar:



Pero aún así devuelve firma como vacío. He preguntado en el servidor y la ruta donde está el archivo salida.cgi y Firmar está en el directorio "/var/www/vhosts/dominio.com/cgi-bin/", la versión de linux es CentOS.
¿Se os ocurre cual puede ser el error?
¿Otra duda es que hace esto " qx( $comando );" y esto "use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); "? porque he estado revisando otros scripts y no lo he visto.

Ahh, por cierto lo de PHP ya lo he conseguido solucionar con CURL, basta con poner un printf de la firma en el script, PHP ya recoge todo y lo trata como una variable.

Muchas Gracias por toda la ayuda prestada, siento molestaros tanto.

Si Firmar está en /var/www/vhosts/dominio.com/cgi-bin/ entonces ese es el camino que debes poner en lugar de /usr/cgi-bin/ dentro del programa (y cambiando dominio.com por el tuyo, claro).

De todas formas, veo que has puesto en el comentario que también has probado con ese camino. Haz lo siguiente. En la línea que pone $comando, la cambias por estas otras:


De esa manera hemos puesto un control para ver si de verdad salida.cgi encuentra o no a Firmar. En caso de que ocurra algo raro, y con la ayuda de CGI::Carp, verás el error en pantalla (algo así como ver los errores PHP, pero en Perl). Otra cosa: creo que faltan algunos argumentos.

qx( $comando ); sirve para ejecutar el comando en el sistema. También se podría haber escrito como `$comando` pero es más recomendable la primera opción. El resultado de la ejecución se devuelve como una lista de líneas, es decir, todo lo que se haya impreso se recibe y se puede meter en un array.

CGI es el módulo primordial para todo lo que tenga que ver en la confección de programas CGI. CGI::Carp es una extensión que manda los errores y avisos del programa a la pantalla en formato HTML para que los puedas ver desde el navegador.