「OpenIDの業界団体、4月に日本支部設立へ - ITmedia エンタープライズ」とかで何かとOpenIDが話題になっているので、今更ながらOpenID Consumerのサンプルコードを書いてみた(しかもさらに今更ながら OpenID 1.1 対応)。 Perlには Net::OpenID::Consumer とかライブラリがあるので、本来はそれを使えばいいんだろうけど、OpenIDの動作原理を確認したかったので、完全に手作り。 #!/usr/bin/perl -T use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use LWP::UserAgent; use HTTP::Request::Common qw(GET POST); use vars qw($UA); sub get_idp { my ($openid_u