![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
GR0Mi |
|
||||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
парни помогите авторизироватся на летитбит
специально сохраняю что отвечает сервер вот ответ при чекер 3 аков. странно что только код а не страница авторизации
если акк валид перенаправление на http://wm.letitbit.net/?a=4 , если бед то на http://wm.letitbit.net/signin.php?errors=login подскажите где ошибка |
||||
|
|||||
shamber |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1422 Регистрация: 5.9.2006 Где: Россия Репутация: нет Всего: 18 |
GR0Mi, попробуйте посмотреть, что передает браузер, и сравните с тем что передаете вы. Тогда и станет понятно, где проблема
|
|||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
именно от передаваемого браузером всегда отталкиваюсь при подобных авторизациях. передаю все перееные. дело даже в том что оно сохраняет только код. а страницу не получает. получил страницу методом гед. но даные передать не получается
|
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
||||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
вопрос в том. где в коде ошибка. почему не могу атворизирвоатся. все данные передаю верные
код ето my $resp = $ua->post('http://wm.letitbit.net/signin.php',->code; когда сервер тее возвращает 200 \ 302 и тд а страница полученая my $resp = $ua->post('http://wm.letitbit.net/signin.php',,])->as_string; должна выглядеть как обичная веб страница только с верху
|
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
Еще есть метод content() если нужна страница без хедеров.
Ближе к делу: загляните в perldoc LWP::UserAgent Там сказано о requests_redirectable, который по умолчанию равен ['GET', 'HEAD'] Вы делаете POST, поэтому LWP не редиректится автоматически. |
|||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
благодарю. в E:\Perl\lib\LWP\UserAgent.pm в двух местах добавил метод post и все заработало. большое спасибо |
|||
|
||||
Pfailed |
|
||||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
То, что вы сделали категорически неправильно. Зачем менять исходный код модуля, если он предоставляет необходимые интерфейсы? Еще раз, посмотрите perldoc LWP::UserAgent
Либо задать requests_redirectable при вызове конструктора. |
||||
|
|||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
можно подробней. не очень понял. столкнулся с проблемой что то что я изменил теперь другие скрипты не работают коректно |
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
Ну куда уж подробней? Я привёл вам цитату из perldoc, о том как это делается в своём предыдущем сообщении. Что непонятно? |
|||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
все равно не могу понять как заставить скрипт работать не меняя исходный код модуля
|
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
||||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
по видимому я тупей чем мог предпологать. где имено етот код вставить в скрипте?
|
|||
|
||||
Pfailed |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 933 Регистрация: 19.7.2009 Репутация: 2 Всего: 39 |
После создания объекта LWP::UserAgent
|
|||
|
||||
GR0Mi |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 85 Регистрация: 9.4.2010 Репутация: нет Всего: нет |
use LWP::UserAgent;
To change to include 'POST', consider: push @{ $ua->requests_redirectable }, 'POST'; use HTTP::Cookies; так? |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl: CGI программирование" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: разработка для Web | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |