Craftworks

Catalyst::Plugin::FillInForm::ForceUTF8 に抜けがあったのでパッチ書きました。

--- lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm.orig    2009-02-08 14:39:24.000000000 +0900
+++ lib/Catalyst/Plugin/FillInForm/ForceUTF8.pm 2009-02-08 14:40:02.000000000 +0900
@@ -115,11 +115,13 @@
 sub fillform {
     my $c = shift;
     my $fdat = shift || $c->request->parameters;
+    my $additional_params = shift;

     $c->response->output(
         HTML::FillInForm::ForceUTF8->new->fill(
             scalarref => \$c->response->{body},
-            fdat      => $fdat
+            fdat      => $fdat,
+            %$additional_params,
         )
     );
 }

HTML-lint は便利ですが、デフォルトでは ”Another_HTML-lint/1.22 +libwww-perl/5.820” という User-Agent を固定で吐いているので、モバイル対応サイトなど、User-Agent によって表示を切り替えているサイトでは、URL によるチェックができず、Data エリアに HTML ソースをコピペしてチェックするしか方法がありません。

そこで、いちいちそれをしていては面倒臭いので User-Agent を任意に切り替える機能を付けました。

HTML-lint User-Agent 切り替えパッチ

(続きを読む…)