ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Aleksey Kotov                        2:5020/2138.19 18 Nov 2001  04:05:11
 To : Timur Sabirzyanov
 Subject : download
 -------------------------------------------------------------------------------- 
 

 
 
 17 ноября 2029 года (а было тогда 18:18)
 Timur Sabirzyanov в своем письме к All писал:
 
  TS> Вопросы:
  TS> - Какой Content-type я должент отдать чтоб на той стороне поняли что
  TS> валится бинарник?
  TS> - Как осуществить докачку?
  TS> - Как кодировать (uue,mime,base64) бинарник чтобы он не испоганился в
  TS> ходе перекачки?
  TS> - Может всё же готовое решение есть?
 
 #!/usr/bin/perl
 
 $filename="../$ENV{PATH_INFO}";
 
 if (open (FILE, "<$filename")){
     print "Content-Type: application/octet-stream\n";
     print "Content-Disposition: attachment; filename=\"$filename\"\n\n";
     binmode FILE;
     binmode STDOUT;
     while (read(FILE, my $buffer, 1024)){print $buffer;}
     close FILE;
 }else{
     print "Content-Type: text/html\n\nFile is not found or locked.";
 }
 Kotov. Aleksey Kotov.
 ... Будет весело, обещаю...
 --- GoldED+/W32 1.1.4.7
  * Origin: -= Клянyсь я пеpвым днем твоpенья ... =- (2:5020/2138.19)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    download   Timur Sabirzyanov   17 Nov 2001 19:18:01   download   Aleksey Kotov   18 Nov 2001 04:05:11   download   Alexander Topolskiy   20 Nov 2001 05:57:44   Re: download   Stas Vlasov   18 Nov 2001 12:09:13