Perl500402+Apache1.3.1+Win95

Wed, 09 Sep 1998 11:58:04 +0200

Saludos a todos.

Solicito la ayuda de alguien en este asunto:

Estoy intentando probar mis scripts Perl en mi propio ordenador, como si
estuvieran en el servidor. Para ello he instalado y configurado el servidor
Apache, y aunque funciona bieén, no puede ejecutar los cgi.

El script de prueba es este:

-----------------------------------------------
#!c:\perl5\bin\perl.exe

print "Content-type: text/html\n\n";

print qq~
<html><head><title>Hello</title></head>
<body><center>
Hi. This is a test. 
</center>

 
<hr>
</body></html>
~;

exit;
-----------------------------------------------

Al llamarlo desde el browser, Apache da error. El archivo error.log muestra
lo siguiente:

[Tue Sep 08 13:27:59 1998] [error] Premature end of script headers:
c:/archivos de programa/apache group/apache/htdocs/cgi-bin/cgi-bin3/test.cgi

En la FAQ de Apache dice algo sobre una posible interacción con el bufer de
salida de Perl y propone unas lineas de códipo para corregirlo, así que las
he añadido, quedando el script asi:

----------------------------------------------------------------
#!c:\perl5\bin\perl.exe

{
local ($oldbar) = $|;
$cfh = select (STDOUT);
$| = 1;
#

print "Content-type: text/html\n\n";

#
$| = $oldbar;
select ($cfh);
}

print qq~
<html><head><title>Hello</title></head>

<body><center>

Hi. This is a test.

</center>
</font>
<br>
<hr>
</body></html>
~;

exit;
----------------------------------------------------------------

Pero sigue dando error:

[Tue Sep 08 13:43:28 1998] [error] Premature end of script headers:
c:/archivos de programa/apache group/apache/htdocs/cgi-bin/cgi-bin3/test.cgi

Puede alguien echarme una mano?.

Gracias por vuestra atención.

Saludos cordiales,

Jose Manuel Abraldes.
Buscador Eliana (http://www.eliana.com)
mailto:admin@eliana.com
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl