From 07c71b9ced1ec24e6848addde92ae148771a2af8 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Sat, 16 May 2015 11:42:08 +0000
Subject: make onda info regexp more flexible


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(.*)/;
-- 
cgit v0.10.2