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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не могу залогинится скриптом, помогите 
V
    Опции темы
burakov
Дата 9.6.2011, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
как обычно smile хочу залогинится, но с этим сайтом не получается

вот какой поганый заголовок в ответ выдается
и на ответной страничке пишет - очистите куки или перезапустите броузер.

Как с этим можно побороться?

Код

HTTP/1.1 422 Unprocessable Entity
Cache-Control: no-cache
Connection: close
Date: Thu, 09 Jun 2011 13:15:43 GMT
Server: nginx
Content-Length: 1925
Content-Type: text/html; charset=utf-8
Client-Date: Thu, 09 Jun 2011 13:14:33 GMT
Client-Peer: 109.234.158.140:80
Client-Response-Num: 1
Link: </assets/application.css?1287686866>; /="/"; media="screen"; rel="stylesheet"; type="text/css"
Set-Cookie: _darberry_session=BAh7BzoPc2Vzc2lvbl9pZCIlZWNjZDc1NjEyZmY1NWY2ODgwMjM5ZWE4NWFlYThkZDI6EF9jc3JmX3Rva2VuIjFNNEdKYjVHU2VzMjdmWXdISmoxM3lpOEU1QWQrOFJMaEFZY3RTLzJZT01vPQ%3D%3D--d28921d9f8a1e17a039d845ff236da88513e8fd4; path=/; HttpOnly; domain=.groupon.ru
Status: 422 Unprocessable Entity
Title: Ошибка сессии - Групон
X-Revision: a51c15b92dc47d299ff753a8e508ff7d4f396657
X-Served-By: vs18.darberry.ru



А вот скрипт

Код

use strict;
use warnings;
use File::Path;
use Encode qw (decode encode);
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Cookies;
use Encode qw (encode decode);


my $lwp = LWP::UserAgent -> new ();
$lwp -> cookie_jar (HTTP::Cookies->new ());
$lwp -> agent ('Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16');

login ();
do1 ();

sub login {
    my $url = 'http://www.groupon.ru/signup';
    my $postdata = 'authenticity_token=BQAFVV01oldN%2BbXSmBZ7ckkf3HSXrm3fXNcF9Wpfz%2F4%3D&user%5Bremember_me%5D=1&user%5Bemail%5D=gp_project_09062011%40mail.ru&user%5Bpassword%5D=vonkunezu&commit=%D0%92%D1%85%D0%BE%D0%B4';

    push (@{ $lwp->requests_redirectable }, 'POST');

    my $req = HTTP::Request -> new ('POST' => $url);

    $req -> content_type ('application/x-www-form-urlencoded');
    $req -> content ($postdata);
    my $res = $lwp -> request ($req); 
    print encode ('cp1251', decode ('utf8', $res -> as_string ()));
}


sub do1 {
    my $url = 'http://www.groupon.ru/piter';
    my $req = HTTP::Request -> new ('GET' => $url);
    my $res = $lwp -> request ($req, '1.txt');
    print $res -> code ."\n";
}


Может быть  такое , что куки сильно длинные? smile как бы не помещаются?

Это сообщение отредактировал(а) burakov - 10.6.2011, 14:33


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
EcSYZ
Дата 9.6.2011, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
А вот я с LWP солидарен - стрёмный это сайт, который только и просит поделиться своей мобилой и ещё чем нить.
Так что хорошо что не пускает

Это сообщение отредактировал(а) EcSYZ - 9.6.2011, 18:20
PM MAIL WWW   Вверх
burakov
Дата 9.6.2011, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
посмотрел на HTTP статусы 

422    Необрабатываемый элемент    
Сервер не в состоянии обработать один (или более) элемент запроса (получен код 422 Unprocessable Entity).
Чего он может не обработать? Вроде все делаю как всегда, а результата нет


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
infarch
Дата 10.6.2011, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
my $postdata = 'POSTDATA=authenticity_token...'

Вот это смущает. Может написать просто my $postdata = 'authenticity_token...'
PM MAIL   Вверх
burakov
Дата 10.6.2011, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Да - это действительно ошибка явная (подправил) - хотя залогинится - все равно не получается - 
смущает, то что он в ответе на POST запрос пишет , включите КУКИ (или очистите - но они же у меня включены!)


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
infarch
Дата 10.6.2011, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
Надо сравнивать. Зайдите браузером и посмотрите что передается, потом тоже самое скриптом. Для анализа можно использовать andiparos.
PM MAIL   Вверх
burakov
Дата 10.6.2011, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
как этот андипарос под винду настроить он же линуксовый tar.gz?


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
infarch
Дата 10.6.2011, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
http://code.google.com/p/andiparos/downloads/list
PM MAIL   Вверх
EcSYZ
Дата 10.6.2011, 18:55 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
infarch, тут andiparos не в чести. Предложения заюзать Java тулзы загоняют людей в жесточайший ступор и вызывая не контролируемые приступы паники.
PM MAIL WWW   Вверх
infarch
Дата 10.6.2011, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1
EcSYZ, это проходит smile Нужда заставит, любой тулкит освоишь.
PM MAIL   Вверх
burakov
Дата 11.6.2011, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Поставил этот андипарос - спасибо за ссылку на download под windows
Именно под Винду я его никак найти не мог.

посписал с него заголовки 
и залогиниться получилось (хоть конечно и не с первого раза smile )

Пожалуй действительно этот андипарос самая лучшая прога по анализу заголовков - тут конечно он вне конкуренции.
Всем спасибо за подсказки и терпение.

Тему закрываю.



Это сообщение отредактировал(а) burakov - 11.6.2011, 00:19


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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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