[bcn-pm] download archivo en cgi

carlos escribano ces at buki.dyndns.org
Sun Jun 29 14:49:12 CDT 2003


El Domingo 29 Junio 2003 20:37, Xavier Noria escribió:
> Enviando
>
>     Content-Type: application/x-tar
>     Content-Encoding: x-gzip
>
> no funciona tampoco?

No, esa codificación (y otras que he probado) no van.

He hecho un script aislandolo del resto, quedando así:
#!/usr/bin/perl
my $dir="/tmp";
my $filename="weave";
open DOWNLOAD, $dir . '/' . $filename . '.tar.gz';
#binmode(DOWNLOAD);
binmode STDOUT;
#select STDOUT; $|=1;
                                                                                                                                            
my @info = stat(DOWNLOAD);
my $length = $info[7];
my $blksize = $info[11] || 16384;
                                                                                                                                            
print "Content-Type: application/x-tar\n";
print "Content-Encoding: x-gzip\n";
#print "Content-type: application/x-zip-compressed\n";
print "Content-Disposition: attachment; filename=\"". $filename . 
".tar.gz\"\n";
print "Content-Length: $length\n\n";
binmode(DOWNLOAD);
                                                                                                                                            
my $buffer;
while (!eof(DOWNLOAD)) {
    read(DOWNLOAD, $buffer, $blksize);
    print $buffer;
}
close(DOWNLOAD);
exit;

Y sigue igual. Tienes apache instalado? A ver si podrias probarlo, cambiando 
el valor de my $dir, apuntando a donde haya algun tarball, y poniendo en my 
$filename el nombre sin ruta ni extensión. 

Estoy mirando en las directivas de Apache y no veo nada referente a no admitir 
las cabeceras http.




More information about the Barcelona-pm mailing list