diff options
| author | Christian Pointner <equinox@helsinki.at> | 2013-04-10 23:18:14 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2013-04-10 23:18:14 (GMT) |
| commit | 5b4551b4e128ef1b51d9d4ee9be714a99b3689a0 (patch) | |
| tree | ef1e30d6837c677e75e17169df27cac26cf0cc0b | |
| parent | 0407751bd4006278433afc7ad6071f4a0f03cc87 (diff) | |
further improved regexp for sounds of movement
| -rwxr-xr-x | rhimport-sm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-sm b/rhimport-sm index f1fb60e..bbddbe5 100755 --- a/rhimport-sm +++ b/rhimport-sm @@ -116,7 +116,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("%04d%02d%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); +my $bdfile = sprintf("%04d-?%02d-?%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; |