Changeset 1970

Timestamp:

10/09/07 21:48:39

Author:

charsbar

Message:

CustomFeed?::MixiScraper?: added BBS mapping and fetch_comment option, WWW::Mixi::Scraper dependency to 0.09

Files:

• trunk/plagger/deps/CustomFeed-MixiScraper.yaml (modified) (1 diff)
• trunk/plagger/lib/Plagger/Plugin/CustomFeed/MixiScraper.pm (modified) (6 diffs)

trunk/plagger/deps/CustomFeed-MixiScraper.yaml

@@ -2 +2 @@
-author: Kenichi Ishigaki
-depends: 
-7
+9

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

@@ -40 +40 @@
-        get_list   => 'show_calendar',
-        get_detail => 'view_event',
+    },
+    BBS => {
+        title      => 'コミュニティ最新書き込み',
+        get_list   => 'new_bbs',
+        get_detail => 'view_bbs',
-    },
-};
@@ -137 +142 @@
-        }
-
+        my @comments;
-        if ($self->conf->{fetch_body} && !$blocked && $msg->{link} =~ /view_/ && defined $MAP->{$type}->{get_detail}) {
+            # view_enquete is not implemented and probably
+            # won't be implemented as it seems redirected to
+            # reply_enquete
+            next if $msg->{link} =~ /view_enquete/;
-            $context->log(info => "Fetch body from $msg->{link}");
-            my $item = $self->cache->get_callback(
-$msg->{link}"
+".$msg->{link}
-                sub {
-                    Time::HiRes::sleep( $self->conf->{fetch_body_interval} || 1.5 );
@@ -162 +172 @@
-
-                $entry->date( Plagger::Date->parse($format, $item->{time}) );
+                if ($self->conf->{fetch_comment}) {
+                  for my $comment (@{ $item->{comments} || [] }) {
+                      my $c = Plagger::Entry->new;
+                         $c->title($entry->title . ': '. $comment->{subject});
+                         $c->body($comment->{description});
+                         $c->link($comment->{link});
+                         $c->author($comment->{name});
+                         $c->date( Plagger::Date->parse($format, $comment->{time}) );
+                      push @comments, $c;
+                  }
+                }
-            } else {
-                $context->log(warn => "Fetch body failed. You might be blocked?");
@@ -169 +190 @@
-
-        $feed->add_entry($entry);
+        for my $comment ( @comments ) {
+            $feed->add_entry($comment);
+        }
-    }
-
@@ -189 +213 @@
-        password: password
-        fetch_body: 1
+        fetch_comment: 0
-        show_icon: 1
-        feed_type:
@@ -223 +248 @@
-link to the entry. Defaults to 0.
-
+=item fetch_comment
+
+With this option set, this plugin fetches entry's comments as well
+(meaningless when C<fetch_body> is not set). Defaults to 0.
+
-=item fetch_body_interval
-