decoding HTML entities frm summary

less specific regex for radio attac

1 files changed, 4 insertions, 3 deletions

diff --git a/rhimport-ra b/rhimport-ra
index f363c15..baac2c9 100755
--- a/rhimport-ra
+++ b/rhimport-ra
@@ -31,6 +31,7 @@ use XML::Feed::Enclosure;
 use File::Fetch;
 use IO::Handle;
 use IPC::Open3;
+use HTML::Entities;
 
 use lib '/usr/local/share/rhimport/';
 use rhimport;
@@ -88,14 +89,14 @@ print " -> $RSS_URL\n";
 my $feed = XML::Feed->parse(URI->new($RSS_URL))
   or die "Error fetching feed: " . XML::Feed->errstr;
 
-my $bdexp = sprintf("^(\\d+)\\..*,\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]);
+my $bdexp = sprintf("^(\\d+)\\..*\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]);
 
 my $file = "";
 my $out_file = "";
 for my $entry ($feed->entries) {
   if($entry->enclosure && $entry->enclosure->type eq "audio/mpeg") {
-    my $sum_title = $entry->title;
-    my $sum_text = $entry->content->body;
+    my $sum_title = decode_entities($entry->title);
+    my $sum_text = decode_entities($entry->content->body);
     next unless $sum_title =~ /$bdexp/;
     my $bnum = $1;