diff options
author | Christian Pointner <equinox@helsinki.at> | 2013-01-03 17:02:57 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2013-01-03 17:02:57 (GMT) |
commit | 9f76052a99742b0b6bc449ea8f0f921077cfdbd4 (patch) | |
tree | 29284b398bb1bf33ff4aeb044f6bc9290ad0da4f /rhimport-rs | |
parent | 4453b157866875f925fe2c26f7c86027b4674fc4 (diff) |
decoding HTML entities frm summary
less specific regex for radio attac
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-x | rhimport-rs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rhimport-rs b/rhimport-rs index 099b30b..fc9454a 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -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; @@ -111,8 +112,8 @@ while(1) { my $ff = File::Fetch->new(uri => $entry->enclosure->url); next unless (uc($ff->output_file) =~ $bdfile); # file not from correct day - 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); my $current_file = `cat $STAT_FILE`; if($current_file eq $ff->output_file) { |