summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xrhimport-wl4
1 files changed, 2 insertions, 2 deletions
diff --git a/rhimport-wl b/rhimport-wl
index aac05bb..91dd4ff 100755
--- a/rhimport-wl
+++ b/rhimport-wl
@@ -73,13 +73,13 @@ my $tfile;
if(Date::Calc::Day_of_Week(@today) == 7) {
@import_date = Date::Calc::Add_Delta_Days($today[0], $today[1], $today[2], 0);
$t = sprintf("%04d-%02d-%02d", $today[0], $today[1], $today[2]);
- $tfile = sprintf("[0-9-]+_%04d%02d%02d(-\d+)?.mp3", $today[0], $today[1], $today[2]);
+ $tfile = sprintf("[0-9-]+_%04d%02d%02d(-[0-9]+)?.mp3", $today[0], $today[1], $today[2]);
print "looking for files from today in RSS Feed ($tfile)\n";
} elsif(Date::Calc::Day_of_Week(@today) == 1) {
my @yesterday = Date::Calc::Add_Delta_Days($today[0], $today[1], $today[2], -1);
@import_date = @today;
$t = sprintf("%04d-%02d-%02d", $yesterday[0], $yesterday[1], $yesterday[2]);
- $tfile = sprintf("[0-9-]+_%04d%02d%02d(-\d+)?.mp3", $yesterday[0], $yesterday[1], $yesterday[2]);
+ $tfile = sprintf("[0-9-]+_%04d%02d%02d(-[0-9]+)?.mp3", $yesterday[0], $yesterday[1], $yesterday[2]);
print "looking for files from yesterday in RSS Feed ($tfile)\n";
} else {
print "it's neither Sunday nor Monday, please check cron script";