diff options
Diffstat (limited to 'rhautoimport-oi')
| -rwxr-xr-x | rhautoimport-oi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rhautoimport-oi b/rhautoimport-oi index 0f5b9b4..dd6a2fc 100755 --- a/rhautoimport-oi +++ b/rhautoimport-oi @@ -80,9 +80,9 @@ $import_date[2] = 1; my $broadcast_num = `cat $LAST_FILE`; $broadcast_num += 1; -print "today: " . Date::Calc::Date_to_Text(@today) . "\n"; +print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n"; print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n"; -print "Number of next broadcast: " . $broadcast_num . "\n"; +print "Number of next broadcast: " . $broadcast_num . "\n\n"; my $id = sprintf("%04d-%02d-%02d", @import_date); my $bdfile = sprintf('.*onda.?info[-_]%d.*\.mp3$', $broadcast_num); |