|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 13 May 2002 16:09:08
To : "tal"
Subject : Re: Perl: Отдать файл клиенту (с возможностью докачки)
--------------------------------------------------------------------------------
Здравствуй, tal.
t> #!/usr/bin/perl -d
t> $File="1.zip";
t> $ff=(-s $File);
t> $ff2=$ff-1;
t> $localtime = localtime();
t> ###### Заголовок
t> print "Content-type: application/stream \n";
t> print "Accept-Ranges: bytes\n";
t> print "Content-Length: $ff \n";
t> print "Last-Modified: $localtime \n";
t> print "Content-disposition: filename=1.zip \n\n";
t> ###### Читаем из файла
t> open(F,$File);
t> @t=<F>;
t> close(F);
t> print @t;
t> exit(0);
t> Понимаю что ответ должен быть HTTP/1.1 206 Partial Content
t> а имеем HTTP/1.1 200 Ok
Выучить наконец спецификацию CGI, благо ее там экранов на пять от силы...
print "Status: 206 Partial Content\n";
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Perl: Отдать файл клиенту (с возможностью докачки) 
