|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Eugene Grosbein 2:5006/1 22 Sep 2000 10:47:45
To : Vadim Solomko
Subject : Re: как браузеру передать имя передаваемого файла?
--------------------------------------------------------------------------------
>#!/usr/bin/perl
># upload.cgi
> $datafile="myfile.ext";
> open DATAFILE,"$datafile" || die "Cannot open $datafile $!\n";
> binmode(DATAFILE);
> print "Content-Type: application/octet-stream\n\n";
> sysread DATAFILE, $filedata,-s DATAFILE;
> close DATAFILE;
> print "$filedata";
>-------------------------------------------------------
>
>P.S конструкция типа
>print "Content-Type: application/octet-stream;name=\"myfile.ext\"\n\n";
>игнорируется браузерами ^^^^^^^^^^^^^^^^^^^
Hужно что-то типа:
print "Content-Type: application/octet-stream\n"
print "Content-Disposition: attachment; filename=\"myfile.ext\"\n\n";
Hе помню, входит ли это в стандарт, но браузеры глотают.
Eugene
--- slrn/0.9.6.2 (FreeBSD)
* Origin: SVZ-Service (2:5006/1@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
