Changeset 1505
- Timestamp:
- 08/20/06 18:52:35
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Filter/HEADEnclosureMetadata.pm
r749 r1505 3 3 use base qw( Plagger::Plugin ); 4 4 5 use File::Basename; 5 6 use Plagger::UserAgent; 6 7 … … 63 64 'length' => _header($res, 'Content-Length'), 64 65 'type' => _header($res, 'Content-Type'), 65 'filename' => _filename($res),66 'filename' => scalar _filename($res), 66 67 }; 67 68 } … … 77 78 sub _filename { 78 79 my $res = shift; 79 my $value = $res->header('Content-Disposition') ;80 my $value = $res->header('Content-Disposition') or return; 80 81 81 my $filename = ( $value =~ /; filename=(\S*)/ )[0] or return undef;82 my $filename = ( $value =~ /; filename=(\S*)/ )[0] or return; 82 83 $filename =~ s/^"(.*?)"$/$1/; 83 84 $filename;
