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

98_Siro.pm:fix another perl warning , fix verbose level 0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19564 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Byte09 2019-06-06 14:44:07 +00:00
parent 094aabae61
commit 433bef5ee8
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fhem/FHEM/98_Siro.pm
View File

@ -203,27 +203,22 @@ sub Attr(@) {
if ( $aName eq "SIRO_inversPosition" ) if ( $aName eq "SIRO_inversPosition" )
{ {
my $oldinvers = AttrVal($name,'SIRO_inversPosition','undef'); my $oldinvers = AttrVal($name,'SIRO_inversPosition','undef');
Log3( $name,0 , "Siro_attr_oldinvers: $oldinvers "); Log3( $name,5 , "Siro_attr_oldinvers: $oldinvers ");
Log3( $name,0 , "Siro_attr_newinvers: $aVal "); Log3( $name,5 , "Siro_attr_newinvers: $aVal ");
if ( $aVal ne $oldinvers)
if ( $aVal ne $oldinvers)
{ {
my $aktstate = ReadingsVal( $name, 'state', 'undef' ); my $aktstate = ReadingsVal( $name, 'state', 'undef' );
$aktstate = 100 - $aktstate; $aktstate = 100 - $aktstate;
readingsSingleUpdate( $hash, "state", $aktstate , 1 ); readingsSingleUpdate( $hash, "state", $aktstate , 1 );
readingsSingleUpdate( $hash, "pct", $aktstate , 1 ); readingsSingleUpdate( $hash, "pct", $aktstate , 1 );
} }
}
Log3( $name,5 , "Siro_attr: $cmd, $name, $aName, $aVal ");
} }
Log3( $name,0 , "Siro_attr: $cmd, $name, $aName, $aVal "); Log3( $name,5 , "Siro_attr init done : $init_done");
}
Log3( $name,0 , "Siro_attr init done : $init_done");
return; return;
} }
################################################################# #################################################################
@ -1468,6 +1463,11 @@ sub Siro_icon($)
my ($name) = @_; my ($name) = @_;
my $hash = $defs{$name}; my $hash = $defs{$name};
my $state = ReadingsVal( $name, 'state', 'undef' ); my $state = ReadingsVal( $name, 'state', 'undef' );
if ($state =~ m/[a-z].*/){$state=0;}
my $invers = AttrVal( $name, 'SIRO_inversPosition',0 ); my $invers = AttrVal( $name, 'SIRO_inversPosition',0 );
my $ret ="programming:edit_settings notAvaible:hue_room_garage runningUp.*:fts_shutter_up runningDown.*:fts_shutter_down ".$state.":fts_shutter_1w_".(int($state/10)*10); my $ret ="programming:edit_settings notAvaible:hue_room_garage runningUp.*:fts_shutter_up runningDown.*:fts_shutter_down ".$state.":fts_shutter_1w_".(int($state/10)*10);
$ret ="programming:edit_settings notAvaible:hue_room_garage runningUp.*:fts_shutter_up runningDown.*:fts_shutter_down ".$state.":fts_shutter_1w_".(100 - (int($state/10)*10)) if $invers eq "1"; $ret ="programming:edit_settings notAvaible:hue_room_garage runningUp.*:fts_shutter_up runningDown.*:fts_shutter_down ".$state.":fts_shutter_1w_".(100 - (int($state/10)*10)) if $invers eq "1";