make onda info regexp more flexible

1 files changed, 1 insertions, 1 deletions

diff --git a/rhimport-oi b/rhimport-oi
index a08490d..b2d5377 100755
--- a/rhimport-oi
+++ b/rhimport-oi
@@ -85,7 +85,7 @@ print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@impor
 print "Number of next broadcast: " . $broadcast_num . "\n";
 
 my $id = sprintf("%04d-%02d-%02d", @import_date);
-my $bdfile = sprintf('.*ondainfo_%d.*\.mp3$', $broadcast_num);
+my $bdfile = sprintf('.*onda.?info_%d.*\.mp3$', $broadcast_num);
 
 my $current_stat = `cat $STAT_FILE`;
 my ($current_id, $current_file) = $current_stat =~ m/^(.*)\n(.*)/;