|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Denis Poznyakov 2:450/160.8 10 Oct 2001 18:49:34
To : Alexander V. Gaiduk
Subject : Скрипт скачивания
--------------------------------------------------------------------------------
>> >> вызове "/cgi-bin/download.cgi?/docums/qqq.doc" броузер начинал
>> >> скачивать файл /docums/qqq.doc)? Имхо тут что-то завязано с
>> P> open(FILE,$path.$myfile);
>> P> print "Content-type: application/octet-stream\n";
>> P> print "Content-Length: ".(-s FILE)."\n";
>> P> print "Content-Disposition: attachment; filename=$myfile\n\n";
>> P> while (read(FILE, $file, 1024000)) { print $file };
>> P> close FILE;
>> P> PS: Если под Виндами, нужно еще вставить binmode
>> ну ну , насоветуй, таким методом потом серваки вскрываются очень
AVG> нука, нука, вот отсюда по подробней, плизз.
AVG> тока сразу отрежу: в $path.$myfile могут попасть только
AVG> разрешенные к загрузке файлы (по заранее сделанному списку).
если по заранее сделанному - тогда фигли, а если из параметра брать то фсе
Best regards,
internet-programmer Denis Poznyakov
ICQ: 5915230
http://pvdlab.net
pvdenis@pvdlab.net | pvdenis@yahoo.com
... rm * -r...BEER II INSIDE
--- Золотой дед GoldED+/W32 1.1.4.7 !!!
* Origin: IBA-7 Station (2:450/160.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
