ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     10 Mar 2002  16:40:47
 To : Alexandre Bougakov
 Subject : Re: LWP и редирект
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Alexandre Bougakov.
 
 AB> * Message was cross-posted to fido7.ru.cgi.perl
 
 А там это оффтопик...
 
 AB> Имеется такая задача - хочется вставлять в текст страницы текст
 AB> наподобие "Я в онлайне (офлайне)" или свой собственный рисунок вместо
 AB> уродских фирменных кнопок ICQ. Раньше это работало очень просто -
 AB> LWP-симплом с
 AB> http://wwp.icq.com/scripts/online.dll?icq=84619830&img=2 скачивался
 AB> гифчик, и по его размеру определялось состояние моей аськи, и, исходя
 AB> из последнего, выбирался и текст(картинка).
 
 AB> Hо уже сравнительно долгое время назад ICQ.com перевели на новый
 AB> движок, а для сохранения преемственности со старых URL'ов сделали
 AB> редиректы на новые размещения картинок, и всё перестало работать:
 
 AB> GET /whitepages/online?icq=84619830&img=5 HTTP/1.1 
 AB> Host: wwp.icq.com 
 AB> User-Agent: Telnet 1.0 
 
 AB> HTTP/1.1 301 Moved Permanently 
 AB> Date: Sun, 09 Mar 2002 09:58:37 GMT 
 AB> Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 
 AB> Location: /lib/image/0,,4371,00.gif 
 AB> Cache-Control: max-age=0 
 AB> Expires: Sun, 09 Mar 2002 09:58:37 GMT 
 AB> Transfer-Encoding: chunked 
 AB> Content-Type: text/html  
 
 AB> - это для "user is online"
 
 AB> telnet wwp.icq.com 80 
 
 AB> GET /whitepages/online?icq=10343151&img=5 HTTP/1.1 
 AB> Host: wwp.icq.com 
 AB> User-Agent: Telnet 1.0 
 
 AB> HTTP/1.1 301 Moved Permanently 
 AB> Date: Sun, 09 Mar 2002 09:59:32 GMT 
 AB> Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 
 AB> Location: /lib/image/0,,4349,00.gif 
 AB> Cache-Control: max-age=0 
 AB> Expires: Sun, 09 Mar 2002 09:59:32 GMT 
 AB> Transfer-Encoding: chunked 
 AB> Content-Type: text/html 
 
 AB> - а это - для "user is offline"
 
 AB> Размер ответа и в первом, и во втором случае одинаковы и различение
 AB> нужно проводить по тому, куда указывает Location, а вот как это
 AB> сделать, я не знаю. Помогите, плиз! Решением-минимум для меня будет
 AB> просто описание способа, как загнать заголовки ответа сервера в
 AB> переменную ($response = $res->content; не предлагать :-)
 
 $res->header('Location') ? Сам бы, между прочим, мог глянуть ref($res) и
 
 почитать perldoc от этого класса...
 
 P.S. А еще умнее взять Net::ICQ2000 и не изгаляться через LWP с крайне
 неочевидным протоколом на том конце.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    LWP и редирект   Alexandre Bougakov   09 Mar 2002 23:34:56   Re: LWP и редирект   Artem Chuprina   10 Mar 2002 16:40:47