Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

69_SoftliqCloud.pm: Added version numbering

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@24167 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2021-04-06 20:26:20 +00:00
parent 978667d7a6
commit 508a7508dc
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
FHEM/69_SoftliqCloud.pm
View File

@ -21,11 +21,12 @@
# #
############################################################################## ##############################################################################
# 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; package main;
@ -46,6 +47,9 @@ use B qw(svref_2object);
use utf8; use utf8;
use Digest::MD5 qw(md5); use Digest::MD5 qw(md5);
my $version = "0.1.01";
my $missingModul = ''; my $missingModul = '';
eval 'use MIME::Base64::URLSafe;1' or $missingModul .= 'MIME::Base64::URLSafe '; eval 'use MIME::Base64::URLSafe;1' or $missingModul .= 'MIME::Base64::URLSafe ';
eval 'use Digest::SHA qw(sha256);1;' or $missingModul .= 'Digest::SHA '; eval 'use Digest::SHA qw(sha256);1;' or $missingModul .= 'Digest::SHA ';
@ -270,6 +274,7 @@ sub Define {
$hash->{NAME} = $name; $hash->{NAME} = $name;
$hash->{USER} = $user; $hash->{USER} = $user;
$hash->{VERSION} = $version;
#start timer #start timer
if ( !IsDisabled($name) && $init_done && defined( ReadPassword($hash) ) ) { if ( !IsDisabled($name) && $init_done && defined( ReadPassword($hash) ) ) {
@ -1909,7 +1914,7 @@ sub wsReadDevIo {
return; return;
} }
$buf =~ s///xsm; $buf =~ s///xsm;
$buf =~ s/\\x{1e}//xsm; $buf =~ s/\\x\{1e\}//xsm;
if ( length($buf) == 0 ) { if ( length($buf) == 0 ) {
return; return;
} }