summaryrefslogtreecommitdiff
path: root/rhimport-sm
diff options
context:
space:
mode:
Diffstat (limited to 'rhimport-sm')
-rwxr-xr-xrhimport-sm12
1 files changed, 7 insertions, 5 deletions
diff --git a/rhimport-sm b/rhimport-sm
index b077249..c61e3f9 100755
--- a/rhimport-sm
+++ b/rhimport-sm
@@ -82,12 +82,14 @@ if($curweek < 1 || $curweek > 4) {
exit 1;
}
-if($curweek != 1 && $curweek != 4) {
+my @today = Date::Calc::Today();
+my $dow = Date::Calc::Day_of_Week(@today);
+if(($curweek != 1 && $curweek != 4) ||
+ ($curweek == 1 && $dow > 3) ||
+ ($curweek == 4 && $dow <= 3)) {
$dbh->disconnect();
exit 0;
}
-
-my @today = Date::Calc::Today();
print "today: " . Date::Calc::Date_to_Text(@today) . "\n";
my @import_date = Date::Calc::Standard_to_Business(@today);
@@ -101,7 +103,7 @@ print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@impor
my @broadcast_date = Date::Calc::Nth_Weekday_of_Month_Year($import_date[0], $import_date[1], 3, 1);
if(Date::Calc::Delta_Days(@broadcast_date, @import_date) <= 0) {
my @tmp_date = Date::Calc::Add_Delta_YM(@broadcast_date, 0, -1);
- @broadcast_date = Date::Calc::Nth_Weekday_of_Month_Year($tmp_date[0], $tmp_date[1], 2, 3);
+ @broadcast_date = Date::Calc::Nth_Weekday_of_Month_Year($tmp_date[0], $tmp_date[1], 3, 1);
}
print "day of latest original broadcast before next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@broadcast_date) . "\n";
@@ -113,7 +115,7 @@ if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) {
my $id = sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]);
my $bd = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
-my $bdfile = sprintf("%04d-%02d-%02", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
+my $bdfile = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
print "looking for files from $bd in RSS Feed\n";
print " -> $RSS_URL\n";