summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--INFO2
-rw-r--r--debian/changelog8
-rwxr-xr-xrhautoimport-pv10
3 files changed, 13 insertions, 7 deletions
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);
}
}