summaryrefslogtreecommitdiff
path: root/rhautoimport-wr
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2019-06-12 11:52:28 (GMT)
committerChristian Pointner <equinox@helsinki.at>2019-06-12 11:52:28 (GMT)
commite48bb772a9a535e0d401e7d13fd41dd41b7403fd (patch)
tree759ceb7a58a76214234355727308986262390c43 /rhautoimport-wr
parenteae9367905d4812d03dc97857212299cadc16733 (diff)
update script for Werkstattradio
Diffstat (limited to 'rhautoimport-wr')
-rwxr-xr-xrhautoimport-wr8
1 files changed, 4 insertions, 4 deletions
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 {