some cleanups and syntactic improvements

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";