diff options
| -rwxr-xr-x | rhautoimport-ra | 2 |
1 files changed, 2 insertions, 0 deletions
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"; |