html5で複数ファイルを選択(input type=”file”で複数ファイル選択と形式を指定(html5))して、サーバーに送信されたファイルをサーバー側で受け取ってみます。 サーバーサイドはPerl(Amon2+Plack)です。 Plack::Request::Upload 普通にファイルを…

XslateのCookbookに書いてあったんですけど、slurp_templateをoverrideすると元のtemplateにアクセスできるようです。 Amon2でやるならこんな感じ。 とりあえずMyApp以下にXslate.pm(名前はなんでもいいけど)ってのを作って、Viewからはそいつを呼…

MyApp.pmに書いたものは、$c->で呼べるようになるんで、元々ある$c->res_404を上書きする感じで。 sub res_404 { my $self = shift; my $html = $self->create_view()->render('error.tx'); $…

アプリじゃなくてNginxとかApacheでやってもいいんですけど、オレオレFlavorに入れとけばいいかなと。 use MyApp::Web::Dispatcher; get '/' => 'Root#index'; get '/hoge' => "Hoge#index&qu…

自分の環境だと、$c->stash(Amon2で$c->stashを使う。)が使えるようになってるんで、そこにdispatch前の時間を保存して、dispatch後に差を見れば何秒かかったかわかる。 package MyApp::Web; use parent qw/MyApp Amon2::…

元となるソース(というか、修正するファイル)は、以前作成した(Amon2で$c->render()を自動で呼ぶようにしてみた。)のMyApp::Web 気分的には、Catalystのautoに近い挙動を目指す。 package MyApp::Web; # dispatcher use MyAp…

Amon2は、configをdevelopmentとproductionの読み替えができるんで、DB接続周りとかの変更が可能なんですが、その他の部分で同じ内容がいくつかあって、いちいちconfigを全部変えるがめんどいので、共通な内容は別のconfigファイル(どのMODEでも読み込まれる共用ファイ…

html側は、まぁ普通なんで簡単に。 <form action="/myapp/upload" method="post" enctype="multipart/form-data"> <input type="…

なんとなく、 $c->req->param('key' => 'value'); こんな感じで入るかと思ったら、できなかったのでメモ。 で、 $c->req->parameters->set('key' => 'value'); これでいける。 parame…

Amon2::Setup::Flavorのソース見た感じ、中身はXslateのようですが、tag_start,tag_endが設定されているようなので、下記のような感じで。 sub run { my $self = shift; $self->write_file('lib/<<P…

最近のWAFは、 get '/' => 'Foo#bar'; みたいなのをつらつらと書いていくのが主流みたいなんですが、コントローラに書いてある方が直観的だと思うのはCatalyst病に感染してるからでしょうか。 PerlのAttributeが微妙ってのもあって、CatalystライクなDis…