Reviewed-on: #69
This commit is contained in:
		| @@ -1465,7 +1465,7 @@ __END__ | ||||
|   ], | ||||
|   "release_status": "stable", | ||||
|   "license": "GPL_2", | ||||
|   "version": "v0.10.18", | ||||
|   "version": "v0.10.19", | ||||
|   "author": [ | ||||
|     "Marko Oldenburg <fhemdevelopment@cooltux.net>" | ||||
|   ], | ||||
|   | ||||
| @@ -1,11 +1,11 @@ | ||||
| UPD 2021-10-27_09:58:32 115685 FHEM/73_AutoShuttersControl.pm | ||||
| UPD 2021-10-27_09:48:09 75254 lib/FHEM/Automation/ShuttersControl.pm | ||||
| UPD 2021-11-14_13:42:55 115685 FHEM/73_AutoShuttersControl.pm | ||||
| UPD 2021-11-14_13:40:41 75264 lib/FHEM/Automation/ShuttersControl.pm | ||||
| UPD 2021-10-09_07:12:54 2657 lib/FHEM/Automation/ShuttersControl/Dev.pm | ||||
| UPD 2021-10-09_07:12:54 2494 lib/FHEM/Automation/ShuttersControl/Roommate.pm | ||||
| UPD 2021-10-24_07:33:53 31900 lib/FHEM/Automation/ShuttersControl/Shutters.pm | ||||
| UPD 2021-10-09_07:12:54 25333 lib/FHEM/Automation/ShuttersControl/Shading.pm | ||||
| UPD 2021-10-27_08:50:46 110681 lib/FHEM/Automation/ShuttersControl/EventProcessingFunctions.pm | ||||
| UPD 2021-10-09_07:12:54 40628 lib/FHEM/Automation/ShuttersControl/Helper.pm | ||||
| UPD 2021-11-10_20:11:14 110681 lib/FHEM/Automation/ShuttersControl/EventProcessingFunctions.pm | ||||
| UPD 2021-11-14_13:37:27 40094 lib/FHEM/Automation/ShuttersControl/Helper.pm | ||||
| UPD 2021-10-09_07:12:54 2173 lib/FHEM/Automation/ShuttersControl/Window.pm | ||||
| UPD 2021-10-09_07:12:54 11739 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm | ||||
| UPD 2021-10-09_07:12:54 7249 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm | ||||
|   | ||||
| @@ -775,11 +775,11 @@ sub WriteReadingsShuttersList { | ||||
|         readingsBulkUpdate( | ||||
|             $hash, | ||||
|             'room_' | ||||
|               . makeReadingName( AttrVal( $shuttersDev, 'room', 'unsorted' ) ), | ||||
|               . ::makeReadingName( AttrVal( $shuttersDev, 'room', 'unsorted' ) ), | ||||
|             ReadingsVal( | ||||
|                 $name, | ||||
|                 'room_' | ||||
|                   . makeReadingName( | ||||
|                   . ::makeReadingName( | ||||
|                     AttrVal( $shuttersDev, 'room', 'unsorted' ) | ||||
|                   ), | ||||
|                 '' | ||||
| @@ -791,7 +791,7 @@ sub WriteReadingsShuttersList { | ||||
|             ReadingsVal( | ||||
|                 $name, | ||||
|                 'room_' | ||||
|                   . makeReadingName( | ||||
|                   . ::makeReadingName( | ||||
|                     AttrVal( $shuttersDev, 'room', 'unsorted' ) | ||||
|                   ), | ||||
|                 'none' | ||||
| @@ -801,14 +801,14 @@ sub WriteReadingsShuttersList { | ||||
|         readingsBulkUpdate( | ||||
|             $hash, | ||||
|             'room_' | ||||
|               . makeReadingName( AttrVal( $shuttersDev, 'room', 'unsorted' ) ), | ||||
|               . ::makeReadingName( AttrVal( $shuttersDev, 'room', 'unsorted' ) ), | ||||
|             $shuttersDev | ||||
|           ) | ||||
|           if ( | ||||
|             ReadingsVal( | ||||
|                 $name, | ||||
|                 'room_' | ||||
|                   . makeReadingName( | ||||
|                   . ::makeReadingName( | ||||
|                     AttrVal( $shuttersDev, 'room', 'unsorted' ) | ||||
|                   ), | ||||
|                 'none' | ||||
|   | ||||
| @@ -994,25 +994,6 @@ sub IsAfterShuttersManualBlocking { | ||||
|     else { return 1 } | ||||
| } | ||||
|  | ||||
| sub makeReadingName { | ||||
|     my ($rname) = shift; | ||||
|     my %charHash = ( | ||||
|         chr(0xe4) => "ae",    # ä | ||||
|         chr(0xc4) => "Ae",    # Ä | ||||
|         chr(0xfc) => "ue",    # ü | ||||
|         chr(0xdc) => "Ue",    # Ü | ||||
|         chr(0xf6) => "oe",    # ö | ||||
|         chr(0xd6) => "Oe",    # Ö | ||||
|         chr(0xdf) => "ss"     # ß | ||||
|     ); | ||||
|     my $charHashkeys = join( "", keys(%charHash) ); | ||||
|  | ||||
|     return $rname if ( $rname =~ m{^\./}xms ); | ||||
|     $rname =~ s/([$charHashkeys])/$charHash{$1}/xgi; | ||||
|     $rname =~ s/[^a-z0-9._\-\/]/_/xgi; | ||||
|     return $rname; | ||||
| } | ||||
|  | ||||
| sub IsWe { | ||||
|     return main::IsWe( shift, shift ); | ||||
| } | ||||
|   | ||||
		Reference in New Issue
	
	Block a user