Changeset 128

Timestamp:

02/23/06 23:35:44

Author:

miyagawa

Message:

Support $entry->icon in Frepa as well. Refs #55

Files:

• trunk/plagger/lib/Plagger/Plugin/CustomFeed/Frepa.pm (modified) (3 diffs)

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

@@ -71 +71 @@
-        }
-
+        if ($self->conf->{show_icon} && !$blocked) {
+            my $item = $self->fetch_icon($msg->{user_link});
+            if ($item && $item->{image} !~ /no_photo/) {
+                $entry->icon({
+                    title => decode('euc-jp', $item->{name}),
+                    url   => $item->{image},
+                    link  => $msg->{user_link},
+                });
+            }
+        }
+
-        $feed->add_entry($entry);
-    }
-
-    $context->update->add($feed);
+}
+
+sub fetch_icon {
+    my($self, $url) = @_;
+
+    unless ($self->{__icon_cache}->{$url}) {
+        Plagger->context->log(info => "Fetch icon from $url");
+        $self->{__icon_cache}->{$url} = $self->{frepa}->get_top($url);
+    }
+
+    $self->{__icon_cache}->{$url};
-}
-
@@ -145 +167 @@
-        $item = +{description => $7};
-    }
+
+    return $item;
+}
+
+sub get_top {
+    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;
+
+    chomp( my $re  = $self->top_re );
+    if ($html =~ /$re/s) {
+        $item->{image} = $1;
+        $item->{name}  = $2;
+    }
+
-    return $item;
-}
@@ -185 +227 @@
-}
-
+sub top_re {
+    return <<'RE';
+<a href="http://frepa\.livedoor\.com/.*?/"><img src="(http://img\d+\.ico\.frepa\.livedoor\.com/member_photo/.*?\.(?:jpe?g|JPE?G|gif|GIF))" border="0"></a>
+</small>
+.*?
+<div id="namebody"><small><strong>(.*?)....</strong>
+RE
+}
+
-1;
-__END__