09.04.2010, 18:08
|
|
Познающий
Регистрация: 23.02.2009
Сообщений: 35
С нами:
9059503
Репутация:
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;
Что не так? |
|
|