summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-03-12 05:01:22 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-03-12 05:01:22 (GMT)
commitc29dcdf834efd8623ab20f34fd47e1e24ab619b2 (patch)
treecd0e3a3e82ff69eafc0b2d6a1d714a0e24ef5d7b
parent20447227f487ca25354255f5f2171976afbe8d7b (diff)
small cleanups and fixes
-rwxr-xr-xrhautoimport-ra3
-rwxr-xr-xrhautoimport-tr2
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";