diff options
| -rwxr-xr-x | rhautoimport-ra | 3 | ||||
| -rwxr-xr-x | rhautoimport-tr | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/rhautoimport-ra b/rhautoimport-ra index 84acc68..a531458 100755 --- a/rhautoimport-ra +++ b/rhautoimport-ra @@ -99,7 +99,6 @@ for my $entry ($feed->entries) { my $sum_title = decode_entities($entry->title); next unless $sum_title =~ /$bdexp/; - my $sum_text = decode_entities($entry->content->body); my $bnum = $1; $uri = new URI::URL($orig_uri); @@ -117,8 +116,8 @@ for my $entry ($feed->entries) { exit 1; } + my $sum_text = decode_entities($entry->content->body); print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n"; - rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]), "1"); print "\n"; rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", $import_date_reb[0], $import_date_reb[1], $import_date_reb[2]), "2"); diff --git a/rhautoimport-tr b/rhautoimport-tr index fac160a..2de6c42 100755 --- a/rhautoimport-tr +++ b/rhautoimport-tr @@ -73,7 +73,7 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat my $id = sprintf("%04d-%02d-%02d", @import_date); my $bd = sprintf("%04d-%02d-%02d", @broadcast_day); -my $bdfile = sprintf("^%04d%02d%02d", @broadcast_day); +my $bdfile = sprintf("^%04d-?%02d-?%02d", @broadcast_day); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; |