FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 10:46:53 +00:00
Code Issues Releases Wiki Activity

74_NUKIDevice: fix Perl Warnings

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16973 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
LeonGaultier 2018-07-11 10:48:36 +00:00
parent 2e84b92368
commit 323403ca7d
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- bugfix: 74_NUKIDevice: fix Perl Warnings
- feature: 88_HMCCU: Support for channel number in attribute ccuscaleval
- change: 98_DOIFtools: more precise hint related to DOELSE (Forum #89260)
- change: 98_feels_like.pm: Improved algorithms

6
fhem/FHEM/73_NUKIBridge.pm
View File

@ -46,8 +46,8 @@ use JSON;
use HttpUtils;
my $version = "0.6.2";
my $bridgeapi = "1.5";
my $version = "0.6.3";
my $bridgeapi = "1.6";
@ -477,7 +477,7 @@ sub NUKIBridge_ResponseProcessing($$$) {
return "NUKIBridge ($name) - invalid json detected: $json";
}
my $decode_json = eval{decode_json($json)};
$decode_json = eval{decode_json($json)};
if($@){
Log3 $name, 3, "NUKIBridge ($name) - JSON error while request: $@";
return;

4
fhem/FHEM/74_NUKIDevice.pm
View File

@ -33,7 +33,7 @@ use warnings;
use JSON;
my $version = "0.6.2";
my $version = "0.6.3";
@ -213,8 +213,6 @@ sub NUKIDevice_Attr(@) {
return "Invalid value for attribute $attrName: can only by FQDN or IPv4 or IPv6 address" if ( $attrVal && $attrName eq "webhookHttpHostname" && $attrVal !~ /^([A-Za-z_.0-9]+\.[A-Za-z_.0-9]+)|[0-9:]+$/ );
return "Invalid value for attribute $attrName: needs to be different from the defined name/address of your Smartlock, we need to know how Smartlock can connect back to FHEM here!" if ( $attrVal && $attrName eq "webhookHttpHostname" && $attrVal eq $hash->{DeviceName} );
return "Invalid value for attribute $attrName: FHEMWEB instance $attrVal not existing" if ( $attrVal && $attrName eq "webhookFWinstance" && ( !defined( $defs{$attrVal} ) || $defs{$attrVal}{TYPE} ne "FHEMWEB" ) );
return "Invalid value for attribute $attrName: needs to be an integer value" if ( $attrVal && $attrName eq "webhookPort" && $attrVal !~ /^\d+$/ );