From a701b835a29e096838715437a46976ec70a5f449 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Wed, 26 Feb 2014 20:49:49 +0000
Subject: [PATCH] added: error handling for missing LWP::ua to avoid fhem crash

git-svn-id: https://svn.fhem.de/fhem/trunk@5058 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/55_GDS.pm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/55_GDS.pm b/fhem/FHEM/55_GDS.pm
index 8216ada09..b0dac5e7e 100644
--- a/fhem/FHEM/55_GDS.pm
+++ b/fhem/FHEM/55_GDS.pm
@@ -36,7 +36,7 @@ use Net::FTP;
 use List::MoreUtils 'first_index'; 
 use XML::Simple;
 use HttpUtils;
-require LWP::UserAgent;
+#require LWP::UserAgent;
 
 my ($bulaList, $cmapList, %rmapList, $fmapList, %bula2bulaShort, %bulaShort2dwd, %dwd2Dir, %dwd2Name,
 	$alertsXml, %capCityHash, %capCellHash, $sList, $aList);
@@ -699,9 +699,17 @@ sub retrieveFile($$;$$$){
 	my ($dwd, $dir, $ftp, @files, $dataFile, $targetFile, $found, $readingName);
 	
 	my $urlString =	"ftp://$user:$pass\@ftp-outgoing2.dwd.de/";
-	my $ua = LWP::UserAgent->new;	# test
-	$ua->timeout(10);				# test
-	$ua->env_proxy;					# test
+	my $ua;
+	eval { $ua = LWP::UserAgent->new; };
+
+	if(!defined($ua)) {
+		Log3($name, 1, "GDS $name: LWP not available!");
+		readingsSingleUpdate($hash, 'LWP error', 'LWP not available!',1);
+		return;
+	}
+
+	$ua->timeout(10);
+	$ua->env_proxy;
 
 	given($request){