From e48bb772a9a535e0d401e7d13fd41dd41b7403fd Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 12 Jun 2019 13:52:28 +0200
Subject: update script for Werkstattradio


diff --git a/INFO b/INFO
index 5f4713b..3c27514 100644
--- a/INFO
+++ b/INFO
@@ -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 {
-- 
cgit v0.10.2