diff options
| author | Christian Pointner <equinox@helsinki.at> | 2018-03-15 12:37:46 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2018-03-15 12:37:46 (GMT) |
| commit | e0e3d971c58733ea937d75bcf6e30e1ba10c465c (patch) | |
| tree | 15d89cfd3402eac929c2d5d9d508a3d66ea2a272 | |
| parent | e82384ec81d4ec1b657432ed06e8b2448f07b1b6 (diff) | |
fix ab importer
| -rw-r--r-- | INFO | 2 | ||||
| -rwxr-xr-x | rhautoimport-ab | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -118,4 +118,4 @@ Original: vierter Freitag im Monat Upload: ein paar tage davor? (bisher nur ein Upload) Such-Kriterium: cba:broadcastDate - RH: 4wöchentlich, Woche 3, Donnerstag, 15:00-16:00 + RH: 4wöchentlich, Woche 3, Freitag, 15:00-16:00 diff --git a/rhautoimport-ab b/rhautoimport-ab index 537fd07..3ff1b53 100755 --- a/rhautoimport-ab +++ b/rhautoimport-ab @@ -42,7 +42,7 @@ my $RD_GROUP = "yearabroad"; my $PV_ID = '672'; my $TITLE = "A Year Abroad"; my $LAST_RUN = 0; -my $upload_delay_days = -3; # files are usally there at least 3 days before original broadcast?? histroy will tell! +my $upload_delay_days = -3; # files are usally there at least 3-1 days before original broadcast?? history will tell! binmode(STDIN, ":utf8"); binmode(STDOUT, ":utf8"); @@ -50,7 +50,7 @@ binmode(STDERR, ":utf8"); my $curweek = RHRD::utils::get_rd_week(); -if($curweek == 2) { +if($curweek == 3) { 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; @@ -72,7 +72,7 @@ if($curweek == 1) { } elsif($curweek == 2) { @import_date = Date::Calc::Add_Delta_Days(@import_date, 7); } elsif($curweek == 3) { - if($dow > 4) { + if($dow > 5) { @import_date = Date::Calc::Add_Delta_Days(@import_date, 28); } } else { |