allow dashes in date format for tierrechtsradio

1 files changed, 1 insertions, 1 deletions

diff --git a/rhimport-tr b/rhimport-tr
index d86bdb9..e02ae0c 100755
--- a/rhimport-tr
+++ b/rhimport-tr
@@ -86,7 +86,7 @@ print "day of original broadcast: " . Date::Calc::Date_to_Text(@broadcast_day) .
 print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n";
 
 my $bd = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
-my $bdfile = sprintf("^%04d%02d%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
+my $bdfile = sprintf("^%04d-?%02d-?%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
 
 print "looking for files from $bd in RSS Feed\n";
 print " -> $RSS_URL\n";