Question

我已经构建了一个当前在本地主机上运行的CGI :: Application，并使用了2种身份验证方法 -
1.通过将用户密码存储在数据库中而在http://www.perlmonks.org/?node_id=622071中描述 2.使用LDAP凭据。

我一直在寻找一种简单的方法来进行谷歌身份验证，但还没有找到一个简单的方法。有人能指出我正确的方向。

我看着 1. Authen-GoogleAccount和
2. net-Google-FederatedLogin

但没有足够的文档来解决这些问题。我从哪里开始？即使你有一些指针在cgi :: application

之外做这个，也请告诉我

Answer 1

这是我能找到的最接近的解决方案。我不是安全专家，但我不认为网站认真使用这种方法。它使用WWW :: Mechanize使用谷歌电子邮件/密码进行身份验证，然后将安全内容拉出。

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

如果$ mech-＆gt; get（$ url）;返回错误，身份验证失败。

Answer 2

以下是我用于Android开发者市场的代码（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服务。

使用perl cgi-application进行Google身份验证

2 个答案: