From d5fa7fe6f279d96e3ed637519d424fe4264f21f0 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Thu, 26 Apr 2018 16:21:40 +0200
Subject: updated pura vida sounds


diff --git a/INFO b/INFO
index 4a481e5..856d4aa 100644
--- a/INFO
+++ b/INFO
@@ -82,7 +82,7 @@
    Such-Kriterium: Dateiname beginnt mit 'YYYY-mm-dd'
          es gibt nur eine Sendung pro Monat -> immer die
          aktuellste spielen (manchmal 2 statt eine Wiederh.)
-   RH: 2wöchentlich, Woche 2/4, Montag, 16:00-17:00
+   RH: 2wöchentlich, Woche 1/3, Dienstag, 21:00-22:00
 
 - (lr) literadio on air:
    https://cba.fro.at/series/aufdraht-literadio-on-air/feed
diff --git a/debian/changelog b/debian/changelog
index 5675379..95bd464 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,10 @@
-rhautoimport (44-1) UNRELEASED; urgency=medium
+rhautoimport (45-1) UNRELEASED; urgency=medium
+
+  * Pura Vida Sounds is now Tuesdays
+
+ -- Christian Pointner <equinox@helsinki.at>  Thu, 26 Apr 2018 16:21:03 +0200
+
+rhautoimport (44-1) unstable; urgency=medium
 
   * fix A Year Abroad
 
diff --git a/rhautoimport-pv b/rhautoimport-pv
index ef7b1b5..430128e 100755
--- a/rhautoimport-pv
+++ b/rhautoimport-pv
@@ -49,7 +49,7 @@ binmode(STDERR, ":utf8");
 my $curweek = RHRD::utils::get_rd_week();
 
 if($#ARGV >= 0 && $ARGV[0] eq 'last') {
-  if($curweek == 2 || $curweek == 4) {
+  if($curweek == 1 || $curweek == 3) {
     print "!!!This is the last attempt, there won't be a retry on error!!!\n";
     $LAST_RUN = 1;
   }
@@ -74,14 +74,14 @@ my @today = Date::Calc::Today();
 
 my @import_date = Date::Calc::Standard_to_Business(@today);
 my $dow = $import_date[2];
-@import_date = Date::Calc::Business_to_Standard($import_date[0], $import_date[1], 1);
-if($dow == 1) {
-  if($curweek == 1 || $curweek == 3) {
+@import_date = Date::Calc::Business_to_Standard($import_date[0], $import_date[1], 2);
+if($dow <= 2) {
+  if($curweek == 2 || $curweek == 4) {
     @import_date = Date::Calc::Add_Delta_Days(@import_date, 7);
   }
 } else {
   @import_date = Date::Calc::Add_Delta_Days(@import_date, 7);
-  if($curweek == 2 || $curweek == 4) {
+  if($curweek == 1 || $curweek == 3) {
     @import_date = Date::Calc::Add_Delta_Days(@import_date, 7);
   }
 }
-- 
cgit v0.10.2