FHEM/mod-GardenaSmart
2
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

add check missing perl modul SSL

Browse Source
This commit is contained in:
Marko Oldenburg
2017-08-07 18:15:05 +02:00
parent 814361b318
commit 82c8667e2c
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
73_GardenaSmartBridge.pm
View File

@@ -61,10 +61,11 @@ use Data::Dumper; #debugging
eval "use Encode qw(encode encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
eval "use JSON;1" or $missingModul .= "JSON ";
eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL ";
###todo Hier fehlt noch Modulabfrage für ssl
my $version = "0.0.29";
my $version = "0.0.31";
@@ -126,7 +127,7 @@ sub GardenaSmartBridge_Define($$) {
return "too few parameters: define <NAME> GardenaSmartBridge <Email> <Passwort>" if( @a != 4 ) ;
return "Cannot define Gardena Bridge device. Perl modul $missingModul is missing." if ( $missingModul );
return "Cannot define Gardena Bridge device. Perl modul ${missingModul}is missing." if ( $missingModul );
my $name = $a[0];
my $user = $a[2];