Problemas con la salida de pagina

[tato_arm]

Hola,

Tengo un problema nuevo en mi sitio web que antes no aparecia en el browser de Internet Explorer:
Uso algunos script cgi escritos en perl y en una salida tengo que hacer lo siguiente para guardar una modificación de imagen:

print "Content-type: image/pjpeg\n\n";

Bien, luego de este paso de modificación me tiene que mandar una pagina de finalización del procedimiento diciendo que la modificación a concluido y gracias. Por lo tanto tengo que imprimir lo siguiente antes de enviar la pagina modelo html:

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

Y el resultado es que me sale la pagina web con todo el codigo en texto plano, pero no puedo dejar de poner antes el print "Content-type: image/pjpeg\n\n"; (con esto se solucionaria) porque no me guardaría la imagen o daria error.
Aclaro, esto antes no ocurria con las viejas versiones de internet explorer y es a partir de la version 8.

Como se podria solucionar eso? .
En el Firefox sale directamente el enlace al cgi y en la solapa muestra que se trata de un vinculo pjpeg.

Gracias por ayudar.

Luis

[monoswim]

en un CGI solamente debes colocar un solo Content-type dependiendo de que haya que mostrar. No puedes imprimir dos tipos de contenidos distintos...

primero guarda la imagen, has lo que deseas y luego imprime el HTML con el mensaje de confirmación, pero no imprimas el pjpeg al menos que vallas a mostrar SOLAMENTE el código de la imagen...en ese caso no iría el html...

Saludos

[tato_arm]

Gracias monoswim,

Pero no me termina de resolver el problema, es lo que suponia, ahora no se puede colocar dos Content-type seguidos. Donde dices:

primero guarda la imagen, has lo que deseas y luego imprime el HTML con el mensaje de confirmación, pero no imprimas el pjpeg al menos que vallas a mostrar SOLAMENTE el código de la imagen...en ese caso no iría el html...

es casi lo mismo que quiero hacer y no necesito mostrar el codigo de la imagen. Para que se entienda, la rutina que uso es:

sub reduce_foto {
# Reduce el tamaño de las fotos
use GD;
my $foto = $_[0];
my $img_sub_path;
my $dir_im = $cod;
if($^O =~ /Win/i) {
$img_sub_path = "/www.misitio.com/Imagenes/$dir_im/$foto";
} else {
$img_sub_path = "/Imagenes/$dir_im/$foto";
}
my $Width = $_[1]; # ancho máximo permitido en pixeles
my $Height = $_[2]; # setear en 0 si quiere fotos de alto variable
$Cash_Dir = "../Imagenes/$dir_im";
my ($border_x, $border_y);

$img_path=$ENV{'DOCUMENT_ROOT'}.$img_sub_path;
$im = newFromJpeg GD::Image($img_path);
($width,$height) = $im->getBounds();
($new_width,$new_height) = newSize($width,$height,$Width,$Height);
$im2 = new GD::Image($new_width,$new_height);
$im2->copyResized($im,$border_x,$border_y,0,0,$new_widt h,$new_height,$width,$height);

print "Content-type: image/pjpeg\n\n";

$cashed_file_name=$img_sub_path;
@mi_img = split('/',$cashed_file_name);
$cashed_file_name = pop @mi_img;
$cashed_file_name = &F_min($foto) if($_[3]);
open(CASH,">".$Cash_Dir."/".$cashed_file_name);
binmode(CASH);
print CASH $im2->jpeg();
close(CASH);
return $cashed_file_name if($_[3]);
}

Y como veras es necesario colocar el Content-type: image/pjpeg si no, no se guarda. Acaso hay otra forma de guardar sin usar el image/pjpeg??

Gracias por ayudar.

Luis

[monoswim]

No tiene nada que ver con guardar la imagen...

Lo que guarda la imagen es el open, print CASH y close...

El print "Content-type: image/pjpeg\n\n"; está imprimiendo una cabecera al navegador, no le está haciendo nada a tu archivo que guardas...

Una cosa es print CASH ( guarda en archivo ) y otra cosa es print a secas ( devuelve al navegador )

Saludos

[tato_arm]

Hola.
Gracias por ayudar. En las pruebas locales (127.0.0.1) no da error. Pero una vez que lo pruebo en el sitio web (hosting Linux) da el siguiente error:

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

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

O sea 500 Internal Server Error.

Aclaro, solo dejo que se imprima el "Content-type: text/html\n\n". No se dode puede estar la falla ahora.

Muchas gracias por ayudar.

Luis

[monoswim]

Le diste permisos de ejecución chmod 755 ? lo subiste en forma de ASKII en vez de binario ?

primero sube un hola mundo para ver que todo funcione bien

Saludos

[tato_arm]

Hola,

Si, tiene los permisos de ejecución 755 y lo subo en auto mode con el Core ftp

Gracias

[tato_arm]

Hola,

Gracias por todo, ya se soluciono, era un problema del servidor, pedi el informe del fichero error-log y ellos me lo solucionaron sin informarme de ese fichero. Pero en definitiva no hace falta colocar el print "Content-type: image/pjpeg\n\n"; eso esta demas en el script. Igual con eso lo mismo tendria que funcionar bien, el error estaba en el servidor.

Salu2