Re: [PerlChina] 谁会使用perl写openid登录的 例子啊？

Thu, 08 Jul 2010 20:03:08 -0700 

谢谢，这个教程我也看过了，好像对google的openid 无用，我怎么测试都没有用

use LWPx::ParanoidAgent;
use Net::OpenID::Consumer;
use CGI;

my $cgi = new CGI;
my $csr = Net::OpenID::Consumer->new(
        ua               => LWPx::ParanoidAgent->new,
        consumer_secret   => time,
        args              => $cgi,
        debug              => 1,
        required_root => "http://www.test.net/";,
     );

my $claimed_identity = $csr->claimed_identity(
https://www.google.com/accounts/o8/id);

#  my $check_url = $claimed_identity->check_url(
#    return_to  => "http://example.com/openid-check.app?yourarg=val";,
#    trust_root => "http://example.com/";,
#  );

# Print header
$m->printHttpHeader();
#    print $check_url, "\n";


作者回答如下：

Google's OpenID system has an extra layer of opaqueness which the
simplistic program below doesn't deal with. You'll have to debug this
yourself.
Best wishes,
Ben Bullock

-- 
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

回复