Ver Tema

bAsTeR · 2010-06-07 18:29 @812

Hola,

Tengo una pregunta que no encuentro solución, o al menos a mi no me funciona.

Necesito un código para forzar al navegador a descargar un archivo, esto es, tengo un sistema donde subo archivos a mi servidor, estos pueden ser imágenes, audio y más, pero resulta que cuando quiero descargar un archivo éste se abre en el navegador, en el caso de las imágenes, en el reproductor de audio en el caso de audios, y así.

Por lo que necesito que el usuario al dar clic, se abra la ventana donde él escoja dónde guardar el archivo. Vi un código en PHP y traté de pasarlo a Perl pero no lo conseguí.

Alguna pista, amigos.

Gracias.

danimera · 2010-06-07 23:09 @006

No es una solución al problema, pero súbelos comprimidos. Ahí sí te permitirá descargar...

No, mentiras... Puedes usar File::Download para hacer la descarga. Es recomendado para archivos grandes, pero es algo así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

 my $dwn = File::Download->new({

     file => $argfile,

     overwrite => 1,

     mode => ($opt{a} ? 'a' : 'b'),

   });

   print "Downloading $url\n";

   print $dwn->download($url);

   print $dwn->status();

explorer · 2010-06-08 06:39 @319

Es muy sencillo... solo tienes que agregar

Content-disposition: attachment; filename=fichero

a la cabecera HTTP de la respuesta a la petición que te hace el cliente.

Si usas el módulo CGI, te vale con ponerlo en el header():

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print header (

    -type => 'image/jpg',

    -Content-disposition => "attachment; filename=$nombre_de_la_imagen",

    -Content_length => -s $nombre_de_la_imagen,

);

El Content_length es opcional, la mayoría de los casos, pero así el usuario (su sistema operativo) sabe cómo de largo es el fichero que estás transmitiendo.

El valor que se le pasa a type es el MIME Type del fichero a transmitir. En el ejemplo, una imagen.

El File::Download que te indica danimera es para justo lo contrario (descargarte un fichero), no para subir un fichero hacia el usuario.

bAsTeR · 2010-06-08 10:53 @495

Muy bien,

Ya descarga el archivo pero el detalle es que lo descarga de 0 bytes. ¿Cuál puede ser el problema?

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print header (

   -type => "image/jpg",

   -attachment => "tool.jpg",

   -content_length => -s "tool.jpg",

);

explorer · 2010-06-08 10:56 @497

Humm... que tool.jpg no está en el mismo directorio que el CGI que estás ejecutando.

explorer · 2010-06-08 10:58 @498

Y además, ten en cuanta que con header() solo envías la cabecera HTTP. Luego debes enviar el fichero. Para ello, debes hacer un bucle, leer el fichero original (en binario), y mandarlo por la salida estándar (que es donde está escuchando el cliente).

bAsTeR · 2010-06-08 11:25 @517

Sí, me faltaba leer el archivo.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print header (
   -type => "image/jpg",
   -attachment => "tool.jpg",
   -content_length => -s "tool.jpg",
);
 
open(OUTFILE,"<tool.jpg");
binmode(OUTFILE);
while(<OUTFILE>){
   print "$_";
}
close(OUTFILE);
 

Otra pregunta. En teoría, si quisiera hacerlo para todos los tipos de archivos, tendría que cambiar solamente el type en el header, ¿o qué tendría que hacer?

explorer · 2010-06-08 17:38 @776

Sí, con cambiar el type, vale.

Publicidad

Socializa