Foro - Perl en Español

Tengo un problema al ejecutar la sig. ruta donde enlaza a un cgi (report.cgi):

http://www.liceva.mx/index.html.

Esta página es un ejemplo de reporte para un directorio, en donde
los campos pueden ser llenados con la información que sea y al momento
de dar clic en el botón de enviar, éste generará el reporte.
Pero no lo hace. Les expliqué esto a mi proveedor de la página y me
dice que aparece este log en Apache:

[Sat May 28 13:25:48 2011] [error] [client 189.186.146.76] Premature end of script headers: report.cgi, referer: http:liceva.mxindex.html

Es curioso, porque conseguí un host provisional en donde están los mismos archivos anteriormente citados, este es mi ejemplo:

http://liceva.dyndns.org/eva

y en este lugar corre perfectamente.

Ahora bien, necesito que me ayuden a encontrar la solución a mi problema ya que desconozco el porqué no se carga en mi host y mi proveedor dice que es por el código. En caso que sean los permisos de ellos, ¿qué es lo que tienen que ajustar?

Les agradeceré su apoyo.

Gracias por su respuesta,
ya corrí el CGI mínimo en http://www.liceva.mx/cgi-bin/minimo.cgi
y corre sin problemas. Sin embargo, veo que usa una programación un poco distinta a la que acostumbro a hacer.

Aquí mi código de http://www.liceva.mx/cgi-bin/report.cgi:

# Analizar Variables Capturadas
#############################################################################################
print "Content-type: text/html\n\n";
use cgi;
$query = new CGI;
$n_nombre = $query->param("Nom_D");
$n_domicilio = $query->param("Dom_D");
$n_telefono = $query->param("Tel_D");

# Resultados en formato HTML
############################################################################################

# Validación
#############################################################################################
if ("$n_nombre" eq "")
{
print "Favor de llenar campo Nombre";
exit;
}

if ("$n_domicilio" eq "")
{
print "Favor de llenar campo Domicilio";
exit;
}

#
# Mensaje
#############################################################################################
$mensaje = "";
$mensaje .= "$n_nombre con domicilio <br>";
$mensaje .= "$n_domicilio<br>";
$mensaje .= "Telefono: $n_telefono";

print $mensaje;
exit;


Dígame si tengo algún problema con mi código, por favor.

Gracias por su apoyo.

Entonces ¿¿tendré que cambiar algunos parámetros de mi programación??
Porque, ¿cuál es la diferencia de que mi código sí trabaje bien en un
host (http://www.liceva.dyndns.org/eva) y en otro no (http://www.liceva.mx)??

Ya que su forma de programar corre sin problemas en el host que
mis programas marcan errores al leer.

Lo utilicé, agregándolo con los otros módulos, pero
no me manda ningun error de log.

Ahora si perdí la brújula.


#!/usr/bin/perl
use CGI qw(:standard );
use CGI::Carp qw(fatalsToBrowser);
use cgi;
$query = new CGI;
$n_nombre = $query->param("Nom_D");
$n_domicilio = $query->param("Dom_D");
$n_telefono = $query->param("Tel_D");

print
header,
start_html('CGI REPORT'),
h1('CGI REPORT'),
hr,
if ($n_nombre eq ")
{
hr,
p ('Favor de llenar campo Nombre'),
hr;
}

if ($n_domicilio eq ")
{
hr,
p ('Favor de llenar campo Domicilio'),
hr;
}
#
# Mensaje
#############################################################################################
$mensaje = "";
$mensaje .= "$n_nombre con domicilio <br>";
$mensaje .= "$n_domicilio<br>";
$mensaje .= "Telefono: $n_telefono";

print $mensaje;
exit;


Necesito que me ayude a comprender estas sintaxis que son
nuevas para mi. Agradezco su apoyo.

Aún así con el código corregido, no me quiere correr la aplicación en mi página.

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.



El módulo use CGI::Carp qw(fatalsToBrowser); no muestra
ningún error del sistema. No puedo saber cuál es el problema.