Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка POST-запроса, Отправка POST-запроса с куками 
:(
    Опции темы
firstweb
Дата 16.2.2010, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте,
Сразу скажу, что только начинаю постигать Perl.
Основы прочитал, но не совсем понимаю про отправку POST-запроса.

В общем на сайте есть HTML-форма авторизации:

Код

<form id="submx" action="site.ru/script" method="post">

<input name="email" value="">

<input name="password" value="">

<input type="checkbox" name="remember">

<input type="submit" name="button_go">
</form>


Задача - отправить на скрипт site.ru/script POST-запрос и сохранить полученные куки.
Прочитал на опеннет и других РТФМ-доках про отправку POST-запроса, но не совсем понимаю что именно надо передавать.
На данный момент есть скрипт:

Код

#!/usr/bin/perl -w

use LWP;

$login="tester2014";
$password="123QWEqwe";
 
my $url = 'site.ru';
my $browser = LWP::UserAgent->new();
$browser->cookie_jar({});
$browser->post($url, {
                        ## содержимое post-запроса
                    }
                );


Код

$browser->cookie_jar({}); - правильно ли включаю поддержку куков, чтобы потом можно было пользоватса ими?


## содержимое post-запроса - правильно ли понимаю что тут должно быть что-то типа:
POST /login.php HTTP/1.1
Host: site.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.5) Gecko/20091102 MRA 5.4 (build 02647) Firefox/3.5.5 WebMoney Advisor
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
X-Requested-With: XMLHttpRequest
Referer: http://site.ru/login.php
Content-Length: 18
Cookie: remixlang=0; remixchk=5; remixautobookmark=30; remixclosed_tabs=0; remixgroup_closed_tabs=0; remixfilters=8191; remixdeffriendgroups=164; remixnews_privacy_filter=0; remixnews_types=2147478270; remixclosed_tabs=12; remixref=1326219; remixnews_privacy_filter=0; remixgroup_closed_tabs=0; audio_vol=80; remixsid=nonenone
Pragma: no-cache
Cache-Control: no-cache
op=a_login_attempt

PM MAIL   Вверх
klem4
Дата 16.2.2010, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Не очень понял, зачем Вам LWP для получения параметров POST запроса в Вашем скрипте. Смотрите в строну модуля CGI.

Это сообщение отредактировал(а) klem4 - 16.2.2010, 22:20
PM MAIL   Вверх
Валерия
Дата 17.2.2010, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Вконтакте прописывает куки не только на vkontakte.ru, но и на login.vk.com
Так что авторизация на нём выходит чу-чуть мудренная)
PM MAIL   Вверх
Pfailed
Дата 17.2.2010, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



В содержимом post запроса хеш, в вашем случае: op => 'a_login_attempt'


--------------------
PM MAIL   Вверх
klem4
Дата 17.2.2010, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Так форма не на Вашем сайте)) Извиняюсь, не верно понял сначала.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0865 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.