added improved fetch code which allows to set the User Agent String

1 files changed, 1 insertions, 2 deletions

diff --git a/rhimport-oi b/rhimport-oi
index b2d5377..3ed4e5b 100755
--- a/rhimport-oi
+++ b/rhimport-oi
@@ -32,7 +32,6 @@ use File::Fetch;
 use IO::Handle;
 use IPC::Open3;
 use HTML::Entities;
-use LWP::Simple;
 
 use lib '/usr/local/share/rhimport/';
 use rhimport;
@@ -98,7 +97,7 @@ if($current_id eq $id) {
 print "looking for files like '$bdfile' in RSS Feed\n";
 print " -> $RSS_URL\n";
 
-my $feed = XML::Feed->parse(URI->new($RSS_URL))
+my $feed = rhimport::fetch_parse_rss($RSS_URL)
   or die "Error fetching feed: " . XML::Feed->errstr;
 
 my $file = "";