你得先装上 Net::SSL 模块 :-P
2010/7/9 imxae <[email protected]> > 谢谢，这个教程我也看过了，好像对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]<perlchina%[email protected]> > 。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
