summaryrefslogtreecommitdiff
path: root/rhautoimport-rs
diff options
context:
space:
mode:
Diffstat (limited to 'rhautoimport-rs')
-rwxr-xr-xrhautoimport-rs8
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";