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

98_Siro.pm:fix perl warnings - remote control drive

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19559 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Byte09 2019-06-06 03:44:49 +00:00
parent bb293b883a
commit 7842b056f4
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/98_Siro.pm
View File

@ -553,7 +553,7 @@ sub Parse($$) {
$lh->{helper}{remotecmd} = "on"; #verhindert das senden von signalen nur wenn nicht auf anderem kanal gesendet wird
}
Log3 $lh, 5, "Siro_Parse: hash->{helper}{remotecmd} - ".$hash->{helper}{remotecmd};
Log3 $lh, 5, "Siro_Parse: hash->{helper}{remotecmd} - ".$lh->{helper}{remotecmd};
Log3( $name, 3, "Siro-Parse ($name) : Signal FB emfangen - $newstate");
Set( $lh, $name, $newstate );
return $name;
@ -1007,9 +1007,17 @@ sub Set($@) {
Log3( $name, 3, "Siro-Set ($name) : set Down");
if ($downtime eq "undef" || $uptime eq "undef") # bei ungesetzten fahrzeiten
{
readingsSingleUpdate( $hash, "state", "100", 1 ) ;
readingsSingleUpdate( $hash, "motor-term", "Function is not available without set runtime attribute, please define", 1 ) ;
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "state", "100" ) ;
readingsBulkUpdate( $hash, "pct", "100" ) ;
readingsBulkUpdate( $hash, "motor-term", "Function is not available without set runtime attribute, please define") ;
readingsBulkUpdate( $hash, "LastAction", $comand );
readingsEndUpdate( $hash, 1);
SendCommand( $hash, 'on' );
return;
return;
}
if ($state eq "undef" || $state eq "notAvaible") { $state = 0; }
@ -1057,10 +1065,13 @@ sub Set($@) {
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "state", "0" ) ;
readingsBulkUpdate( $hash, "pct", "0" ) ;
readingsBulkUpdate( $hash, "motor-term", "Function is not available without set runtime attribute, please define") ;
readingsBulkUpdate( $hash, "LastAction", $comand );
readingsEndUpdate( $hash, 1);
SendCommand( $hash, 'off' );
return;
}
#
if ($state eq "undef" || $state eq "notAvaible") { $state = 100; }