原代码在附件中,我在本机的hosts的文件设置,127.0.0.1 wwww.imx.net http://www.imx.net/test_openid.pl 发送请求 http://www.imx.net/test_open_response.pl 返回google传回的值
使用模块： use LWPx::ParanoidAgent; use Net::OpenID::Consumer; use CGI; 参考资料： http://code.google.com/intl/zh-CN/apis/accounts/docs/OpenID.html http://www.lemoda.net/perl/openid/net-openid.html http://search.cpan.org/~mart/Net-OpenID-Consumer-1.03/lib/Net/OpenID/Consumer.pm -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
test_openid_response.pl
Description: Binary data
test_openid.pl
Description: Binary data
