Drkcore

my $data = {
            title            => $form->field('title'),
            content          => $form->field('content'),
            tag_text         => $form->field('tag_text'),
            pubdate         => $dt
            };

my $e = $c->model('DBIC::Entries')->update_or_create($data);

でも、podみてたら$form->fieldってメソッド使えばハッシュのリファレンスが返ってくるので、

my $data = $form->field;
my $e = $c->model('DBIC::Entries')->update_or_create($data);

でいいらしい。早速書き直した。フォームのパラメータとかバリデーションとかよきに計らってくれる上に、DBICとの連携も楽だ。

それがDWIMmery?

CGI::FormBuilder - Easily generate and process stateful forms - search.cpan.org

The goal of CGI::FormBuilder (FormBuilder) is to provide an easy way for you to generate and process entire CGI form-based applications. Its main features are:

Field Abstraction
DWIMmery
Built-in Validation
Template Support

31052007 music d'n'b

Back of Beyond

Back of Beyond
Nu Tone
Hospital / ?円 ( 2007-06-18 )

一曲目と最後の曲が良い。

全体的にちょっとNU:TONE少なめ、ホスピタル多目。リキッドすぎるのはあんま好みじゃないナァ。

とかいいつつ、LindstromとThe Cinematic Orchestraとunkleの新譜を予約してもうた。

30052007 perl

Catalyst::Controller::FormBuilderいい感じ

HTML::Widgetだと細かいところに手を入れにくいいので、 Catalyst::Controller::FormBuilderに変えてみたらよさげ。

フォームの設定とかバリデートの情報はYAMLで。しかもデフォルトがTTSiteみたいな階層を取っているので管理しやすい。例えば/books/editに対応する設定ファイルはroot/forms/books/edit.fbと言った具合にfbっていう拡張子をつけておけばよい。

TTで使う場合には

[% FormBuilder.render %]

でよくて細かくいろいろいじりたい場合には

[% formbuilder.start -%]
...
[% END %]

で。

29052007 ajax

Ajaxデザインパターン

見渡すにはいい感じの本だった。

Ajaxデザインパターン ―ユーザビリティと開発効率の向上のために
Michael Mahemoff
オライリー・ジャパン / 5040円 ( 2007-05-15 )

Ajaxというよりは、ユーザビリティのデザインパターン的。それをAjaxで実装するためのヒントみたいな。

後半テストとかデバッグとかの話だけどここらへんはだれちゃった。

UI指向だったらflex2とかいうアプローチもあるけど。

27052007 music

JAZZTRONICA!!2

メタモが楽しみ

JAZZTRONICA!!2
JAZZTRONIK
GATE RECORDS / 2793円 ( 2006-08-09 )

27052007 perl

Image::MagickからImagerへ

FC6のこんな構成で

httpd-2.2.4-2.fc6
mod_perl-2.0.2-6.1
mod_fcgid-2.1-1.fc6
Catalyst 5.7007
ImageMagick-perl-6.2.8.0-4.fc6
ImageMagick-6.2.8.0-4.fc6

CatalystからImage::Magickが動かない。Catalyst組み込みのサーバーだとOKなんだけど、mod_perl,fcgidでは動かない。

どうも、アップロードしたファイルが読めてないようで、

my $i = Imager->new;
$i->read(file => $upload->tempname);

のところでコケテル。あーselinuxの設定か？と思って見直したんだけど、全然違った。単順にアップロードするだけならできてるし、readできてないみたい。

もうちょっと追ってみたら、

Exception 420: no decode delegate for this image format

とあってどうもImage::Magickがファイルの形式判別できてないみたいな感じ。

うーん、全然わからんなぁと悩んでたら、use Imager; という記事がナイスなタイミングで。

ナイスすぎる。早速乗り換え。

っていうかちょっと書き直しただけですぐ動いた。

my $i = Imager->new;
$i->read(file => $photo_data->tempname);
my $w = $i->getwidth();
my $h = $i->getheight();
my ($width,$height,$top,$left);
if($w > $h){
$width = $h;
$height = $h;
$top = 0;
$left = int(($w - $h)/2);
}elsif($h > $w){
$width = $w;
$height = $w;
$top = int(($h - $w)/2);
$left = 0;
}