Changeset 465

Timestamp:

04/01/06 22:16:18

Author:

tokuhirom

Message:

r1124@tance: tokuhirom | 2006-04-01 21:48:54 +0900

CustomFeed?

Mixi : pluggable interface.and, support Message, RecentComment?

trunk/plagger/lib/Plagger/Plugin/CustomFeed/Mixi.pm

@@ -7 +7 @@
-use WWW::Mixi;
-use Time::HiRes;
+
+our $MAP = {
+    FriendDiary => {
+        start_url  => 'http://mixi.jp/new_friend_diary.pl',
+        title      => 'マイミク最新日記',
+        get_list   => 'parse_new_friend_diary',
+        get_detail => 'get_view_diary',
+        icon_re    => qr/owner_id=(\d+)/,
+    },
+    # can't get icon
+    Message => {
+        start_url  => 'http://mixi.jp/list_message.pl',
+        title      => 'ミクシィメッセージ受信箱',
+        get_list   => 'parse_list_message',
+        get_detail => 'get_view_message',
+    },
+    # can't get icon & body
+    RecentComment => {
+        start_url  => 'http://mixi.jp/list_comment.pl',
+        title      => 'ミクシィ最近のコメント一覧',
+        get_list   => 'parse_list_comment',
+        icon_re    => qr/[^_]id=(\d+)/,
+    },
+};
-
-sub plugin_id {
@@ -33 +57 @@
-sub aggregate {
-    my($self, $context, $args) = @_;
-
-
+
+
+
+
+
+
+
+
+
-    my $response  = $self->{mixi}->get($start_url);
-
@@ -58 +89 @@
-    my $feed = Plagger::Feed->new;
-    $feed->type('mixi');
-'マイミクシィ最新日記'
-'http://mixi.jp/new_friend_diary.pl'
+$MAP->{$type}->{title}
+$MAP->{$type}->{start_url}
-
-    my $format = DateTime::Format::Strptime->new(pattern => '%Y/%m/%d %H:%M');
-
-
+
+
-    my $items = $self->conf->{fetch_items} || 20;
+    $self->log(info => 'fetch ' . scalar(@msgs) . ' entries');
-
-    my $i = 0;
-    my $blocked = 0;
-    for my $msg (@msgs) {
-unless
+if $type eq 'friend_diary' and not
-        last if $i++ >= $items;
-
@@ -78 +111 @@
-        $entry->date( Plagger::Date->parse($format, $msg->{time}) );
-
-
-/owner_id=(\d+)/
+ && defined $MAP->{$type}->{icon_re}
+$MAP->{$type}->{icon_re}
-            my $link = "http://mixi.jp/show_friend.pl?id=$owner_id";
-            $context->log(info => "Fetch icon from $link");
@@ -104 +137 @@
-        }
-
-diary/
+/ && defined $MAP->{$type}->{get_detail}
-            $context->log(info => "Fetch body from $msg->{link}");
-            my $item = $self->cache->get_callback(
@@ -110 +143 @@
-                sub {
-                    Time::HiRes::sleep( $self->conf->{fetch_body_interval} || 1.5 );
-
+
+
-                    $item;
-                },