ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу [Perl] Login Gmail (Вход в Gmail)
   
 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущая Предыдущее сообщение   Следующее сообщение Следующая

[Perl] Login Gmail (Вход в Gmail)
  #1  
Старый 09.04.2010, 18:08
Аватар для apofis
apofis
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме:
267868

Репутация: 0
По умолчанию [Perl] Login Gmail (Вход в Gmail)
Доброго времени суток!

Сегодня попробовал войти в аккаунт gmail, а получаю ответ, что выключены куки. Т.е. такой ответ:

Your browser's cookie functionality is turned off. Please turn it on.

Код таковой:

PHP код:
use LWP::UserAgent;
use HTTP::Cookies;
my $browser = LWP::UserAgent->new();
$browser->cookie_jar(HTTP::Cookies->new);

$data = [
'ltmpl' => 'default',
'ltmplcache' => '2',
'continue' => 'http://mail.google.com/mail/?',
'rm' => 'false',
'sh' => '-6502655821262978199',
'ltmpl' => 'default',
'ltmpl' => 'default',
'scc' => '1',
'GALX' => 'BzU3YYOdCX8',
'Email' => $email,
'Passwd' => $pass,
'rmShown' => '1',
'signIn' => 'Sign+in',
'asts' => '',
];

$response = $browser->post("https://www.google.com/accounts/ServiceLoginAuth?service=mail", $data)->as_string; 
Что не так?
 
Ответить с цитированием
 



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторегистратор полноценных групп Вконтакте Ratt1e Покупка, продажа, услуги в Соц. Сетях 25 18.12.2009 10:56



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ