From 553c89a24cea6aff7bcf6c0099aaaedc2f5b954b Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Sun, 31 Jan 2016 18:21:46 +0100
Subject: allow - and _ as seperator between name and date for netwatcher


diff --git a/rhimport-nw b/rhimport-nw
index 3285224..2fe4253 100755
--- a/rhimport-nw
+++ b/rhimport-nw
@@ -85,7 +85,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