print 'Content-Disposition: attachment;name "" \r\n\n';
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
He generado un PDF con el módulo PDF::Create y lo tengo guardado en el servidor: .../PROYECTO/PDF/fichero1
Los CGI están guardados en la carpeta .../PROYECTO/GGI-BIN/*.pl
Bueno, el tema es que estoy intentando que el cliente pueda descargar ese pdf y lo que yo hago es crear un botón de descarga que llama a DownloadPDF.pl.
Y en este módulo hago lo siguiente:
Using perl Syntax Highlighting
- use DBI;
- use CGI;
- my $query = new CGI;
- my %FORM = $query->Vars;
- print "Content-type: text/html\r\n\r\n";
- print 'Content-Type:application/octet-stream; name= "../PDF/ficheroPDF"\r\n';
- print 'Content-Disposition: attachment; filename="../PDF/ficheroPDF1"\r\n\n';
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Se me abre la ventana de descargar y no descarga nada.
He estado leyendo bastante sobre el tema y he visto que tengo que leer el fichero para poder escribirlo o algo así.
he probado también con cosas así, pero tampoco funciona:
Using perl Syntax Highlighting
- print header (
- -type => "pdf",
- -attachment => "http://localhost/proyecto/pdf/FICH1.pdf",
- -content_length => -s "http://localhost/proyecto/pdf/FICH1.pdf",
- );
- open(OUTFILE,"<http://localhost/proyectoManu/pdf/NONONO.pdf");
- binmode(OUTFILE);
- while(<OUTFILE>){
- print "$_";
- }
- close(OUTFILE);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
A ver si me podéis echar una ayuda, porque en este tema está todo bastante confuso. ¡Ah!, se me olvidaba: también he bajado el módulo http://search.cpan.org/dist/Net-Downloa ... d/Queue.pm , pero tampoco lo he podido hacer funcionar.