summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xrhimport-rs4
1 files changed, 2 insertions, 2 deletions
diff --git a/rhimport-rs b/rhimport-rs
index d501cf9..ff3f016 100755
--- a/rhimport-rs
+++ b/rhimport-rs
@@ -85,9 +85,9 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat
print "day of Radio Helsinki rebroadcast: " . Date::Calc::Date_to_Text(@import_date_reb) . "\n";
my $bdtw = sprintf("%04d-%02d-%02d", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
-my $bdtwfile = sprintf("RAST%04d%02d%02dCBA.MP3", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
+my $bdtwfile = sprintf("RAST%04d%02d%02dCBA(.*).MP3", $broadcast_day[0], $broadcast_day[1], $broadcast_day[2]);
my $bdlw = sprintf("%04d-%02d-%02d", $broadcast_day_last_week[0], $broadcast_day_last_week[1], $broadcast_day_last_week[2]);
-my $bdlwfile = sprintf("RAST%04d%02d%02dCBA.MP3", $broadcast_day_last_week[0], $broadcast_day_last_week[1], $broadcast_day_last_week[2]);
+my $bdlwfile = sprintf("RAST%04d%02d%02dCBA(.*).MP3", $broadcast_day_last_week[0], $broadcast_day_last_week[1], $broadcast_day_last_week[2]);
print "looking for files from $bdtw or $bdlw in RSS Feed\n";
my $feed = XML::Feed->parse(URI->new($RSS_URL))