diff options
Diffstat (limited to 'rhautoimport-rs')
| -rwxr-xr-x | rhautoimport-rs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rhautoimport-rs b/rhautoimport-rs index 9617bcb..576f213 100755 --- a/rhautoimport-rs +++ b/rhautoimport-rs @@ -77,7 +77,7 @@ my @import_date = Date::Calc::Standard_to_Business(@today); if($dow <= $week_table{$curweek}) { print "We are in week $curweek - broadcast is on " . Date::Calc::Day_of_Week_to_Text($week_table{$curweek}) . "\n"; $import_date[2] = $week_table{$curweek}; - @import_date = Date::Calc::Business_to_Standard($import_date[0], $import_date[1], $import_date[2]); + @import_date = Date::Calc::Business_to_Standard(@import_date); } else { print "We are in week $curweek - broadcast was on " . Date::Calc::Day_of_Week_to_Text($week_table{$curweek}) . "\n"; print " next week is $nextweek - broadcast is on " . Date::Calc::Day_of_Week_to_Text($week_table{$nextweek}) . "\n"; @@ -104,9 +104,9 @@ if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) { exit 0; } -my $id = sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]); -my $bd = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); -my $bdfile = sprintf("RAST%04d%02d%02d(CBA)?(.*)\.MP3", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]); +my $id = sprintf("%04d-%02d-%02d", @import_date); +my $bd = sprintf("%04d-%02d-%02d", @broadcast_date); +my $bdfile = sprintf("RAST%04d%02d%02d(CBA)?(.*)\.MP3", @broadcast_date); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; |