summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2021-10-06 09:43:30 (GMT)
committerChristian Pointner <equinox@helsinki.at>2021-10-06 09:43:30 (GMT)
commit9354f36417fa5e870545bf9f70fbdee0aba38809 (patch)
tree689714461a374cc8bee0b1f57d3d91d84b1e4ae9
parentf4da301cb673a8ecdfbf2e7932b379bc3cef69cd (diff)
fix import for btl
-rwxr-xr-xrhautoimport-btl1
-rw-r--r--rhautoimport.pm1
2 files changed, 2 insertions, 0 deletions
diff --git a/rhautoimport-btl b/rhautoimport-btl
index 52db078..cb5a6c9 100755
--- a/rhautoimport-btl
+++ b/rhautoimport-btl
@@ -133,6 +133,7 @@ for my $entry ($feed->entries) {
$sum_title = decode_entities($entry->title);
$sum_title =~ s/ \(128 kbps\)$//;
+ $sum_title =~ s/ \(broadcast affiliate version\)//;
$sum_text = decode_entities($entry->content->body);
print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
last;
diff --git a/rhautoimport.pm b/rhautoimport.pm
index 9bdbc8b..4e893ae 100644
--- a/rhautoimport.pm
+++ b/rhautoimport.pm
@@ -96,6 +96,7 @@ sub fetch_parse_rss
return (0, "This feed has been permanently removed") if $res->status == URI::Fetch::URI_GONE();
my $xml = $res->content;
+ $xml =~ s/<podcast:guid>[^<]*<\/podcast:guid>//ig;
return (1, XML::Feed->parse(\$xml));
}