PlaggerLDR導入

Plagger

PlaggerLDRを導入。feature-server ブランチから持ってきたんだけど、そのままだと動かない。うちの環境が悪いのか？とりあえず場当たり的にいじる。

Index: lib/PlaggerLDR/Model/DBIC.pm
===================================================================
--- lib/PlaggerLDR/Model/DBIC.pm        (revision 1438)
+++ lib/PlaggerLDR/Model/DBIC.pm        (working copy)
@@ -5,6 +5,7 @@

 use YAML;
 use List::Util qw(first);
+use Plagger::Schema::SQLite;

 my $config = YAML::LoadFile( PlaggerLDR->path_to('root', 'config.yaml') );
 my $module = first { $_->{module} eq 'Store::DBIC' } @{$config->{plugins}};

あと、なんか Notify API 動いてなくね？ってことで、こっちもごそごそ修正。多分誰も使ってないんだろうなぁ。

Index: lib/PlaggerLDR/Controller/Notify.pm
===================================================================
--- lib/PlaggerLDR/Controller/Notify.pm (revision 1438)
+++ lib/PlaggerLDR/Controller/Notify.pm (working copy)
@@ -15,7 +15,7 @@

 sub notify : Global {
     my($self, $c) = @_;
-    my $unread = $schema->resultset('Entry')->search({ read => 0 })->count;
+    my $unread = $schema->resultset('Entry')->search({ readmark => 0 })->count;
     $c->response->content_type('text/plain');
     $c->response->body("|$unread|http://reader.livedoor.com/reader/\n");
 }
Index: lib/PlaggerLDR/Controller/Root.pm
===================================================================
--- lib/PlaggerLDR/Controller/Root.pm   (revision 1438)
+++ lib/PlaggerLDR/Controller/Root.pm   (working copy)
@@ -8,7 +8,7 @@

 sub end : Private {
     my($self, $c) = @_;
-    $c->forward('View::JSON');
+    $c->forward('View::JSON') unless $c->response->body;
 }

 1;

あと、Filter::HTMLScrubber の仕様が少し変わっていてハマった。
ところで、こういうパッチはどこに投げればいいんだろう。plagger.org の trac のどこからに post するのかな。trac 使ったことないからよくわかんね。

参考