diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-01-31 17:21:46 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-01-31 17:21:46 (GMT) |
| commit | 553c89a24cea6aff7bcf6c0099aaaedc2f5b954b (patch) | |
| tree | ee841ba430a036243e25e6d787f03ab56d359f31 /rhimport-nw | |
| parent | 0cac0c38be4091de7f379a6af5aa916ba3568c56 (diff) | |
allow - and _ as seperator between name and date for netwatcher
Diffstat (limited to 'rhimport-nw')
| -rwxr-xr-x | rhimport-nw | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |