diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-06-01 16:16:22 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-06-01 16:16:22 (GMT) |
| commit | d1e4c6e5ca1f785ec603d711b37f79936c255c82 (patch) | |
| tree | b759807a7e74ba6ef9e966bcd76ee361b84b32af /rhautoimport-oi | |
| parent | 66f0bdb84101131fb637ab0a22b73f9c42f380c4 (diff) | |
minor cleanups
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); |