Changeset 458

Timestamp:

04/01/06 18:30:48

Author:

tokuhirom

Message:

r1105@tance: tokuhirom | 2006-04-01 18:30:27 +0900

Pluggable interface for CustomFeed?

Frepa, and add feature: FriendStatus?, RecentComment?.

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

@@ -6 +6 @@
-use Encode;
-use Time::HiRes;
+use UNIVERSAL::require;
+use WWW::Mechanize;
-
-sub plugin_id {
@@ -13 +15 @@
-
-sub register {
-
+ 
-    $context->register_hook(
-        $self,
@@ -21 +23 @@
-
-sub load {
-
-
+
+
+
+
-
-    my $feed = Plagger::Feed->new;
@@ -30 +34 @@
-
-sub aggregate {
-
-
-{frepa}->login
-       
+ 
+
+login(livedoor_id => $self->conf->{livedoor_id}, password => $self->conf->{password})
+        
-        return;
-    }
-
-    $context->log(info => 'Login to frepa succeeded.');
+
+    my $feed_type = $self->conf->{feed_type} or $context->error("feed_type is missing");
+    for my $plugin (@$feed_type) {
+        my $plugin = (ref $self || $self) . "::$plugin";
+        $plugin->use or $context->error($@);
+        $self->aggregate_by_plugin($context, $plugin, $args);
+    }
+}
+
+sub aggregate_by_plugin {
+    my ($self, $context, $plugin, $args) = @_;
+
-
-    my $feed = Plagger::Feed->new;
-    $feed->type('frepa');
-'フレパ最新日記'
-'http://frepa.jp/home/friend_blog/'
+$plugin->title
+$plugin->start_url
-
-    my $format = DateTime::Format::Strptime->new(pattern => '%Y/%m/%d %H:%M');
-
-self->{frepa}->get_new_friend_diary
+plugin->get_list($self->{mech})
-    my $items = $self->conf->{fetch_items} || 20;
-
@@ -55 +71 @@
-
-        my $entry = Plagger::Entry->new;
- decode('euc-jp', $msg->{subject}) 
+$msg->{subject}
-        $entry->link($msg->{link});
- decode('euc-jp', $msg->{name}) 
+$msg->{name}
-        $entry->date( Plagger::Date->parse($format, $msg->{time}) );
-
-
+ and $plugin->can('get_detail')
-            $context->log(info => "Fetch body from $msg->{link}");
-            my $item = $self->cache->get_callback(
@@ -66 +82 @@
-                sub {
-                    Time::HiRes::sleep( $self->conf->{fetch_body_interval} || 1.5 );
-self->{frepa}->get_view_diary($msg->{link
+plugin->get_detail($msg->{link}, $self->{mech
-                },
-                "1 hour",
-            );
-            if ($item) {
-decode('euc-jp', $item->{description})
+$item->{description}
-                   $body =~ s!<br>!<br />!g;
-                $entry->body($body);
- decode('euc-jp', $item->{subject}) 
+$item->{subject}
-            } else {
-                $context->log(warn => "Fetch body failed. You might be blocked?");
@@ -85 +101 @@
-            if ($item && $item->{image} !~ /no_photo/) {
-                $entry->icon({
-decode('euc-jp', $item->{name})
+$item->{name}
-                    url   => $item->{image},
-                    link  => $msg->{user_link},
@@ -104 +120 @@
-    $self->cache->get_callback(
-        "icon-$url",
-{frepa}->
+
-        '1 day',
-    );
-}
-
-package Plagger::Plugin::CustomFeed::Frepa::Mechanize;
-
-use strict;
-use WWW::Mechanize;
-
-sub new {
-    my $class = shift;
-    my $plugin = shift;
-
-    my $mech = WWW::Mechanize->new(cookie_jar => $plugin->cache->cookie_jar);
-    $mech->agent_alias( "Windows IE 6" );
-
-    bless {
-        mecha       => $mech,
-        livedoor_id => $plugin->conf->{livedoor_id},
-        password    => $plugin->conf->{password},
-        start_url => 'http://www.frepa.livedoor.com/',
-    }, $class;
-}
-
-sub login {
-    my $self = shift;
-
-
-
-
-
+
+
+
+
+
+
+
-        Plagger->context->log(debug => "cookie not found. logging in");
-a
+
-            fields => {
-self->
-self->
+args
+args
-                auto_login  => 'on',
-            },
-        );
-a
-a
-a
+
+
+
-    }
-
-    return 1;
-}
-
-sub get_new_friend_diary {
-    my $self = shift;
-
-    my @msgs = ();
-    my $res = $self->{mecha}->follow_link(url_regex => qr{/friend_blog/});
-    return @msgs unless $self->{mecha}->success;
-
-    my $html = $self->{mecha}->content;
-    my $reg = $self->list_regexp();
-    while ($html =~ m|$reg|igs) {
-        my $time = "$1/$2/$3 $4:$5";
-        my ($link, $subject, $user_link, $name) =
-            ($self->unescape($6), $self->unescape($7), $self->unescape($8), $self->unescape($9));
-
-        push(@msgs, +{
-            link => $link,
-            subject => $subject,
-            name => $name,
-            user_link => $user_link,
-            time => $time,
-        });
-    }
-    return @msgs;
-}
-
-sub get_view_diary {
-    my $self = shift;
-    my $link = shift;
-
-    my $item = {};
-    my $res = $self->{mecha}->get($link);
-    return $item unless $self->{mecha}->success;
-
-    my $html = $self->{mecha}->content;
-    my $reg = $self->detail_regexp();
-    if ($html =~ m|$reg|is) {
-        $item = +{ subject => $6, description => $7};
-    }
-
-    return $item;
-}
-
@@ -199 +155 @@
-
-    my $item = {};
-a
-a
-
-$self->{mecha}->content
-
-$self->top_re
+
+
+
+decode('euc-jp', $self->{mech}->content)
+
+decode('utf-8', $self->top_re)
-    if ($html =~ /$re/s) {
-        $item->{image} = $1;
@@ -211 +167 @@
-
-    return $item;
-}
-
-sub unescape {
-    my $self = shift;                                                                                                                         
-    my $str  = shift;
-    my %unescaped = ('amp' => '&', 'quot' => '"', 'gt' => '>', 'lt' => '<', 'nbsp' => ' ', 'apos' => "'", 'copy' => '(c)');
-    my $re_target = join('|', keys(%unescaped));
-    $str =~ s/&($re_target|#x([0-9a-z]+));/defined($unescaped{$1}) ? $unescaped{$1} : defined($2) ? chr(hex($2)) : "&$1;"/ige;
-    return $str;
-}
-
-sub list_regexp {
-    return <<'RE';
-<tr class="bgwhite">
-<td width="1%" style="padding:5px 30px;" nowrap><small>(\d\d\d\d)\.(\d\d)\.(\d\d) (\d\d):(\d\d)</small></td>
-<td width="99%"><img src="/img/icon/diary_fp.gif" border="0" alt=".*?" title=".*?">
-<small>
-
-
-
-<a href="([^"]+?/blog/show[^"]+?)">(.*?)</a>.*?
-<a href="([^"]+?)"(?: rel="popup")?>([^"]+?)</a>.*?
-RE
-}
-
-sub detail_regexp {
-    return <<'RE';
-<td width="105" valign="top" rowspan="3" class="bg2 blogline1" nowrap><small>(\d\d\d\d)\.(\d\d)\.(\d\d)<br>(\d\d):(\d\d)</small></td>
-<td width="445" class="bg2 blogline3 blogcell"><small><strong>(.*?)</strong></small></td>
-</tr>
-<tr>
-<td class="bgwhite blogline2" style="line-height:115%;border-bottom:1px solid #fff;"><small>(.*?)</small></td>
-</tr>
-
-</table>
-RE
-;
-}
-
@@ -275 +194 @@
-      fetch_body: 1
-      show_icon: 1
+      feed_type:
+        - FriendStatus
+        - RecentComment
-
-=head1 DESCRIPTION