読者です 読者をやめる 読者になる 読者になる

ゆーすけべー日記

はてなBlogってどーなの!?

Store::DBICでentryのpermalinkも保存させるように修正

Perl

今夜もPlagger関係。feature-serverというbranchesにあるPlugin、Store::DBICを使えば、フィード情報をデータベースに保存できる。今のところsqliteで保存できることを確認(nfsでマウントした場所でsqliteのdbを作ろうとするとlockedなんちゃらで怒られるのが不満)。これを使って、Plagger→db→Catalystというのをたくらんでいてまたもやエロエロイロイロできそう。 今のバージョンだとStore::DBICで保存できるentryのプロパティにpermalinkがないので修正。ただただ、permalinkの文字を追加しただけですが、以下diff -u 。

lib/Plagger/Plugin/Store/DBIC.pm
--- DBIC.pm    2006-08-31 12:58:53.000000000 +0900
+++ DBIC.pm    2006-09-01 01:06:26.000000000 +0900
@@ -103,7 +103,7 @@
             link => $feed_entry->link,
         });
 
-        for my $attr (qw/title author summary date body rate/) {    # todo: icon
+        for my $attr (qw/title author summary date body rate permalink/) {    # todo: icon
             $entry->$attr( $feed_entry->$attr )
                 if defined $feed_entry->$attr && (!$entry->$attr or $entry->$attr ne $feed_entry->$attr);
         }
lib/Plagger/Schema/SQLite/Entry.pm
--- Entry.pm    2006-08-31 12:58:57.000000000 +0900
+++ Entry.pm    2006-09-01 01:08:55.000000000 +0900
@@ -8,10 +8,10 @@
 
 
 __PACKAGE__->add_columns(
-    qw/id feed title author date link summary body rate icon readmark/
+    qw/id feed title author date link permalink summary body rate icon readmark/
 );
 __PACKAGE__->set_primary_key('id');
-__PACKAGE__->utf8_columns(qw/title author link summary body rate icon/);
+__PACKAGE__->utf8_columns(qw/title author link permalink summary body rate icon/);
 
 __PACKAGE__->belongs_to( feed => 'Plagger::Schema::SQLite::Feed' );
 
assets/plugins/Store-DBIC/plagger.sqlite.sql
--- plagger.sqlite.sql    2006-08-31 12:58:27.000000000 +0900
+++ plagger.sqlite.sql    2006-09-01 01:00:59.000000000 +0900
@@ -20,6 +20,7 @@
        author TEXT,
        date INTEGER,
        link TEXT,
+       permalink TEXT,
        summary TEXT,
        body TEXT,
        rate TEXT,