FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-07 12:58:13 +00:00
Code Issues Releases Wiki Activity

36_JeeLink.pm: check if LWP::UserAgent and HTTP::Request::Common are available

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10847 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2016-02-14 15:49:37 +00:00
parent 848b25b1e8
commit 1ceebb3fdc
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/36_JeeLink.pm
View File

@ -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";