Foro - Perl en Español

Hola, buenas tardes, quiero abrir un cgi desde otro cgi de la siguiente manera:



Previo a la llamada corroboré que se reciben los parámetros antes de formar el <form> y, efectivamente, están llegando pero al momento de usar <form> no se están enviando los parámetros, le agradeceré su valeroso apoyo.


Gracias.

En principio, no veo ningún fallo a la hora de crear la línea. Quizás usaría esta:

Cuando hagas la petición, mira lo que sucede en los archivos access.log/error.log del servidor web. Allí saldrá la petición real que está recibiendo el servidor.

O algo tan sencillo como redirigir la salida hacia un archivo, para ver si realmente generar lo que queremos.

¿Los valores almacenados en $cve_hom, $clasif, $date1 y $date2 están escapados? Ten en cuenta que al ser una petición GET, deben ser url-escapados, para que puedan ser admitidos por el servidor.

Una forma de estar seguros:
Lo que hacemos es crear el URL y luego le agregamos los parámetros. El método query_form() se encargará de escapar los caracteres peligrosos o extraños. (Sacado de la pregunta How do I automate an HTML form submission? en perlfaq9).

Hola, explorer. Mira, pasa esto:

Tengo tres scripts. Uno es donde se despliega un botón para hacer una visualización restringida. En dicho botón estoy enviando los cinco parámetros y llegan bien al segundo script. De allí los estoy enviando a un programa que verifica permisos y van todos. Por último llamo un script para visualizar datos y recibo los parámetros enviados, pero algo no está bien en print "(<form name='forma1' method='get' action='$url'>)".

Sí están llegando bien los parámetros pero en algo me estoy equivocando:

Espero me puedas seguir apoyando; mientras, sigo intentando.

A ver... el resultado de los print es un código en HTML, ¿verdad?

Bueno, pues queremos ver qué es lo que se genera, a ver si vemos algo. Porque en el código, yo lo veo todo perfecto.

Ok, veamos, despliego el primer script con un botón para llamar al resultado final:

Al pulsar clic el botón lleva los parámetros:

vengo_de,cve,clas,date1,date2

Llega al segundo script con:

Verifico que sea un usuario válido y llevo los parámetros iniciales:

icev - TMT - TODO - 2014-08-01 00:00:01 - 2014-08-31 23:59:00

Defino el $url:

*¿Para formar el URL debo de utilizar el módulo URI::URL?

Al ser un usuario válido debería desplegar el resultado:

Deducción: La referencia al URL no la estoy haciendo correctamente. ¿Qué pasa con la referencia?

Ya lo hice funcionar, el uso de print qq(<form, no funcionó, utilicé print "<form...>";

Y listo, gracias.

Pues es extraño, porque qq() hace las mismas funciones que las comillas dobles.

Y sí, necesitas poner un use URL::URI; al principio del programa para poder usar el método query_form(). Pero si cuentas con otros módulos que hagan lo mismo (escapar los parámetros y crear el URL), pues adelante.

Sí, explorer tienes toda la razón, por las prisas me equivoqué al expresar el resultado, disculpas.

Verás: lo que pasa con mis scripts es el manejo del módulo SESSION que hago con mis variables aunque no entiendo bien, y tendré que leer el módulo SESSION y rastrear mis variables porque por algún lado se están perdiendo su valores.

Si puedes, por favor, proporcionar una explicación del módulo SESSION, te lo agradeceré.

Saludos.

No sé a qué módulo te refieres.

En CPAN me salen 1001 referencias con el nombre 'Session'.

En efecto, ya tengo la información. Gracias.