PerlでYahoo!とmixiのOpenIDを使ってみよう!

 Yahoo!とmixiのOpenIDを利用して、ログインしたユーザのニックネーム(nickname)を取得するCGIをPerlで作ってみました。

 ソースはこちら

 サンプルは、こちらです。

 掲示板にOpenIDを使った認証機能を付加することによって、スパムを防ぐことができるのではないか?と考えて作ってみようと思いました。

 mixiのマイミクさんにだけ公開したい記事を書いたりといったことにも応用できると思います。

 少し難しかったのが、ユーザの属性情報を取得するところです。

 これはAXという拡張機能を使わないといけないらしく、なかなかうまくいかなかったのですが、以下のサイトを参考にして、何とか実現できました。

1. 10分で作るYahoo! OpenID RP

2. OpenIDを使ってみよう(1/2):CodeZine

3. mixi OpenIDで「マイミクシィだけの掲示板」を作ろう(Perl編)

 CPANモジュール「Net::OpenID::Consumer」はさくらインターネットやロリポップ!のサーバにインストールされていないので、mycpanというフォルダを作って、そこへモジュールをアップロードしておく必要があります。

スポンサーリンク
レクタングル(大)広告
レクタングル(大)広告

シェアする

フォローする

スポンサーリンク
レクタングル(大)広告