merge from devel #70
@@ -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