FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

98_Siro.pm:Fix for Signalduino V 3.3.1-RC2 SIGNALduino cc1101

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16316 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Byte09 2018-03-03 05:43:09 +00:00
parent de4fc7bdbf
commit f8ed2c1327
1 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
fhem/FHEM/98_Siro.pm
View File

@ -65,6 +65,7 @@
# 0.47 2017-11-11 Byte attr Disable zugefügt.
# 0.47 2017-02-12 Byte/Dr Smag Quickfix ERB15LE
# 0.48 2018-26-01 Byte New Readings 'operating_seconds' / 'last_reset_os'
# 0.49 2018-03-03 Byte Fix for Signalduino V 3.3.1-RC2 SIGNALduino cc1101
################################################################################################################
# Todo's:
# -
@ -75,7 +76,7 @@ package main;
use strict;
use warnings;
my $version = "V 0.48";
my $version = "V 0.49";
my %codes = (
"55" => "stop", # Stop the current movement or move to custom position
@ -481,7 +482,38 @@ sub Siro_SendCommand($@) {
else {
Log3 $io, 5,
"Siro_sendCommand: Siro_sendCommand: $name -> message :$message: ";
if ( $args[2] eq "longstop" && $SignalRepeats > 35)
{
my $newsignalrepeats = int($SignalRepeats/3);
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> newlongstop $newsignalrepeats * 15 " );
my $testrepeats = $newsignalrepeats*3;
my $lastrepeats = $SignalRepeats-$testrepeats;
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> Block 1-3 repeats 15 " );
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> Block 4 repeats $lastrepeats " );
$message = 'P72#' . $bin . '#R' . $newsignalrepeats;
IOWrite( $hash, 'sendMsg', $message );
Log3 $io, 5,"Siro_sendCommand: Siro_sendCommand: Block1 ";
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> send Block 1 " );
IOWrite( $hash, 'sendMsg', $message );
Log3 $io, 5,"Siro_sendCommand: Siro_sendCommand: Block2 ";
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> send Block 2 " );
IOWrite( $hash, 'sendMsg', $message );
Log3 $io, 5,"Siro_sendCommand: Siro_sendCommand: Block3 ";
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> send Block 3 " );
if ($lastrepeats > 0)
{
$message = 'P72#' . $bin . '#R' . $lastrepeats;
IOWrite( $hash, 'sendMsg', $message );
Log3 $io, 5,"Siro_sendCommand: Siro_sendCommand: Block3 ";
Log3( $name, 5,"Siro_sendCommand: found oversized Longstop -> send Block 4 " );
}
}
else
{
IOWrite( $hash, 'sendMsg', $message );
}
}
my $devicename = $hash->{IODev};