From 5a6a71e977a4e12bcff38c502c9c83be9c7616f9 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Sun, 31 Jan 2016 18:47:27 +0100
Subject: updated netwatcher regex


diff --git a/rhautoimport-nw b/rhautoimport-nw
index 3d6656b..f09fe08 100755
--- a/rhautoimport-nw
+++ b/rhautoimport-nw
@@ -88,7 +88,7 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat
 
 my $id = sprintf("%04d-%02d-%02d", @import_date);
 my $bd = sprintf("%04d-%02d-%02d", @broadcast_day);
-my $bdfile = sprintf("NETWATCHER%04d%02d%02d(.*)\.MP3", @broadcast_day);
+my $bdfile = sprintf("NETWATCHER[-_]?%04d%02d%02d(.*)\.MP3", @broadcast_day);
 print "looking for files from $bd in RSS Feed\n";
 print " -> $RSS_URL\n";
 
-- 
cgit v0.10.2