Changeset 1611

Timestamp:

08/27/06 15:45:01

Author:

miyagawa

Message:

fixed warning on lexical variable redefined

Files:

• branches/hackathon-summary/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm (modified) (2 diffs)

branches/hackathon-summary/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm

@@ -171 +171 @@
-
-        # TODO: move MediaRSS, Hatena, iTunes and those specific parser to be subclassed
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
-
-        my $args = {
@@ -231 +188 @@
-    $context->log(info => "Aggregate $url success: " . $feed->count . " entries.");
-    $context->update->add($feed);
+}
+
+sub handle_media_rss {
+    my($self, $entry, $e) = @_;
+
+    my $media_ns = "http://search.yahoo.com/mrss";
+    my $media = $e->{entry}->{$media_ns}->{group} || $e->{entry};
+    my $content = $media->{$media_ns}->{content} || [];
+    $content = [ $content ] unless ref $content && ref $content eq 'ARRAY';
+
+    for my $media_content (@{$content}) {
+        my $enclosure = Plagger::Enclosure->new;
+        $enclosure->url( URI->new($media_content->{url}) );
+        $enclosure->auto_set_type($media_content->{type});
+        $entry->add_enclosure($enclosure);
+    }
+
+    if (my $thumbnail = $media->{$media_ns}->{thumbnail}) {
+        $entry->icon({
+            url   => $thumbnail->{url},
+            width => $thumbnail->{width},
+            height => $thumbnail->{height},
+        });
+    }
+}
+
+sub handle_hatena_image {
+    my($self, $entry, $e) = @_;
+
+    # Hatena Image extensions
+    my $hatena = $e->{entry}->{"http://www.hatena.ne.jp/info/xmlns#"} || {};
+    if ($hatena->{imageurl}) {
+        my $enclosure = Plagger::Enclosure->new;
+        $enclosure->url($hatena->{imageurl});
+        $enclosure->auto_set_type;
+        $entry->add_enclosure($enclosure);
+    }
+
+    if ($hatena->{imageurlsmall}) {
+        $entry->icon({ url   => $hatena->{imageurlsmall} });
+    }
+}
+
+sub handle_apple_photocast {
+    my($self, $entry, $e) = @_;
+
+    my $apple = $e->{entry}->{"http://www.apple.com/ilife/wallpapers"} || {};
+    if ($apple->{image}) {
+        my $enclosure = Plagger::Enclosure->new;
+        $enclosure->url( URI->new($apple->{image}) );
+        $enclosure->auto_set_type;
+        $entry->add_enclosure($enclosure);
+    }
+    if ($apple->{thumbnail}) {
+        $entry->icon({ url => $apple->{thumbnail} });
+    }
-}
-