summaryrefslogtreecommitdiff
path: root/rhautoimport-rs
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-04-19 05:26:48 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-04-19 05:26:48 (GMT)
commit5309fb20cb0ed8dba4bce2f93a6002f5d43708ca (patch)
treebf260c8862336fda1da1218ef6c49939643cddfe /rhautoimport-rs
parent1c34d6b5541d15df8eb983074023fb62149db54c (diff)
improved error handling for RSS feed fetching
Diffstat (limited to 'rhautoimport-rs')
-rwxr-xr-xrhautoimport-rs7
1 files changed, 5 insertions, 2 deletions
diff --git a/rhautoimport-rs b/rhautoimport-rs
index 843d339..e33a955 100755
--- a/rhautoimport-rs
+++ b/rhautoimport-rs
@@ -129,8 +129,11 @@ 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";
-my $feed = rhautoimport::fetch_parse_rss($RSS_URL)
- or die "Error fetching feed: " . XML::Feed->errstr;
+my ($feed, $errstr) = rhautoimport::fetch_parse_rss($RSS_URL);
+unless (defined $feed) {
+ print "Error fetching feed: $errstr\n";
+ exit 1;
+}
my $uri = "";
my $file = "";