From 00e6281d98007ccb3ede75fc91a4607c044dd46a Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 14 Feb 2016 15:49:37 +0000
Subject: [PATCH] 36_JeeLink.pm: check if LWP::UserAgent and
 HTTP::Request::Common are available

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10847 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/36_JeeLink.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/36_JeeLink.pm b/fhem/FHEM/36_JeeLink.pm
index 58b214dd5..8367bbc8b 100644
--- a/fhem/FHEM/36_JeeLink.pm
+++ b/fhem/FHEM/36_JeeLink.pm
@@ -7,8 +7,6 @@ use strict;
 use warnings;
 use Time::HiRes qw(gettimeofday);
 use Time::Local;
-use LWP::UserAgent;
-use HTTP::Request::Common;
 
 sub JeeLink_Attr(@);
 sub JeeLink_Clear($);
@@ -250,13 +248,19 @@ JeeLink_Set($@)
     $log .= "hex file: $hexFile\n";
 
     if($detectedFirmware eq "LaCrosseGateway.bin") {
+      eval "use LWP::UserAgent";
+      return "\nERROR: Please install LWP::UserAgent" if($@);
+
+      eval "use HTTP::Request::Common";
+      return "\nERROR: Please install HTTP::Request::Common" if($@);
+
       $log .= "Mode is LaCrosseGateway OTA-update\n";
       DevIo_CloseDev($hash);
       $hash->{STATE} = "disconnected";
       $log .= "$name closed\n";
 
       my @spl = split(':', $hash->{DeviceName});
-      my $targetIP = @spl[0];
+      my $targetIP = $spl[0];
       my $targetURL = "http://" . $targetIP . "/ota/firmware.bin";
       $log .= "target: $targetURL\n";