From a50293d68c027412248e4f2d4c6372a8eeff7687 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Fri, 12 Feb 2016 16:28:42 +0100
Subject: allow dashes in date format for tierrechtsradio


diff --git a/debian/changelog b/debian/changelog
index 7346d1e..5f6dc12 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+rhimport (0.3.15-42) unstable; urgency=medium
+
+  * allow dashes in date format for TR and NW
+
+ -- Christian Pointner <equinox@helsinki.at>  Fri, 12 Feb 2016 16:26:29 +0100
+
 rhimport (0.3.15-41) unstable; urgency=medium
 
   * fixed utf-8 issue with uri_unescape (for playlists)
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";
-- 
cgit v0.10.2