Perlから非公式Google Reader APIにアクセスする - ゆーすけべー日記 そういえば、ちょっと前に WWW::Google::ClientLogin っていうのを書いてました。 WWW::Google::Auth::ClientLogin っていうのもあったんですが、若干実装と戻り値とかがいけてないのと、もう一個作った WWW::Google::C2DM とインターフェースを揃えたい欲求があったので作った次第です。 ゆーすけべーさんのコードをこれを使って書きなおしてみると、以下のような感じになるます。 use strict; use warnings;use XML::Feed; use LWP::UserAgent; use WWW::Google::ClientLogin; my $email = 'my@emailaddress'; my $password = 'm
Catalystは Authentication::Credential::* プラグインを複数使うことにより、複数の認証方式に対応できる。 IP認証などのような、Credプラグインが提供されていないものも即席でCredインタフェースにそったモジュールを作ることで簡単に認証方法を追加することができる。 MyApp.pm はこんな感じ package MyApp; use strict; use warnings; use Catalyst::Runtime '5.70'; use Catalyst qw/ ConfigLoader Authentication Authentication::Credential::HTTP +MyApp::Credential::IP Authentication::Store::DBIC /; our $VERSION = '0.01'; __PACK
最近人気エントリーに便乗したネタが多くてすみません。 実用！ PerlでコマンドラインからTwitter投稿（OAuth対応） では、Net::Twitter を使って OAuth で投稿する方法が紹介されていますね。 ところで、単純な twitter bot 作るのに Net::Twitter 使います？「投稿なんて LWP で1発リクエスト投げればいいだけだから使わない」という人も多いと思いますが、Basic 認証が廃止されたらどうしましょう。 そのようなかた向けに、OAuth::Lite で OAuth 対応な HTTP::Request を作る方法をご紹介します。 consumer key, consumer secret, access token, access token secret は既に何らかの方法で取得できているものとすると、こんな感じです。 use OAuth::L
最近、咳のしすぎであばらにヒビが入りました。 大多数の人は心配をしてくださってありがたいのですが、ごく一部の極道達がおもしろ画像を連投して笑わせてくるおかげで全治が大分先になりそうです。 こんばんは。 先日、「モバイルなプラットフォームでの OAuth Signature の検証」ってエントリーを書いた際にPlack::Middlewareとかでやるべきとか書いておいて放置していたのですが、某極道が「とっとと書かないと笑わせてあばらへし折るぞ！ごるぁ！」と脅してきたのでサクッと書きました。 GitHubに置いてあります。 Plack-Middleware-Auth-OAuth 使い方は簡単。 use Plack::Builder; my $app = sub { return [200, ['Content-Type' => 'text/plain'], ['Hello World']];
はじめに OpenIDは最近非常に注目が高まっている認証技術の一つです。ここでは、OpenIDを利用したPerlのサンプルを通じてOpenIDのメカニズムに触れていきたいと思います。必要な環境 Perl 5.8以上が動作する環境が良いと思います。基本動作の確認はMac OS Xを利用しましたサンプルの紹介 早速サンプルコードの「openid-test.cgi」を見ることにしましょう。このサンプルはOpenIDを利用した簡易ログインページです。 #!/usr/bin/perl use strict; use warnings; use CGI; use Net::OpenID::Consumer; #use LWPx::ParanoidAgent; use LWP::UserAgent; my $query = CGI->new; $query->charset('utf-8
恥ずかしながらいままでLWP::UserAgentでリクエストを送るときにどう書くのかがいまいち分からず、ずっと毎回検索していました.... 今回検索して LWP::UserAgentでBasic認証サイトにアクセスする方法｜blog｜たたみラボ を読んで、そのあと HTTP::Request::Common - Construct common HTTP::Request objects - search.cpan.org と見比べて、ようやくいままでの謎が解けました。 use HTTP::Request::Common するとGETやPOST などの名前で HTTP::Request のインスタンスを返す関数がエクスポートされるので、 $ua->request(GET 'http://labs.gmo.jp/blog/ku/'); と書いたりできるようになるのだと知りました.....
livedoorは19日、同社の認証システムを外部Webサービス向けに公開した。サービス名は「livedoor Auth」。Web APIとして無償で提供される。 livedoorでは、ユーザーアカウント（livedoor ID）を使ったログインによる認証システムを構築しており、そのユーザー数は630万（2007年4月現在）にのぼる。今回提供されるlivedoor Authは、この認証システムをlivedoorとは関係のない、外部のアプリケーションに提供するものだ。 具体的には以下の手順で認証システムが実現される。 外部サービスは指定されたパラメータをつけたWebページを作成し、livedoorのログインページへユーザを遷移させる。 livedoorログインページに来たユーザーは、livedoor IDを使い、ログインする。 外部サービスにリダイレクトされる（初回は確認メッセージが表示され
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く