Changeset 1854

Timestamp:

11/25/06 18:01:51

Author:

miyagawa

Message:

• Added media:category support in Namespace::MediaRSS, which is hacky to load only Flickr tags
  
• Added Filter::FlickrGeotagged? to call Flickr API to get geo info from Flickr RSS/Atom feeds
  
• Added Bundle::Geo. For now it loads Namespace::Geo and ::GeoRSS only
  

Files:

• branches/feature-geo/plagger/deps/Bundle-Geo.yaml (added)
• branches/feature-geo/plagger/deps/Filter-FlickrGeotagged.yaml (added)
• branches/feature-geo/plagger/lib/Plagger/Plugin/Bundle/Geo.pm (added)
• branches/feature-geo/plagger/lib/Plagger/Plugin/Filter/FlickrGeotagged.pm (added)
• branches/feature-geo/plagger/lib/Plagger/Plugin/Namespace/MediaRSS.pm (modified) (1 diff)
• branches/feature-geo/plagger/t/plugins/Bundle-Geo (added)
• branches/feature-geo/plagger/t/plugins/Bundle-Geo/base.t (added)
• branches/feature-geo/plagger/t/plugins/Filter-FlickrGeotagged (added)
• branches/feature-geo/plagger/t/plugins/Filter-FlickrGeotagged/base.t (added)
• branches/feature-geo/plagger/t/samples/flickr-geo.xml (added)

branches/feature-geo/plagger/lib/Plagger/Plugin/Namespace/MediaRSS.pm

@@ -34 +34 @@
-    }
-
+    if (my $category = $media->{$media_ns}->{category}) {
+        # XXX make this pluggable
+        if ($category->{scheme} && $category->{scheme} eq 'urn:flickr:tags') {
+            my @tags = split /\s+/, $category;
+            $args->{entry}->add_tag($_) for @tags;
+        }
+    }
+
-    1;
-}