diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm index 3e932f13a..fe8ad8cff 100755 --- a/fhem/FHEM/00_CUL.pm +++ b/fhem/FHEM/00_CUL.pm @@ -31,6 +31,7 @@ my %gets = ( # Name, Data to send to the CUL, Regexp for the answer my %sets = ( "hmPairForSec" => "HomeMatic", "hmPairSerial" => "HomeMatic", + "maxPairForSec" => "MAX", "raw" => "", "freq" => "SlowRF", "bWidth" => "SlowRF", @@ -207,6 +208,13 @@ CUL_RemoveHMPair($) delete($hash->{hmPair}); } +sub +CUL_RemoveMAXPair($) +{ + my $hash = shift; + delete($hash->{maxPair}); +} + ##################################### sub @@ -242,6 +250,11 @@ CUL_Set($@) $hash->{HM_CMDNR}, $id, unpack('H*', $arg))); $hash->{hmPairSerial} = $arg; + } elsif($type eq "maxPairForSec") { #################################### + return "Usage: set $name maxPairForSec " + if(!$arg || $arg !~ m/^\d+$/); + $hash->{maxPair} = 1; + InternalTimer(gettimeofday()+$arg, "CUL_RemoveMAXPair", $hash, 1); } elsif($type eq "freq") { ######################################## MHz @@ -1136,7 +1149,7 @@ CUL_Attr(@)
  • hmPairForSec
    HomeMatic mode only.
    - Set the CUL in Pairing-Mode for the given seconds. Any device set into + Set the CUL in Pairing-Mode for the given seconds. Any HM device set into pairing mode in this time will be paired with fhem.

  • @@ -1147,6 +1160,12 @@ CUL_Attr(@) the backside of the device. It is not necessary to put the given device in learning mode if it is a receiver.
    + +
  • maxPairForSec
    + MAX mode only.
    + Set the CUL in Pairing-Mode for the given seconds. Any MAX device set into + pairing mode in this time will be paired with fhem. +

  • led
    Set the CUL led off (00), on (01) or blinking (02).