From d0e4e4384362dfe976e49b93ad01bfb6d4b4039b Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Thu, 2 Jun 2016 21:40:50 +0200
Subject: make btl importer less pedantic


diff --git a/rhimport-btl b/rhimport-btl
index 600535f..240f3a9 100755
--- a/rhimport-btl
+++ b/rhimport-btl
@@ -86,7 +86,7 @@ print "ending of current broadcast cycle: " . Date::Calc::Date_to_Text(@broadcas
 
 my $id = sprintf("%04d-%02d-%02d", @import_date);
 my $bd = sprintf("%04d-%02d-%02d", @broadcast_date);
-my $bdfile = sprintf("%02d%02d%02d-btlv128\.mp3", $broadcast_date[0]%100, $broadcast_date[1], $broadcast_date[2]);
+my $bdfile = sprintf("%02d%02d%02d.*-btlv128\.mp3", $broadcast_date[0]%100, $broadcast_date[1], $broadcast_date[2]);
 
 print "looking for files like '$bdfile' in RSS Feed\n";
 print " -> $RSS_URL\n";
-- 
cgit v0.10.2