FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

32_withings: updated for new account key characters

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14028 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
moises 2017-04-18 17:42:13 +00:00
parent 1c6e7339ca
commit b4c23d30bb
2 changed files with 6 additions and 2 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: 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

7
fhem/FHEM/32_withings.pm
View File

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