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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> авторизация 
:(
    Опции темы
GR0Mi
Дата 22.4.2010, 23:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



парни помогите авторизироватся на летитбит
Код

my $resp = $ua->post('http://wm.letitbit.net/signin.php',
                             ["host" => "letitbit_net",
                             "log" => $login,
                             "pas" => $pass,
                             "inout" => "Sign+In",])->as_string;

        wf($file, $resp);

        if ($resp =~ "http://wm.letitbit.net/?a=4")


специально сохраняю что отвечает сервер
вот ответ при чекер 3 аков. странно что только код а не страница авторизации

Цитата

HTTP/1.0 302 Moved Temporarily Date: Wed, 21 Apr 2010 16:18:34 GMT Via: 1.0 rusresource.ru (squid/3.1.0.17) Location: http://wm.letitbit.net/signin.php?errors=login Server: Apache/1.3.42 (Unix) PHP/5.2.11 Content-Type: text/html Client-Date: Tue, 20 Apr 2010 15:16:37 GMT Client-Peer: 78.140.170.226:80 Client-Response-Num: 1 Proxy-Connection: close X-Cache: MISS from rusresource.ru X-Powered-By: PHP/5.2.11 HTTP/1.0 302 Moved Temporarily Date: Wed, 21 Apr 2010 16:18:34 GMT Via: 1.0 rusresource.ru (squid/3.1.0.17) Location: http://wm.letitbit.net/?a=4 Server: Apache/1.3.42 (Unix) PHP/5.2.11 Content-Type: text/html Client-Date: Tue, 20 Apr 2010 15:16:37 GMT Client-Peer: 78.140.170.226:80 Client-Response-Num: 1 Proxy-Connection: close Set-Cookie: log=lapatanov; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: pas=1a44fb0f4a71c836393afcb9a86228a7; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: host=letitbit_net; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: log=lapatanov; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net Set-Cookie: pas=1a44fb0f4a71c836393afcb9a86228a7; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net Set-Cookie: host=letitbit_net; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net X-Cache: MISS from rusresource.ru X-Powered-By: PHP/5.2.11 HTTP/1.0 302 Moved Temporarily Date: Wed, 21 Apr 2010 16:18:34 GMT Via: 1.0 rusresource.ru (squid/3.1.0.17) Location: http://wm.letitbit.net/?a=4 Server: Apache/1.3.42 (Unix) PHP/5.2.11 Content-Type: text/html Client-Date: Tue, 20 Apr 2010 15:16:38 GMT Client-Peer: 78.140.170.226:80 Client-Response-Num: 1 Proxy-Connection: close Set-Cookie: log=workman320; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: pas=528e57a13d01ff6df856f07e2c3b0592; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: host=letitbit_net; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-Cookie: log=workman320; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net Set-Cookie: pas=528e57a13d1ff6df856f07e2c3b0592; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net Set-Cookie: host=letitbit_net; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=.letitbit.net X-Cache: MISS from rusresource.ru X-Powered-By: PHP/5.2.11


если акк валид перенаправление на http://wm.letitbit.net/?a=4 , если бед то на http://wm.letitbit.net/signin.php?errors=login

подскажите где ошибка
PM MAIL   Вверх
shamber
Дата 22.4.2010, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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



GR0Mi, попробуйте посмотреть, что передает браузер, и сравните с тем что передаете вы. Тогда и станет понятно, где проблема
PM MAIL Jabber   Вверх
GR0Mi
Дата 22.4.2010, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



именно от передаваемого браузером всегда отталкиваюсь  при подобных авторизациях. передаю все перееные. дело даже в том что оно сохраняет только код. а страницу не получает. получил страницу методом гед. но даные передать не получается
PM MAIL   Вверх
Pfailed
Дата 23.4.2010, 08:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



В чем вообще вопрос?
Цитата(GR0Mi @  22.4.2010,  23:53 Найти цитируемый пост)
дело даже в том что оно сохраняет только код. а страницу не получает.

Что такое код, а что такое страница в вашем понимании?



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


Шустрый
*


Профиль
Группа: Участник
Сообщений: 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;  должна выглядеть как обичная веб страница только с верху 
Цитата

HTTP/1.0 302 Moved Temporarily Date: Wed, 21 Apr 2010 16:18:34 GMT Via: 1.0 rusresource.ru (squid/3.1.0.17) Location: http://wm.letitbit.net/signin.php?errors=login Server: Apache/1.3.42 (Unix) PHP/5.2.11 Content-Type: text/html Client-Date: Tue, 20 Apr 2010 15:16:37 GMT Client-Peer: 78.140.170.226:80 Client-Response-Num: 1 Proxy-Connection: close X-Cache: MISS from rusresource.ru X-Powered-By: PHP/5.2.11 HTTP/1.0 302 Moved Temporarily Date: Wed, 21 Apr 2010 16:18:34 GMT Via: 1.0 rusresource.ru (squid/3.1.0.17) Location: http://wm.letitbit.net/?a=4 Server: Apache/1.3.42 (Unix) PHP/5.2.11 Content-Type: text/html Client-Date: Tue, 20 Apr 2010 15:16:37 GMT Client-Peer: 78.140.170.226:80 Client-Response-Num: 1 Proxy-Connection: close Set-Cookie: log=lapatanov; expires=Sat, 01-May-2010 16:18:34 GMT; path=/; domain=wm.letitbit.net Set-

PM MAIL   Вверх
Pfailed
Дата 23.4.2010, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Еще есть метод content() если нужна страница без хедеров.
Ближе к делу: загляните в perldoc LWP::UserAgent
Там сказано о requests_redirectable,  который по умолчанию равен   ['GET', 'HEAD']
Вы делаете POST, поэтому LWP не редиректится автоматически.



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


Шустрый
*


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

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



Цитата(Pfailed @ 23.4.2010,  14:00)
Еще есть метод content() если нужна страница без хедеров.
Ближе к делу: загляните в perldoc LWP::UserAgent
Там сказано о requests_redirectable,  который по умолчанию равен   ['GET', 'HEAD']
Вы делаете POST, поэтому LWP не редиректится автоматически.

благодарю. в E:\Perl\lib\LWP\UserAgent.pm  в двух местах добавил метод post и все заработало. большое спасибо
PM MAIL   Вверх
Pfailed
Дата 23.4.2010, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(GR0Mi @  23.4.2010,  17:11 Найти цитируемый пост)
благодарю. в E:\Perl\lib\LWP\UserAgent.pm  в двух местах добавил метод post и все заработало. большое спасибо


То, что вы сделали категорически неправильно. Зачем менять исходный код модуля, если он предоставляет необходимые интерфейсы?
Еще раз, посмотрите perldoc LWP::UserAgent
Цитата

To change to include 'POST', consider:  

  push @{ $ua->requests_redirectable }, 'POST';


Либо задать requests_redirectable при вызове конструктора.



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


Шустрый
*


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

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



Цитата(Pfailed @ 23.4.2010,  17:49)
Цитата(GR0Mi @  23.4.2010,  17:11 Найти цитируемый пост)
благодарю. в E:\Perl\lib\LWP\UserAgent.pm  в двух местах добавил метод post и все заработало. большое спасибо


То, что вы сделали категорически неправильно. Зачем менять исходный код модуля, если он предоставляет необходимые интерфейсы?
Еще раз, посмотрите perldoc LWP::UserAgent
Цитата

To change to include 'POST', consider:  

  push @{ $ua->requests_redirectable }, 'POST';


Либо задать requests_redirectable при вызове конструктора.

можно подробней. не очень понял.
столкнулся с проблемой что то что я изменил теперь другие скрипты не работают коректно
PM MAIL   Вверх
Pfailed
Дата 30.4.2010, 17:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(GR0Mi @  30.4.2010,  09:15 Найти цитируемый пост)
можно подробней. не очень понял.

Ну куда уж подробней? Я привёл вам цитату из perldoc, о том как это делается в своём предыдущем сообщении. Что непонятно?



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


Шустрый
*


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

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



все равно не могу понять как заставить скрипт работать не меняя исходный код модуля
PM MAIL   Вверх
Pfailed
Дата 1.5.2010, 06:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Цитата(GR0Mi @  30.4.2010,  22:24 Найти цитируемый пост)
все равно не могу понять как заставить скрипт работать не меняя исходный код модуля


Цитата(Pfailed @  23.4.2010,  17:49 Найти цитируемый пост)
To change to include 'POST', consider: 
 push @{ $ua->requests_redirectable }, 'POST';


Это сделайте в вашем скрипте, а модуль не трожьте.


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


Шустрый
*


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

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



по видимому я тупей чем мог предпологать. где имено етот код вставить в скрипте?
PM MAIL   Вверх
Pfailed
Дата 1.5.2010, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



После создания объекта LWP::UserAgent


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


Шустрый
*


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

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



use LWP::UserAgent;
To change to include 'POST', consider: 
 push @{ $ua->requests_redirectable }, 'POST';
use HTTP::Cookies;

так?
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.1269 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


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

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