Форум Flasher.ru - LWP и редирект

* Message was cross-posted to fido7.ru.perl, fido7.ru.perl

Добрый день,

Имеется такая задача - хочется вставлять в текст страницы текст
наподобие "Я в онлайне (офлайне)" или свой собственный рисунок вместо
уродских фирменных кнопок ICQ. Раньше это работало очень просто -
LWP-симплом с
http://wwp.icq.com/scripts/online.dl...84619830&img=2 скачивался
гифчик, и по его размеру определялось состояние моей аськи, и, исходя
из последнего, выбирался и текст(картинка).

Но уже сравнительно долгое время назад ICQ.com перевели на новый
движок, а для сохранения преемственности со старых URL'ов сделали
редиректы на новые размещения картинок, и всё перестало работать:

Код:

GET /whitepages/online?icq=84619830&img=5 HTTP/1.1 

Host: wwp.icq.com 

User-Agent: Telnet 1.0 



HTTP/1.1 301 Moved Permanently 

Date: Sun, 09 Mar 2002 09:58:37 GMT 

Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 

Location: /lib/image/0,,4371,00.gif 

Cache-Control: max-age=0 

Expires: Sun, 09 Mar 2002 09:58:37 GMT 

Transfer-Encoding: chunked 

Content-Type: text/html

- это для "user is online"

Код:

telnet wwp.icq.com 80 



GET /whitepages/online?icq=10343151&img=5 HTTP/1.1 

Host: wwp.icq.com 

User-Agent: Telnet 1.0 



HTTP/1.1 301 Moved Permanently 

Date: Sun, 09 Mar 2002 09:59:32 GMT 

Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 

Location: /lib/image/0,,4349,00.gif 

Cache-Control: max-age=0 

Expires: Sun, 09 Mar 2002 09:59:32 GMT 

Transfer-Encoding: chunked 

Content-Type: text/html

- а это - для "user is offline"

Размер ответа и в первом, и во втором случае одинаковы и различение
нужно проводить по тому, куда указывает Location, а вот как это
сделать, я не знаю. Помогите, плиз! Решением-минимум для меня будет
просто описание способа, как загнать заголовки ответа сервера в
переменную ($response = $res->content; не предлагать :-)

Заранее спасибо!