Changeset 1606
- Timestamp:
- 08/27/06 01:42:22
- Files:
-
- trunk/plagger/lib/Plagger/Plugin/Filter/FindEnclosures.pm (modified) (1 diff)
- trunk/plagger/lib/Plagger/Util.pm (modified) (2 diffs)
- trunk/plagger/t/core/mime-is-enclosure.t (added)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Filter/FindEnclosures.pm
r1588 r1606 182 182 183 183 my $mime = $type ? MIME::Type->new(type => $type) : Plagger::Util::mime_type_of( URI->new($url) ); 184 $mime && $mime->mediaType =~ m!^(?:audio|video|image)$!;184 Plagger::Util::mime_is_enclosure($mime); 185 185 } 186 186 trunk/plagger/lib/Plagger/Util.pm
r1605 r1606 2 2 use strict; 3 3 our @ISA = qw(Exporter); 4 our @EXPORT_OK = qw( strip_html dumbnail decode_content extract_title load_uri mime_type_of filename_for );4 our @EXPORT_OK = qw( strip_html dumbnail decode_content extract_title load_uri mime_type_of filename_for mime_is_enclosure ); 5 5 6 6 use Encode (); … … 147 147 } 148 148 149 sub mime_is_enclosure { 150 my $mime = shift; 151 return unless $mime; 152 $mime->mediaType =~ m!^(?:audio|video|image)$! || $mime->type eq 'application/ogg'; 153 } 154 149 155 my %entities = ( 150 156 '&' => '&',
