open id(perlライブラリ) の sample script

gistfile1.pl

#!/usr/bin/perl

use strict;

use Net::OpenID::Consumer::Lite;

my $check_url = Net::OpenID::Consumer::Lite->check_url
                (
                        'https://www.hatena.ne.jp/openid/server',
                        'http://gunma-note.org/'
                );
$check_url .= "&openid.identity=http://www.hatena.ne.jp/kanayannet/";

print $check_url;

=pod

以下のURL が取得できる
http://gunma-note.org/?openid.mode=id_res&openid.user_setup_url=http://www.hatena.ne.jp/op
enid/approve%3Freturn_to%3Dhttp://gunma-note.org/%26identity%3Dhttp://www.hatena.ne.jp/kan
ayannet/%255B%26realm%3Dhttp://gunma-note.org/%26assoc_handle%3D%26trust_root%3Dhttp://gun
ma-note.org/

上のopenid.user_setup_url=　を入れてログインすると以下のURL に redirect
http://gunma-note.org/?openid.mode=id_res&openid.claimed_id=http://www.hatena.ne.jp/kanaya
nnet/%5B&openid.identity=http://www.hatena.ne.jp/kanayannet/%5B&openid.return_to=http://gu
nma-note.org/&openid.response_nonce=2011-10-11T14:17:52ZsruUzZ&openid.assoc_handle=1318342
672:STLS.Rt3C1RYNzGhdDjMTDebo:3dcb4f9396&openid.signed=mode,claimed_id,identity,return_to,
response_nonce,assoc_handle&openid.sig=8Z%2Bme38oQCkyRiP66jZcrz007G4%3D

=cut