diff options
author | Christian Pointner <equinox@helsinki.at> | 2013-10-07 13:26:12 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2013-10-07 13:26:12 (GMT) |
commit | b59b3e5798202cc2e720c012cab0053f5fa4b889 (patch) | |
tree | 80d9ef9493c8d948842da9afe68219d3f6b47714 | |
parent | f9c25e62594b0a7880a3bbb657370bd9bc04c503 (diff) |
more relaxed check for radio stimme
-rwxr-xr-x | rhimport-rs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-rs b/rhimport-rs index 322d6fc..03d98c1 100755 --- a/rhimport-rs +++ b/rhimport-rs @@ -129,7 +129,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%02dCBA(.*)\.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"; |