Вопрос следующий. У меня есть CGI-ка которой в качастве параметра передается некий ключ, в ответ она должна отдать пользователю файл (архив к примеру). Т.е. после того как я обращаюсь к http://sample_site.net/download.cgi?key=qwe у меня появляется окошко с предложением записать файл. Вариант с редиректом меня не устраивает, поскольку раскрывает расположение файла на сервере и потом его можно будет скачать без обращения к скрипту. Есть вариант передать заголовок с Content-Type application/x-download и потом просто вывести файл, но тут возникает проблема с тем, как передать имя файла. У кого есть идеи?

Попробуй открыть файл, читать скажем по 1024 байта и выводить в STDOUT, т.е. что-то типа этого.

Код

# Здесь заголовок open( F, "< files/myfile.zip" ) or die $!; binmode STDOUT; print STDOUT $buff while read( F, $buff, 1024 ); close(F);

Хотя точно не уверен, что это поможет. Но по идее должно сработать под никсами, если установить права 0644 на этот файл.

Второй способ, уже наверняка:

0. Создаём блокировку на отдельный файл.
1. Программа получает ключь в качестве параметра.
2. Открывает DBM с записями такого вида: key => faa5a88cff31f2445e.mp3, т.е. каждый файл связан с определённым ключём.
3. Получаем имя файла по ключу.
3. Полученный файл выдаём клиенту.
4. Генерируем новое имя.
5. Переименовуем файл.
6. Изменяем имя файла в DBM файле.
7. Закрываем DBM.
8. Снимаем блокировку.

PERL работает с DBM довольно быстро, переименовка файла производится тоже быстро, так что это не должно сильно затормозить твою программу. Юзер же будет получать старое имя, которое уже не является действительным. Если хочешь выдавать файл с одним и тем же, реальным, именем, то в том же DBM можно так же хранить и его. Например так должна выглядеть одна из записей в нашем DBM:
key => faa5a88cff31f2445e.mp3::real_file_name.mp3
Где real_file_name.mp3 это и есть реальное имя фала, которое будешь передавать в зоголовке. Так же в этом же DBM можно хранить и другую информацию о файле, например его размер и т.д.

Это сообщение отредактировал(а) korob2001 - 4.12.2005, 08:38

То что ты посоветовал у меня уже сделано Файл сопоставляется по ключу, и отдается блоками юзеру, с этим проблем нет. Проблема в том, что имя, под которым юзеру предлагается сохранить файл, это имя скрипта к которому он обращается. А мне нужно что бы у него предлагалось то имя, которое мне надо. Т.е. что бы скачать файл qwe.avi нужно обратиться к URL http://samplesite.net/qwe.avi, а если обратиться к http://samplesite.net/download.cgi?key=qwe то браузер предложит записать файл как download.download (если Content-Type application = x-download). Попробуй сам... Есть еще параметр Content-Dispisition в котором теоретически можно передать имя, но это работает не всегда и не во всех браузерах.

Попробуй таким образом указать заголовок:

Код

print "Cache-control: no-cache\n"; print "Content-Length: $size \n"; print "Content-Disposition: filename=$file \n"; print "Content-type:  application/force-download\n\n";

Пробовал... IE через раз понимает, Opera и Firefox ни разу, wget - тоже не понимает...

Так ты под все браузеры и не подстроишься, они вообще как хотят так и парсят заголовки. Это вечная проблема.
Воспользуйся вторым способом и вместо того, что бы читать файл побайтно, делай на него редирект. Так как имя файла будет каждый раз меняться, то юзеру, единственным способом добраться до файла, будет твоя программа, так как именно она может узнать временное имя файла на сервере.

Это сообщение отредактировал(а) korob2001 - 4.12.2005, 09:34

К сожалению (или к счастью) но политика в нашей мастерской такая, что наши сайты должны работать корректно ПОД ЛЮБЫМ браузером из известных, т.е. как минимум это IE(5.5,6...), Opera, FireFox, Netscape. Таким образом отпадает вопрос в том что "не подстроишься", партия сказала "Надо!" - комсомол ответил "Есть!"
Далее, что касается изменения имени файла на диске. По некоторым соображениям меня это не устраивает. Кроме того, это не решает ту проблему о которой я собственно и говорю. Файл все равно будет отдаваться не с тем именем которое мне нужно. В принципе есть вариант, который может работать со всеми броузерами. Имя файла для отдачи браузерами берется из самого URL на тот случай, если в заголовках его не будет(вероятно). Таким образом, надо сделать так, что-бы песледним элементом пути в запрашиваевом URL был нужный нам файл, что-то такое:
http://samplesite.net/qwe.avi?key=qwe Осталось только отделить зерна от плевел и все получится. Тут нам может помочь .htaccess, есть у него такая опция:

Код

Action myaction /cgi-bin/download.cgi AddHandler myaction *.avi

Т.е. при обращении к файлам с расширением avi у нас вызыватеся скрипт, который отделяет имя файла и переданный параметр, а потом передает это cgi-ке, которая и отдает файл. Что-то в этом роде.

Это сообщение отредактировал(а) Kiber_rat - 4.12.2005, 10:57

Цитата

К сожалению (или к счастью) но политика в нашей мастерской такая, что наши сайты должны работать корректно ПОД ЛЮБЫМ браузером из известных, т.е. как минимум это IE(5.5,6...), Opera, FireFox, Netscape. Таким образом отпадает вопрос в том что "не подстроишься", партия сказала "Надо!" - комсомол ответил "Есть!"

Ну это нормальная политика, для всех WEB разработчиков. Только в данный момент речь идёт не о теле документа, а о его заголовке. Если ты файл не будешь переименовывать, то его имя можно будет запросто узнать воспользовавшись таким софтом как например: ReGet Deluxe.

Это сообщение отредактировал(а) korob2001 - 4.12.2005, 11:37

Ты что-то упустил, для меня не важно узнает юзер имя файла или нет, важно

Цитата

расположение файла на сервере и потом его можно будет скачать без обращения к скрипту

Кой чего получилось.
Вот код:

Код

#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard); my $right_key='qqwwee'; my %Q=CGI::Vars(); my $file = do{$ENV{PATH_INFO}=~m#^.*/([^/\?]+).*$#;$1}; unless (-e "$file" and $Q{key} eq $right_key) {     print header();     print '<center><font color=red>Error, file not exists or wrong key!';     exit; }    open my $fh, "<$file" or die "$!\n"; my $buf=0; $|=1; print header(     -type=>'application/force-download',      -disposition=>"attachment, filename=$file", ); print $buf while read($fh, $buf,1024); exit;

Скрипт кладем в папку files (вместе с файлами для скачивания) и туда же кладем такой .htaccess

Код

Action qwe /files/test.cgi     AddHandler qwe .avi     AddHandler qwe .wmv     AddHandler qwe .mov Options +ExecCGI

Запрашиваем файл так: http://samplesite.net/files/file.avi?key=qqwwee

Это сообщение отредактировал(а) Kiber_rat - 4.12.2005, 12:19

Kiber_rat то, что ты хочешь сделать, называется системой антилича. (by the way )

Цитата(Kiber_rat @ 4.12.2005, 13:13)

Скрипт кладем в папку files (вместе с файлами для скачивания) и туда же кладем такой .htaccess Код Action qwe /files/test.cgi     AddHandler qwe .avi     AddHandler qwe .wmv     AddHandler qwe .mov Options +ExecCGI Запрашиваем файл так: http://samplesite.net/files/file.avi?key=qqwwee

К сожалению, но так не корректно! Для этих целей есть mod_rewite.

Код

RewriteEngine On RewriteRule ^files/(.*)\.avi cgi-bin/script.pl [L,QSA]

Это самый примитивный пример, плюс: читаем параграф Артемия Лебедева о чистоте url.

И все-таки ссылку для скачивания лучше сделать через сессии, например, такой:

Цитата

http://samplesite.net/files/faa5a88cff31f2445e88cff31f2445e/real.file

А сам файл реально может находиться где угодно.

Честно говоря, я не уверен, что то, что мне надо, это "система антилича", есть схожие требования и все. Далее

Цитата

http://samplesite.net/files/faa5a88cff31f2445e88cff31f2445e/real.file

- это удобочитаемый URL? (это к статье Лебедева)
Далее, что касается сессий. Если я ничего не путаю, сессии предназначены для того, что бы хранить данные связанные с определенныи пользователем, ну или что-то в этом роде. У меня человек получает письмо с URL по которому он может скачать файл, с сайта, на котором кроме возможности скачать с него файл (по уникальному ключу) больше ничего нет и быть не должно... Сессии?

Цитата

К сожалению, но так не корректно! Для этих целей есть mod_rewite.

- можно несколько более развернутый ответ? Как именно мне поможет mod_rewite в приложении к моей задаче. И последнее, что именно некорректно в моем коде? То что после имени файла идет передаваемый параметр? Так это не противоречит RFC, болеетого, я не уверен что это противоречит чему-то из того, о чем писал Лебедев...

Kiber_rat

Цитата(Kiber_rat @ 5.12.2005, 19:42)

Честно говоря, я не уверен, что то, что мне надо, это "система антилича", есть схожие требования и все.

Цитата(Kiber_rat @ 5.12.2005, 19:42)

Цитата http://samplesite.net/files/faa5a88cff31f2...2445e/real.file - это удобочитаемый URL? (это к статье Лебедева)

Отличная ссылка на скачку, один раз скачал и забыл.
На самом деле, в url следует избегать ипользовать символы ?, &, = и др., об этом и велась речь в статье и именно это я тебе написал.

Цитата(Kiber_rat @ 4.12.2005, 04:38)

поскольку раскрывает расположение файла на сервере и потом его можно будет скачать без обращения к скрипту

ты хочешь спрятать файл, т.е. его можно скачать только зайдя на сайт по конкретной ссылке.
Если ты хочешь сделать так, чтобы скачал и забыл + нельзя было бы скачать это потом или выложить ссылку для скачки, то сессии по любому.

Цитата(Kiber_rat @ 5.12.2005, 19:42)

Если я ничего не путаю, сессии предназначены для того, что бы хранить данные связанные с определенныи пользователем, ну или что-то в этом роде

и для этого тоже.

Можешь поискать решения антилича и посмотреть как там работают ссылки на скачку.

Цитата(Kiber_rat @ 5.12.2005, 19:42)

Как именно мне поможет mod_rewite в приложении к моей задаче.

Цитата(sharq @ 5.12.2005, 18:54)

Для этих целей есть mod_rewite. RewriteEngine On RewriteRule ^files/(.*)\.avi cgi-bin/script.pl [L,QSA]

Цитата(Kiber_rat @ 5.12.2005, 19:42)

что именно некорректно в моем коде

Решение подобной задачи. Просто посмотри mod_rewrite и пойми о чем я тебе говорю.

Если тебе не нравится предложенный вариант решения, то забудь.
Хотя по-моему это лучше.

Все таки не пойму как мне использовать сессии. Приведи пример плз. Еще раз объясню задачу. Юзер получает письмо в котором лежит URL по которому он может скачать некий файл. Вместе с URL надо предать некий код, который позволит однозначно идентифицировать этого юзера (к примеру запомнить что юзер с таким кодом заходил с такого-то IP, столько то раз). То есть, до того как юзер зайдет скачивать файл, он на сервере ни разу не был. Ты можешь рабочий пример написать?