diff --git a/FHEM/69_SoftliqCloud.pm b/FHEM/69_SoftliqCloud.pm index c837d9fec..0a8312a29 100644 --- a/FHEM/69_SoftliqCloud.pm +++ b/FHEM/69_SoftliqCloud.pm @@ -20,12 +20,13 @@ # along with fhem. If not, see . # ############################################################################## -# Changelog: -# +# Changelog: +# 0.1.01: Small Fix to avoid "garbage" leading to invalid JSON +# 0.1.00: Initial Release ############################################################################## ############################################################################## -# Todo: -# +# Todo: +# * identify more parameters # ############################################################################## package main; @@ -46,6 +47,9 @@ use B qw(svref_2object); use utf8; use Digest::MD5 qw(md5); + +my $version = "0.1.01"; + my $missingModul = ''; eval 'use MIME::Base64::URLSafe;1' or $missingModul .= 'MIME::Base64::URLSafe '; eval 'use Digest::SHA qw(sha256);1;' or $missingModul .= 'Digest::SHA '; @@ -270,6 +274,7 @@ sub Define { $hash->{NAME} = $name; $hash->{USER} = $user; + $hash->{VERSION} = $version; #start timer if ( !IsDisabled($name) && $init_done && defined( ReadPassword($hash) ) ) { @@ -1909,7 +1914,7 @@ sub wsReadDevIo { return; } $buf =~ s///xsm; - $buf =~ s/\\x{1e}//xsm; + $buf =~ s/\\x\{1e\}//xsm; if ( length($buf) == 0 ) { return; }