diff --git a/CHANGED b/CHANGED index e0909ceb5..03af5c5c3 100644 --- a/CHANGED +++ b/CHANGED @@ -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: 32_withings: updated for new account key characters - bugfix: 71_PHILIPS_AUDIO: fhem.pl crash while server shutdown - feature: 33_readingsGroup: allow "set magic" reding pre- and suffixes - bugfix: 71_PHILIPS_AUDIO: Corrected gavorites behaviour if more than 16 diff --git a/FHEM/32_withings.pm b/FHEM/32_withings.pm index 0197b3cfe..55ea7e768 100644 --- a/FHEM/32_withings.pm +++ b/FHEM/32_withings.pm @@ -10,7 +10,7 @@ # # ############################################################################## -# Release 02 / 2017-02-27 +# Release 03 / 2017-04-14 package main; @@ -340,7 +340,7 @@ sub withings_Define($$) { CommandAttr(undef,"$name IODev $a[4]"); - } elsif( @a == 4 && $a[2] =~ m/^\d+$/ && $a[3] =~ m/^[\w]+$/i ) { + } elsif( @a == 4 && $a[2] =~ m/^\d+$/ && $a[3] =~ m/^[\w-]+$/i ) { $subtype = "USER"; my $user = $a[2]; @@ -666,6 +666,7 @@ sub withings_connect($) { withings_getSessionKey( $hash ); foreach my $d (keys %defs) { + next if(!defined($defs{$d})); next if($defs{$d}{TYPE} ne "autocreate"); return undef if(AttrVal($defs{$d}{NAME},"disable",undef)); } @@ -3018,6 +3019,8 @@ sub withings_setAuraDebug($$;$) { sub withings_Attr($$$) { my ($cmd, $name, $attrName, $attrVal) = @_; + return undef if(!defined($defs{$name})); + my $orig = $attrVal; $attrVal = int($attrVal) if($attrName eq "intervalData" or $attrName eq "intervalAlert" or $attrName eq "intervalProperties" or $attrName eq "intervalDebug"); $attrVal = 300 if($attrName eq "intervalData" && $attrVal < 300 );