diff options
Diffstat (limited to 'rhautoimport-dn')
-rwxr-xr-x | rhautoimport-dn | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/rhautoimport-dn b/rhautoimport-dn index 80ffec3..b843e84 100755 --- a/rhautoimport-dn +++ b/rhautoimport-dn @@ -94,9 +94,9 @@ 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, $errstr) = rhautoimport::fetch_parse_rss($FILES_RSS_URL); -unless (defined $files_feed) { - print "Error fetching feed: $errstr\n"; +my ($result, $files_feed) = rhautoimport::fetch_parse_rss($FILES_RSS_URL); +unless ($result) { + print "Error fetching feed: $files_feed\n"; exit 1; } @@ -142,9 +142,10 @@ if($uri eq "") { print "\nlooking for headlines from date $y in RSS Feed\n"; print " -> $HEADLINES_RSS_URL\n"; -(my $headlines_feed, $errstr) = rhautoimport::fetch_parse_rss($HEADLINES_RSS_URL); -unless (defined $headlines_feed) { - print "Error fetching feed: $errstr\n"; + +my ($result, $headlines_feed) = rhautoimport::fetch_parse_rss($HEADLINES_RSS_URL); +unless ($result) { + print "Error fetching feed: $headlines_feed\n"; exit 1; } |