From 4f7880cac9fce2ac8bbf830f381fad902c06a916 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Sat, 8 Sep 2018 00:48:13 +0200 Subject: [PATCH] weniger Logausgaben --- 73_AutoShuttersControl.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 90734f5..a3da091 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -42,7 +42,7 @@ use warnings; -my $version = "0.1.31"; +my $version = "0.1.32"; sub AutoShuttersControl_Initialize($) { @@ -424,7 +424,7 @@ sub ShuttersDeviceScan($) { foreach(@list) { push (@{$hash->{helper}{shuttersList}},$_); ## einem Hash wird ein Array zugewiesen welches die Liste der erkannten Rollos beinhaltet #AddNotifyDev($hash,$_); # Vorerst keine Shutters in NOTIFYDEV - Log3 $name, 2, "AutoShuttersControl ($name) - ShuttersList: " . $_; + Log3 $name, 5, "AutoShuttersControl ($name) - ShuttersList: " . $_; } @@ -441,7 +441,7 @@ sub ShuttersDeviceScan($) { $notifyDevString .= ',' . $notifyDev unless( $notifyDevString =~ /$notifyDev/ ); - Log3 $name, 2, "AutoShuttersControl ($name) - NotifyDev: " . $notifyDev . ", NotifyDevString: " . $notifyDevString; + Log3 $name, 5, "AutoShuttersControl ($name) - NotifyDev: " . $notifyDev . ", NotifyDevString: " . $notifyDevString; } # $hash->{NOTIFYDEV} = $hash->{NOTIFYDEV} . $notifyDevString; @@ -923,7 +923,7 @@ sub makeReadingName($) { my ($name) = @_; - my %charHash = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss" ); + my %charHash = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss"); my $charHashkeys = join ("|", keys(%charHash)); $name = "UNDEFINED" if(!defined($name));