VPF::Как задавать расширение динамически

aksined

Дата 26.5.2006, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 26.12.2005

Репутация: нет
Всего: 1

Есть файлы в базе. Они неким образом отображаются на странице.
Пользователь имеет возможность указать те из них, которые ему нужны.
Они пакуются в архив и выдаются ему взад.

Вопрос.
Все из перечисленнго сделать смог.
Проблема в том, диалог при сохранении загружемого файла не содержит расширения
что для к\онечного пользоваателя неудобно - каждый раз вводить .zip

korob2001

Дата 27.5.2006, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

А переименовать не пробовал?

Код

my $file = "archive";
rename($file,"$file.zip");

Если выдаёшь архив из памяти, то попробуй выдавать его с таким заголовком:

Код

print "Content-Disposition: filename=$file.zip \n";

Это сообщение отредактировал(а) korob2001 - 27.5.2006, 12:33

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Usya

Дата 27.5.2006, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 7.6.2005

Репутация: нет
Всего: нет

Можно сделать, как сказал korob2001, но кажется здесь и проще можно, хотя надо видеть код.
Ведь перед тем как паковаться имя файла скорее всего заносится в какую-нибудь переменную, например, $file.
А дальше $file.='.zip' и можно паковать.
Но опять же - надо видеть код.
smile

--------------------

Я не волшебник, я только учусь...

aksined

Дата 27.5.2006, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 26.12.2005

Репутация: нет
Всего: 1

Спасибо за ответы
Переименовать

Цитата

А переименовать не пробовал?

- стеб забавный. я же написал, что создается файл динамически.

Вот второй вариант подходит. Правда проверить смогу только через неделю на работе.

Извиняюсь, что не привел код, просто писал его давно и сейчас нет перед глазами. По памяти выходит так:

Код


use Archive::Zip;
my $q = Archive::Zip->new();
for($cgi->param(param)){
  $q->AddMember($_) || die;
}
$q->WriteToFileHandle(STDOUT);

Спасибо Korob за Content-Disposition, я, по наивности, думал, что достаточно Content-Type

aksined

Дата 7.6.2006, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 26.12.2005

Репутация: нет
Всего: 1

Korob, спасибо большое
все стало хорошо после добавления в http-заголовок строки о Disposition

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »