From 433bef5ee891d4254c8023562fffcc1664c93a95 Mon Sep 17 00:00:00 2001
From: Byte09 <>
Date: Thu, 6 Jun 2019 14:44:07 +0000
Subject: [PATCH] 98_Siro.pm:fix another perl warning , fix verbose level 0

git-svn-id: https://svn.fhem.de/fhem/trunk@19564 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_Siro.pm | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/fhem/FHEM/98_Siro.pm b/fhem/FHEM/98_Siro.pm
index 37fdebe96..963872a25 100644
--- a/fhem/FHEM/98_Siro.pm
+++ b/fhem/FHEM/98_Siro.pm
@@ -203,27 +203,22 @@ sub Attr(@) {
 		if ( $aName eq "SIRO_inversPosition" ) 
 		{
 		my $oldinvers = AttrVal($name,'SIRO_inversPosition','undef');
-		Log3( $name,0 , "Siro_attr_oldinvers: $oldinvers ");
-		Log3( $name,0 , "Siro_attr_newinvers: $aVal ");
-		
-		
-			if ( $aVal ne $oldinvers) 
+		Log3( $name,5 , "Siro_attr_oldinvers: $oldinvers ");
+		Log3( $name,5 , "Siro_attr_newinvers: $aVal ");
+		if ( $aVal ne $oldinvers) 
 				{
 				my $aktstate = ReadingsVal( $name, 'state', 'undef' );
 				$aktstate = 100 - $aktstate;
-				
 				readingsSingleUpdate( $hash, "state", $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,0 , "Siro_attr init done : $init_done");
+	Log3( $name,5 , "Siro_attr init done : $init_done");
 return;
 }
 #################################################################
@@ -1468,6 +1463,11 @@ sub Siro_icon($)
 	my ($name) = @_;
 	my $hash = $defs{$name};
 	my $state = ReadingsVal( $name, 'state', 'undef' );
+	
+	
+	if ($state =~ m/[a-z].*/){$state=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);
 	$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";