FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 20:24:36 +00:00
Code Issues Releases Wiki Activity

70_WINCONNECT: bugfixes in set volume

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14930 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
michael.winkler 2017-08-20 08:19:58 +00:00
parent fab62550fe
commit e07121a898
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fhem/FHEM/70_WINCONNECT.pm
View File

@ -2,6 +2,9 @@
############################################################################
# 2017-08-19, v0.0.20
#
# v0.0.21
# - BUFIX: [WinWebGUI] - FHEM Server Connect / Reconnect
#
# v0.0.20
# - BUFIX: [FEHMModul] - $_ ersetzt durch $uResult
# [FEHMModul] - reading "memory_available" und "memory_total" ohne Zusatz MB
@ -394,6 +397,7 @@ sub WINCONNECT_Set($@) {
my $cmd = "";
my $Value = "";
my $Count = 0;
my $SetValue = 0;
Log3 $name, 5, "WINCONNECT $name: called function WINCONNECT_Set()";
@ -448,11 +452,12 @@ sub WINCONNECT_Set($@) {
Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
if ( $state eq "on" ) {
if ( m/^\d+$/ && $a[2] >= 0 && $a[2] <= 100 ) {
$SetValue = $a[2];
if ($SetValue >= 0 && $SetValue <= 100 ) {
$cmd = $a[2];
}
else {
return "Argument does not seem to be a valid integer between 0 and 100";
return "Argument $SetValue does not seem to be a valid integer between 0 and 100";
}
WINCONNECT_SendCommand( $hash, "volume" , "=" . $cmd );
readingsSingleUpdate( $hash, "volume", $cmd,1 );
@ -516,7 +521,8 @@ sub WINCONNECT_Set($@) {
Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
if ( $state eq "on" ) {
if ( m/^\d+$/ && $a[2] >= 0 && $a[2] <= 10000 ) {
$SetValue = $a[2];
if ($SetValue >= 0 && $SetValue <= 10000 ) {
$cmd = $a[2];
}
else {
@ -535,7 +541,8 @@ sub WINCONNECT_Set($@) {
Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
if ( $state eq "on" ) {
if ( m/^\d+$/ && $a[2] >= 0 && $a[2] <= 100 ) {
$SetValue = $a[2];
if ($SetValue >= 0 && $SetValue <= 100 ) {
$cmd = $a[2];
}
else {
@ -554,7 +561,8 @@ sub WINCONNECT_Set($@) {
Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
if ( $state eq "on" ) {
if ( m/^\d+$/ && $a[2] >= 0 && $a[2] <= 100 ) {
$SetValue = $a[2];
if ($SetValue >= 0 && $SetValue <= 100 ) {
$cmd = $a[2];
}
else {
@ -698,7 +706,8 @@ sub WINCONNECT_Set($@) {
Log3 $name, 3, "WINCONNECT set $name " . $a[1] . " " . $a[2];
if ( $state eq "on" ) {
if ( m/^\d+$/ && $a[2] >= 10 && $a[2] <= 10000 ) {
$SetValue = $a[2];
if ($SetValue >= 10 && $SetValue <= 10000 ) {
$cmd = $a[2];
}
else {