[僕] Authen::TypeKey で、Typekey にサインイン

ちょっと興味があって、Authen::TypeKey を使って、Typekey へのサインインを試してみた。
http://sky.taro-web.com/cgi-bin/typekey/index

サインインすると、Typekey に登録したプロフィールが送られてきて、こちら側ではそれをセッションに格納するってだけのものです。
セッションの期限は一時間に設定してます。Typekey のセッションがどのくらい持続されるのか良く把握してないけど、こっちのセッションが切れても、Typekey のセッションが切れるわけではないので再度サインインする時は Typekey のログイン画面は出ずにサインインできると思う。というかできた。

やってみると仕組み自体は結構簡単なのね。とはいっても Authen::TypeKey 様様ですが。まぁ、実際に書いてみると理解ができるというか。

んで、アウトプット主義ということで恥かき覚悟のソースｗ

ちなみに CGI::Application の Plugin も試すために書いてます。というか、こっちがメインか。ソースコード上で重複した処理をやってたりしますが、その辺は、その、あの、なんというか、まぁどうでもいいやと思っちゃたりしたので。というか、画面ごとに用意すればいいわけだから、動作ごとに組む必要も無かったカモ(；'-')
＃正直に申しますと混乱しました、ハイ。

使ったのは、

以上三つ。

ちなみに、やるだけやったらスッキリして、特に Typekey を使ってどうこうってのは考えてないｗ