|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 07 May 2001 18:06:34 To : bachin@chat.ru Subject : Re: как правильно выдать картинку? -------------------------------------------------------------------------------- Здравствуй, Alex Bachin. В твоём письме от Mon, 7 May 2001 13:36:06 +0000 (UTC) написано: bcr> Помогите дурню, только не отсылайте к perldoc, плиз... $100. bcr> Вздумалось мне написать скриптик, который картинку bcr> выдает. Для некоего подобия рейтинговой системы. bcr> Вот такой маленький кусочек кода (цитирую только bcr> самое необходимое): bcr> $giffile = "/usr/ftp/users/me/public_html/images/file.gif"; bcr> print "Content-type: image/gif\n\n"; bcr> @gifdata = `cat $giffile`; bcr> print @gifdata; bcr> И вопросы с этим связанные: bcr> 1. Хорошо бы чтобы броузер у клиента _кэшировал_ bcr> по возможности эту картинку. Что мне добавить? RTFM: RFC2616. Как минимум - Content-Length, Last-Modified и Expires. bcr> 2. Может как-нибудь по-другому это правильнее писать? bcr> Я таки чайник еще... Тоже верно. Hачиная с третьей строчки меняем на undef $/; open(F,"< $giffile") or die $!; print <F>; close(F); Если тебя угораздило оказаться под виндой, то после open() еще binmode F;. Hо судя по "cat", не угораздило. bcr> 3. Можно ли мне этот скрипт вызывать будет из shtml-файла? bcr> (дело в том, что путь к cgi-bin каталогу на моем сервере весьма bcr> кривой, сервер может переехать на другой хостинг - путь bcr> изменится. А так я заведу файл top.shtml с одной строчкой bcr> <!--#include virtual="мой_кривой_путь/top.cgi"--> bcr> и буду спокоен) ... после того, как огребешь еще некоторое количество геморроя с настройкой SSI. Который, кстати, тоже не на всяком хостинге бывает. -- Artem Chuprina E-mail: ran@ran.pp.ru Programmer FIDO: 2:5020/371.32 Memonet Ltd. Phone: +7-095-284-1356 --- ifmail v.2.15dev5 * Origin: NTV Internet (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/16483ad797029.html, оценка из 5, голосов 10
|