Автор Тема: Как получить заголовок ответа броузера на perl  (Прочитано 4884 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Sergg

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 55
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.prikol.net/
Вообщем нужно чтобы при заходе на скрипт броузер (в моем случае wap-броузер телефона) передал скрипту заголовок (header). Как прочитать такой заголовок на perl (или на крайний случай на php).

Т.е допустим посетитель с помощью броузера телефона зашел на страницу скрипта, и броузер передал скрипту заголовок типа:

POST / HTTP/1.1
Host: 82.147.179.201:2000
X-Wap-Profile: "http://nds.nokia.com/uaprof/N3510ir100.xml", "1-4csgll//4OzaR6U7yLPStg==", "2-XnrTOLDzBJdZHN2vSasoNA==", "3-Z+lJzsFTo4qT8wYH1WfzIQ==", "4-HC5l5j+eQ9tPRpdhsseJIQ=="
Content-Type: application/x-www-form-urlencoded
User-Agent: Profile/MIDP-1.0 Configuration/CLDC-1.0
Accept: */*
Accept-Language: en
Accept-Charset: *
и т.п

Как его прочесть в скрипте и сохранить.

Искал нужные функуции на perl, но везде пишется как посылать заголовок броузеру, а не как принимать и обрабатывать.

Помогите плиз.
« Последнее редактирование: 19 Мая 2005, 20:26:24 от Sergg »
С уважением Сергей Груздев

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Цитировать
Sergg:
броузер передал скрипту

Неверно. броузер передал серверу.
The documentations is your friend

Оффлайн Sergg

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 55
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.prikol.net/
Наверно, не суть, суть в том что мне это надо получить как-то.

Находил на php через
$HTTP_SERVER_VARS["HTTP_X_WAP_PROFILE"];

но дело в том что на одних телефонах нужное мне называется HTTP_X_WAP_PROFILE, на других вообще не известно как. Поэтому и надо сначала сохранять куда-то все эти ответы чтобы потом понять что выцеплять.
С уважением Сергей Груздев

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Цитировать
Sergg:
Наверно, не суть

Ошибаешся. Смотри логи сервера, там все есть(если логи правильно настроены).
The documentations is your friend

Оффлайн Sergg

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 55
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.prikol.net/
Логи сервера я знаю как выглядят, и там нет того что мне нужно. Тем более получать ответ от броузера мне надо в скрипте, а не смотреть их в логах.

Тем более тот пример заголовка что я привел я совниваюсь что получу в логах, тем более я привел только где-то 1/3 всего заголовка.

Мне нужен конкретный ответ,  а не ответы правильно ли я сформулировал вопрос или нет (тем более когда Вы поняли что я имел в вопросе).
С уважением Сергей Груздев

Оффлайн cr4ck3r

  • Фанат Perl
  • Постоялец
  • ***
  • Сообщений: 146
  • +0/-0
  • 2
    • Просмотр профиля
    • http://perlmonks.org.ru
Дело именно в том что вы неверно представляете себе природу этого механизма, остюда и неправильно поставленный вопрос, и соответственно у вас неполучится принимать заголовки скриптом, так как эти заголовки получает сервер, обрабатывает и только затем некоторые данные поступают в ваш скрипт. Поэтому такой заголовок вы никак прочитать не сможете на стороне сервера (разве что из логов). Сервер передает скрипту данные (некоторые) из заголовка в хэше %ENV, оттуда вы можете попробовать что-то прочитать. Для теста попробуйте в своем скрипте конструкцию типа:

print "Content-Type: text/html\\n\\n";
foreach (keys %ENV) { print "$_ $ENV{$_}\\n"; }

И посмотрите что получает скрипт от сервера в результате вашего запроса.
Ворота в perl - perlmonks.org.ru

Оффлайн Sergg

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 55
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.prikol.net/
Спасибо. Это почти то что нужно, по крайней мере реальные сотики передают скрипту все что нужно для работы правда одни в одном виде другие в другом.
« Последнее редактирование: 20 Мая 2005, 10:24:27 от Sergg »
С уважением Сергей Груздев

Оффлайн glebushka

  • студент
  • Ветеран
  • *****
  • Сообщений: 944
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.intellectuals.ru
mod_perl рулит:)
Ну к чему все это, лучше бы водки выпили...

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28