diff options
| -rw-r--r-- | INFO | 2 | ||||
| -rwxr-xr-x | rhautoimport-wr | 8 |
2 files changed, 5 insertions, 5 deletions
@@ -38,7 +38,7 @@ Original: dritter Montag im Monat Upload: immer mehrere Tage davor Such-Kriterium: cba:broadcastDate - RH: 2wöchentlich, Woche 1/3, Samstag, 16:00-17:00 + RH: 2wöchentlich, Woche 2/4, Mittwoch, 19:00-20:00 - (btl) Between the Lines http://www.btlonline.org/rss/btl128.xml diff --git a/rhautoimport-wr b/rhautoimport-wr index a5ece8b..c9745af 100755 --- a/rhautoimport-wr +++ b/rhautoimport-wr @@ -50,7 +50,7 @@ binmode(STDERR, ":utf8"); my $curweek = RHRD::utils::get_rd_week(); -if($curweek == 1 || $curweek == 3) { +if($curweek == 2 || $curweek == 4) { if($#ARGV >= 0 && $ARGV[0] eq 'last') { print "!!!This is the last attempt, there won't be a retry on error!!!\n"; $LAST_RUN = 1; @@ -77,12 +77,12 @@ my @today = Date::Calc::Today(); print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n"; my @import_date = Date::Calc::Standard_to_Business(@today); -$import_date[2] = 6; +$import_date[2] = 3; @import_date = Date::Calc::Business_to_Standard(@import_date); my $dow = Date::Calc::Day_of_Week(@today); -if($curweek == 1 || $curweek == 3) { - if($dow > 6) { +if($curweek == 2 || $curweek == 4) { + if($dow > 3) { @import_date = Date::Calc::Add_Delta_Days(@import_date, 14); } } else { |