Google аутентификация с использованием Perl CGI-приложения

Question

Я создал CGI :: Приложение, работающее в данный момент на локальном хосте, и использовал 2 метода аутентификации -
1. описан в http://www.perlmonks.org/?node_id=622071 путем сохранения пароля пользователя в базе данных и
2. используя учетные данные LDAP.

Я искал простой способ аутентификации в Google, но пока не нашел простого. Может кто-нибудь направить меня в правильном направлении.

Я посмотрел на
1. Authen-GoogleAccount и
2. net-Google-FederatedLogin

но недостаточно документации для любого из них. С чего начать? Пожалуйста, дайте мне знать, даже если у вас есть какой-то указатель на это за пределами cgi :: application

Answer 1

Вот код, который я использовал для Android Market для разработчиков (market.android.com/publish):

use WWW::Mechanize;
use HTTP::Cookies;

my $url = 'https://www.google.com/accounts/ServiceLogin';
my $username = 'username@gmail.com';                                                          
my $password = "PASSWORD";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_number(1);
$mech->field(Email => $username);
$mech->field(Passwd => $password);
$mech->click();
# Go to the next link, now that we are logged in.                                                                                   
$url = 'https://market.android.com/publish/Home';
$mech->get($url);
print $mech->content();

Это небольшая правка, опубликованная Prateek: http://gregjessup.com/login-to-google-using-perl. Я думаю, что он может быть использован для большинства служб Google, требующих входа в систему.

Answer 2

Это самое близкое решение, которое я мог найти. Я не эксперт по безопасности, но я не думаю, что сайты, серьезно относящиеся к этому, будут использовать этот метод. Он использует WWW :: Mechanize для аутентификации с использованием электронной почты / пароля Google, а затем извлекает безопасный контент.

http://gregjessup.com/login-to-google-using-perl/

if $ mech-> get ($ url); возвращает ошибку, ошибка аутентификации.