summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2017-03-14 18:14:45 +0000
committerdakkar <dakkar@thenautilus.net>2017-03-14 18:14:45 +0000
commit4f352ff29fb6506f8dccc423899fe8dd5801a98e (patch)
treeb97ef8ff008e1bea0c2e9742cd68591387b7e046
parentuse UnBase64 (diff)
downloadfeeder-4f352ff29fb6506f8dccc423899fe8dd5801a98e.tar.gz
feeder-4f352ff29fb6506f8dccc423899fe8dd5801a98e.tar.bz2
feeder-4f352ff29fb6506f8dccc423899fe8dd5801a98e.zip
fix UnBase64
-rw-r--r--lib/Feed/Role/UnBase64.pm17
1 files changed, 6 insertions, 11 deletions
diff --git a/lib/Feed/Role/UnBase64.pm b/lib/Feed/Role/UnBase64.pm
index 943d066..9f7d08a 100644
--- a/lib/Feed/Role/UnBase64.pm
+++ b/lib/Feed/Role/UnBase64.pm
@@ -5,19 +5,14 @@ use namespace::autoclean;
use MIME::Base64;
use Try::Tiny;
-around extract_entries => sub {
- my ($orig, $self) = @_;
+before process_entry => sub {
+ my ($self, $entry) = @_;
- my $entries = $self->$orig();
-
- for my $entry (@{ $entries }) {
- my $html= $entry->content->body;
- if( $html =~ m{\A[A-Za-z0-9/=-]+\z} ) {
- try { $entry->content( decode_base64($html) ) };
- };
+ my $html = $entry->unified_content->body or return;
+ $self->log->warn(">>$html<<");
+ if( $html =~ m{\A[A-Za-z0-9/=+\n-]+\z} ) {
+ try { $entry->content( decode_base64($html) ) };
};
-
- return $entries;
};
1;