improved error handling for RSS feed fetching

1 files changed, 10 insertions, 4 deletions

diff --git a/rhautoimport-dn b/rhautoimport-dn
index a8b9cbe..5b1bc63 100755
--- a/rhautoimport-dn
+++ b/rhautoimport-dn
@@ -94,8 +94,11 @@ my $yc = sprintf("%04d-%02d%02d", @broadcast_day);
 print "looking for files from date $y in RSS Feed\n";
 print " -> $FILES_RSS_URL\n";
 
-my $files_feed = rhautoimport::fetch_parse_rss($FILES_RSS_URL)
-  or die "Error fetching feed: " . XML::Feed->errstr;
+my ($files_feed, $errstr) = rhautoimport::fetch_parse_rss($FILES_RSS_URL);
+unless (defined $files_feed) {
+  print "Error fetching feed: $errstr\n";
+  exit 1;
+}
 
 my $uri = "";
 my $file = "";
@@ -139,8 +142,11 @@ if($uri eq "") {
 print "\nlooking for headlines from date $y in RSS Feed\n";
 print " -> $HEADLINES_RSS_URL\n";
 
-my $headlines_feed = rhautoimport::fetch_parse_rss($HEADLINES_RSS_URL)
-  or die "Error fetching feed: " . XML::Feed->errstr;
+my ($headlines_feed, $errstr) = rhautoimport::fetch_parse_rss($HEADLINES_RSS_URL);
+unless (defined $headlines_feed) {
+  print "Error fetching feed: $errstr\n";
+  exit 1;
+}
 
 for my $entry ($headlines_feed->entries) {
   if($entry->enclosure && $entry->enclosure->type eq "audio/mpeg") {