summaryrefslogtreecommitdiff
path: root/rhimport-oi
diff options
context:
space:
mode:
Diffstat (limited to 'rhimport-oi')
-rwxr-xr-xrhimport-oi5
1 files changed, 2 insertions, 3 deletions
diff --git a/rhimport-oi b/rhimport-oi
index cc0adb6..d596c0b 100755
--- a/rhimport-oi
+++ b/rhimport-oi
@@ -72,10 +72,9 @@ my $to_cart = $allowed_dbs[0]->{'TO_CART'};
my @today = Date::Calc::Today();
-my $dow = Date::Calc::Day_of_Week(@today);
my @import_date = Date::Calc::Add_Delta_Days(@today, 7);
@import_date = Date::Calc::Standard_to_Business(@import_date);
-$import_date[2] = 1;
+$import_date[2] = 2;
@import_date = Date::Calc::Business_to_Standard(@import_date);
my $broadcast_num = `cat $LAST_FILE`;
@@ -85,7 +84,7 @@ print "today: " . Date::Calc::Date_to_Text(@today) . "\n";
print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n";
print "Number of next broadcast: " . $broadcast_num . "\n";
-my $id = sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]);
+my $id = sprintf("%04d-%02d-%02d", @import_date);
my $bdfile = sprintf('.*ondainfo_%d.*\.mp3$', $broadcast_num);
my $current_stat = `cat $STAT_FILE`;