ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : tal 2:5020/400 13 May 2002 14:39:20
To : All
Subject : Perl: Отдать файл клиенту (с возможностью докачки)
--------------------------------------------------------------------------------
Делаю так
#!/usr/bin/perl -d
$File="1.zip";
$ff=(-s $File);
$ff2=$ff-1;
$localtime = localtime();
###### Заголовок
print "Content-type: application/stream \n";
print "Accept-Ranges: bytes\n";
print "Content-Length: $ff \n";
print "Last-Modified: $localtime \n";
print "Content-disposition: filename=1.zip \n\n";
###### Читаем из файла
open(F,$File);
@t=<F>;
close(F);
print @t;
exit(0);
Понимаю что ответ должен быть HTTP/1.1 206 Partial Content
а имеем HTTP/1.1 200 Ok
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
