最近はすっかりお世話になっている Amon2 というフレームワークで、ログインしていないと見れないページにアクセスしたらログインページにリダイレクトするという事をしたかったのですが、スマートな方法が分からなかったのでとりあえずトリガーで行う事にしました。

__PACKAGE__->add_trigger(
    BEFORE_DISPATCH => sub {
        my ( $c ) = @_;

        if( $c->req->path =~ m|^/members_only| ){
          return $c->redirect('/login') unless $c->user;
        }
    },
);

ただページ毎や、ユーザーの権限によってもっと詳細にチェックしたい場合はif分がカオスな事になりそうなのでメンテナンス性が悪い事が問題です。

途中で聞かれる文字コードを utf-8 に設定しないと make がこける。

wget http://ftp.gnu.org/pub/gnu/libiconv/libiconv-1.13.1.tar.gz
cd libiconv-1.13.1/
./configure
make
sudo make install

wget http://sourceforge.net/projects/mecab/files/mecab/0.98/mecab-0.98.tar.gz
tar xvfz mecab-0.98.tar.gz
cd mecab-0.98
./configure --with-charset=utf-8
make
sudo make install

wget http://downloads.sourceforge.net/project/mecab/mecab-ipadic/2.7.0-20070801/mecab-ipadic-2.7.0-20070801.tar.gz
tar xvfz mecab-ipadic-2.7.0-20070801.tar.gz
cd mecab-ipadic-2.7.0-20070801/
./configure --with-charset=utf-8
make
sudo make install

wget http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/Text-MeCab-0.20011.tar.gz
tar xvfz Text-MeCab-0.20011.tar.gz
cd Text-MeCab-0.20011/
perl Makefile.PL
make
sudo make install