diff options
Diffstat (limited to 'rhimport-ra')
| -rwxr-xr-x | rhimport-ra | 7 |
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; |