Diary

南米からアメリカを目指して国境越えをたくらむ家族。
その途中、メキシコでギャングに襲われる。

ギャング団には小さな少年も混じっていて、平気で人を殺す。
ギャングに入らないと襲われるし、入ったら抜けられないし、
いいことないように見えるが、団に入ってくのは拠り所が欲しいからなのか。

そんなギャング団の話と、
アメリカを目指して列車の屋根の上に乗る少女と父とおじの話。
どちらも希望のない暗い話だが、それが最悪の形で交差する。

ギャングとして兄貴分を殺さなきゃいけない少年も痛いし、
ギャングを愛してしまったがために家族と離れ離れになった少女も痛い。

理解できない感情が多いが、それは彼らの苦しみを知らないからなのかな？
最後まで闇しかなく、光の感じられない映画だった。

ライブラリを使わずにやりたかったので、PerlでOAuth 2.0を使ってみた を参考にした。
こちらのページの Plack::Request, Plack::Response を使わずに、Catalyst の $c->res を使った感じ。

http://localhost:3000/auth というページが Facebook Developers の Site URLに登録してあるとする。
/auth というパスに処理を作るため、
　$ perl script/hello_create.pl controller Auth
で Controller を作り、lib/Hello/Controller/Auth.pm を編集する。

1: Facebookページにリダイレクトして、Facebookにログインし、このアプリのアクセスを許可する
2: $redirect_uri に codeパラメータ付きで戻ってくる
3: token を取得するため、codeパラメータを使用して再び Facebook API にアクセスする
4: その token を使用すると、Facebookのその人の情報にアクセスできる

sub index : Path :Args(0) {
    my ( $self, $c ) = @_;

    my $app_id = '(Facebook Developers の App ID)';
    my $app_secret = '(Facebook Developers の App Secret)';
    my $authz_endpoint = 'https://www.facebook.com/dialog/oauth';
    my $token_endpoint = 'https://graph.facebook.com/oauth/access_token';
    # Facebook Developers の Website with Facebook Login の Site URL
    my $redirect_uri = 'http://localhost:3000/auth';

    # 2) get authorization code
    if ( my $code = $c->req->param('code') ) {

        # 3) get access token
        my $uri = URI->new($token_endpoint);
        $uri->query_form(
            client_id     => $app_id,
            client_secret => $app_secret,
            redirect_uri  => $redirect_uri,
            code          => $code
        );
        my $ua     = LWP::UserAgent->new;
        my $r      = $ua->get($uri);
        my %params = ();
        for my $pair ( split( /&/, $r->content ) ) {
            my ( $key, $value ) = split( /=/, $pair );
            $params{$key} = $value;
        }
        my $token = $params{access_token};

        # 4) get protected resources
        if ($token) {
            my $url = 'https://graph.facebook.com/me/friends';
            (略)
            $c->response->body($html);

        } else {
            $c->response->body('fail to get token');
        }

    } else { # 1) redirect to authorization endpoint

        my $uri = URI->new($authz_endpoint);
        $uri->query_form(
            client_id    => $app_id,
            redirect_uri => $redirect_uri,
        );
        $c->res->redirect($uri);
    }
}

理解のため全コードを Controller に書いてるけど、実際に使うんだったらうまいことキレイにすべし。

会社では Catalyst を使ってるので、家マシンにも入れてみた。

Install Catalyst
1. sudo apt-get install build-essential
2. Ubuntuソフトウェアセンターから libcatalyst-perl をインストール
3. sudo perl -MCPAN -e ‘install Task::Catalyst’
(3でいろいろインストールされたので2が足りなかったのかもしれない)

あとは、
$ catalyst.pl Hello (Helloはプロジェクト名)
$ cd Hello/script
$ perl hello_server.pl

ついでに Eclipse で Perl を使えるようにEPICというプラグインを入れた。
http://www.epic-ide.org/updates/

Ruby on RailsでfacebookのOAuth認証を実装する を参考にした。
facebook_oauth プラグインを使ってラクしたものだ。

gem のインストール
$ sugo gem install oauth
$ sugo gem install oauth2
$ sudo gem install facebook_oauth

バージョンを指定せずに最新をインストールして大丈夫だった。
oauth v0.4.6
oauth2 0.8.0
facebook_oauth 0.3.0

ソースコードの編集
$ rails generate controller Users index callback

– controller/users_controller.rb

class UsersController < ApplicationController
   CALLBACK_URL = "Facebook Developers の Website with Facebook Login の Site URL"
   CONSUMER_KEY = "Facebook Developers の App ID"
   CONSUMER_SECRET = "Facebook Developers の App Secret"
   
   def index
   end
   
   def oauth
     client = FacebookOAuth::Client.new(
       :application_id => CONSUMER_KEY,
       :application_secret => CONSUMER_SECRET,
       :callback => CALLBACK_URL
     )
     redirect_to client.authorize_url
   end

  def callback
     @client = FacebookOAuth::Client.new(
         :application_id => CONSUMER_KEY,
         :application_secret => CONSUMER_SECRET,
         :callback => CALLBACK_URL
      )
      @client.authorize(:code => params[:code])
   end
end

– views/users/index.html.erb
<%= link_to 'OAuth認証', '/users/oauth' %>

– views/users/callback.html.erb
<%= @client.me.info %>

以上は書いてあったとおり。

追加で以下の作業が必要。
– config/routes.rb

get "users/oauth"

Routing Error : No route matches [GET] “/users/oauth” が出たので追加してみた。

– Gemfile

gem 'facebook_oauth'

NameError : uninitialized constant UsersController::FacebookOAuth が出たので追加してみた。
ただ、facebook_oauth が Heroku にないのか、Heroku の git にあげようとするとエラーになるという問題が・・・

身体がダルいので、元気になろうと、食べ物に頼る。

今日はお腹も痛くならなかったので良かった。
それだから、お腹いっぱいになってしまったけどね。

明日は二子玉川の花火大会らしい。
行きたいなーと思うけど、さすがに花火大会に一人で行く気はない。。

気になるなー、見えないよなー。

天気のせいじゃないような気がしつつ、何のせいだかわからないまま、
一昨日くらいから鈍くてぼんやりとした頭痛が続いてた。

昨日は頭痛が和らぐかとコーヒーを飲んだら胃が気持ち悪くなって、
帰りの電車でまた急激に悪くなるんじゃないかと不安だったけど、
途中から座れたから悪くならずに変えることができた。

今日もしばらく胃が気持ち悪かったので、
胃が気持ち悪いのはストレスのせいじゃね？とか思ってたけど、
お腹がすいたからチャーハンを食べたら余計気持ち悪くなって失敗したーって。

ビタミンCがたくさん入ってるっぽいジュースを飲んだら、喉がヒリヒリして、
もしやこれは風邪気味なんじゃ！？と思ったが、帰るころになって治まった。

もうよくわからないけど、今この瞬間は、頭もお腹も喉も全く問題なし。
明日を乗り切れば２日休めるし、がんばろー。

最近家のPCでキーボードが勝手にかな入力になってて、
パスワードが間違って入れないという事件が多発。

多発しすぎて、もう入力切替をするということも覚えたけど、
なんで勝手に変わるんだよ！

とか思ってたら、会社のPCでも同じ現象が・・・

なんかのアップデートのせいじゃないかと疑ってるけど、
Windows Update だとすると家と会社のタイミングがずれてるんだよなー

なんなんだよー

今回はほとんど筋肉痛が来なかったのが意外。

あんまりちゃんと登らなかったかな。
先に指を使い切っちゃったし、筋肉は使ってないか。

登りに行く前までは、指先の皮が剥けてきてガサガサだったのに、
今は何故か元の状態に戻ってる。

ガサガサなのが全部ホールドで擦れてなくなったのか？？
とりあえず、それは良いことだ。

ガサガサだから行くのをやめとこうって気持ちが少しあったけど、
むしろ行ったほうが治るということか・・・

なんだか嵐が来るような湿気と風だけど、
風が強いのは歓迎だ。

気持ちいい。

今日久々に大家さんに遭遇したけど、
エアコン壊れてるってまた言いそびれた。

このまま涼しくなってくれぃ。

お金ないなーとか、暑いなーとか、行く気がしてなくて、
結局1ヶ月ぶりくらいに行った。

少し涼しい気がしたのに、湿気が多いせいなのか、
行くまででメチャメチャ汗をかいて疲れた。

ゆるいところの赤は登れて、ちょっと傾斜があるとダメ。
休憩を10分くらいとっても、筋力や指力が全く回復しなくなってる。

だから、最初の30分は難しいところをやって、あとは簡単なところで流して、
最後はスラブをやってオシマイというのが最近のパターンだ。

相変わらずではあるけど、ちょっと飽きてきたので、次回は別のジムに行こう。

帰ってから、久々にシューズを洗って気分すっきり＾＾