Changeset 850

Timestamp:

05/30/06 01:26:30

Author:

miyagawa

Message:

FindEnclosures?: Find flash enclosure inside HTML body by looking up param@movie and param@flashvars inside <object> tag. Fixes #251

Files:

• trunk/plagger/lib/Plagger/Plugin/Filter/FindEnclosures.pm (modified) (4 diffs)
• trunk/plagger/t/plugins/Filter-FindEnclosures (added)
• trunk/plagger/t/plugins/Filter-FindEnclosures/object.t (added)

trunk/plagger/lib/Plagger/Plugin/Filter/FindEnclosures.pm

@@ -5 +5 @@
-use HTML::TokeParser;
-use Plagger::Util qw( decode_content );
+use List::Util qw(first);
-use URI;
-use DirHandle;
@@ -82 +83 @@
-
-    my $parser = HTML::TokeParser->new(\$args->{entry}->body);
-
+, 'object'
-        if ($tag->[0] eq 'a' ) {
-            $self->add_enclosure($args->{entry}, $tag, 'href');
-        } elsif ($tag->[0] eq 'embed') {
-
+, { type => $tag->[1]->{type} }
-        } elsif ($tag->[0] eq 'img') {
-
+
+
+
-        }
-    }
-}
-
+sub add_enclosure_from_object {
+    my($self, $entry, $parser) = @_;
+
+    # get param tags and find appropriate FLV movies
+    my @params;
+    while (my $tag = $parser->get_tag('param', '/object')) {
+        last if $tag->[0] eq '/object';
+        push @params, $tag;
+    }
+
+    # find URL inside flashvars parameter
+    my $url;
+    if (my $flashvars = first { lc($_->[1]->{name}) eq 'flashvars' } @params) {
+        my %values = split /[=&]/, $flashvars->[1]->{value} || '';
+        $url = first { m!^https?://! } values %values;
+    }
+
+    # if URL isn't found in flash vars, then fallback to <param name="movie" />
+    if (!$url) {
+        my $movie = first { lc($_->[1]->{name}) eq 'movie' } @params;
+        $url = $movie->[1]->{value} if $movie;
+    }
+
+    if ($url) {
+        Plagger->context->log(info => "Found enclosure $url");
+        my $enclosure = Plagger::Enclosure->new;
+        $enclosure->url( URI->new($url) );
+        $enclosure->auto_set_type;
+        $entry->add_enclosure($enclosure); # XXX inline?
+    }
+}
+
-sub add_enclosure {
-
-
-
+
+
+
+
-        Plagger->context->log(info => "Found enclosure $tag->[1]{$attr}");
-        my $enclosure = Plagger::Enclosure->new;
-        $enclosure->url($tag->[1]{$attr});
-
-$inline)
+($opt->{type})
+1) if $opt->{inline}
-        $entry->add_enclosure($enclosure);
-        return;
@@ -133 +169 @@
-
-sub is_enclosure {
-
+, $type
-
-    return 1 if $tag->[1]{rel} && $tag->[1]{rel} eq 'enclosure';
-
+, $type
-
-    return;
@@ -142 +178 @@
-
-sub has_enclosure_mime_type {
-
-
-
+, $type
+
+$type ? MIME::Type->new(type => $type) : 
-    $mime && $mime->mediaType =~ m!^(?:audio|video|image)$!;
-}