diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-11-18 00:24:26 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-11-18 00:24:26 (GMT) |
commit | 2023f680fb04d6139406c13e41f73e26903ce8d9 (patch) | |
tree | 0e7fc1cdc93616c73bb1c69cec111a9935878b21 /rhimport-rs | |
parent | 10ad28260299aa002962a407c944a8e0e56c6e3e (diff) |
Diffstat (limited to 'rhimport-rs')
-rwxr-xr-x | rhimport-rs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-rs b/rhimport-rs index bb1453a..94c4912 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -119,7 +119,7 @@ if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) { my $id = sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]); my $bd = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); -my $bdfile = sprintf("RAST%04d%02d%02d(CBA)?(.*)\.MP3", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); +my $bdfile = sprintf("RAST%04d-?%02d-?%02d(CBA)?(.*)\.MP3", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; |