From 9354f36417fa5e870545bf9f70fbdee0aba38809 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 6 Oct 2021 11:43:30 +0200
Subject: fix import for btl


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));
 }
-- 
cgit v0.10.2