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

你得先装上 Net::SSL 模块 :-P

2010/7/9 imxae <imx365ster@gmail.com>

谢谢，这个教程我也看过了，好像对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 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

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