From 7702f414652a2ef64fdb0a261e3c256261b26f88 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Wed, 27 Jan 2021 16:16:32 +0100
Subject: print todays date on ra importer


diff --git a/rhautoimport-ra b/rhautoimport-ra
index 46980e5..2bfe744 100755
--- a/rhautoimport-ra
+++ b/rhautoimport-ra
@@ -74,6 +74,8 @@ $tmp[2] = 1;
 my @broadcast_date = Date::Calc::Business_to_Standard(@tmp);
 $tmp[2] = 6;
 my @import_date = Date::Calc::Business_to_Standard(@tmp);
+
+print "today: " . Date::Calc::Date_to_Text(@today) . "\n";
 print "day of original broadcast: " . Date::Calc::Date_to_Text(@broadcast_date) . "\n";
 print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n";
 
-- 
cgit v0.10.2