diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm index e9d36d3c6..1e4b39406 100755 --- a/fhem/FHEM/10_ZWave.pm +++ b/fhem/FHEM/10_ZWave.pm @@ -46,7 +46,10 @@ my %zwave_class = ( "..2002" => "basicGet:request", # sent by the remote "..2003(.*)"=> '"basicReport:$1"' }}, CONTROLLER_REPLICATION => { id => '21' }, - APPLICATION_STATUS => { id => '22' }, + APPLICATION_STATUS => { id => '22', # V1 + parse => { "..2201(..)(..)" => + 'ZWave_applicationStatusBusyParse($hash, $1, $2)', + "03220200" => "applicationStatus:cmdRejected" } }, ZIP_SERVICES => { id => '23' }, ZIP_SERVER => { id => '24' }, SWITCH_BINARY => { id => '25', @@ -107,11 +110,11 @@ my %zwave_class = ( get => { smStatus => "04" }, parse => { "..3105(..)(..)(.*)" => 'ZWave_multilevelParse($1,$2,$3)'} }, METER => { id => '32', - set => { meterReset => "05" }, + set => { meterReset => "05" }, get => { meter => 'ZWave_meterGet("%s")', meterSupported => "03" }, - parse => { "..3202(.*)" => 'ZWave_meterParse($hash, $1)', - "..3204(.*)" => 'ZWave_meterSupportedParse($hash, $1)' } }, + parse => { "..3202(.*)"=> 'ZWave_meterParse($hash, $1)', + "..3204(.*)"=> 'ZWave_meterSupportedParse($hash, $1)' } }, COLOR_CONTROL => { id => '33', get => { ccCapability=> '01', # no more args ccStatus => '03%02x' }, @@ -211,7 +214,16 @@ my %zwave_class = ( "03500240" => "covering:stop" } }, MTP_WINDOW_COVERING => { id => '51' }, NETWORK_MANAGEMENT_PROXY => { id => '52' }, - NETWORK_SCHEDULE => { id => '53' }, + NETWORK_SCHEDULE => { id => '53', # V1, Schedule + get => { scheduleSupported => "01", + schedule => "04%02x", + scheduleState => "08"}, + set => { scheduleRemove => "06%02x", + schedule => 'ZWave_scheduleSet($hash, "%s")', + scheduleState => "07%02x%02x"}, + parse => { "..5302(.*)" => 'ZWave_scheduleSupportedParse($hash, $1)', + "..5305(.*)" => 'ZWave_scheduleParse($hash, $1)', + "..5309(.*)" => 'ZWave_scheduleStateParse($hash, $1)' } }, NETWORK_MANAGEMENT_PRIMARY=>{ id => '54' }, TRANSPORT_SERVICE => { id => '55' }, CRC_16_ENCAP => { id => '56' }, # Parse is handled in the code @@ -244,16 +256,20 @@ my %zwave_class = ( '(hex($1)&0x40 ? ", identical":", different")', "^..600a(.*)"=> 'ZWave_mcCapability($hash, $1)' } }, ZIP_PORTAL => { id => '61' }, - DOOR_LOCK => { id => '62', - get => { doorLockOperation => '02', - doorLockConfiguration => '05'}, + DOOR_LOCK => { id => '62', # V2 + set => { doorLockOperation => 'ZWave_DoorLockOperationSet($hash, "%s")', + doorLockConfiguration =>'ZWave_DoorLockConfigSet($hash, "%s")' }, + get => { doorLockOperation => '02', + doorLockConfiguration => '05'}, parse => { "..6203(.*)" => 'ZWave_DoorLockOperationReport($hash, $1)', "..6206(.*)" => 'ZWave_DoorLockConfigReport($hash, $1)'} }, USER_CODE => { id => '63', set => { userCode => 'ZWave_userCodeSet("%s")' }, - get => { userCode => "02%02x" }, - parse => { "^..6303(..)(..)(.*)" => - 'sprintf("userCode:id %d status %d code %s", $1, $2, $3)' } + get => { userCode => "02%02x" , + userCodeUsersNumber => "04"}, + parse => { "..6303(..)(..)(.*)" => + 'sprintf("userCode:id %d status %d code %s", $1, $2, $3)' , + "..6305(..)" => '"userCodeUsersNumber:".hex($1)'} }, APPLIANCE => { id => '64' }, DMX => { id => '65' }, @@ -273,7 +289,9 @@ my %zwave_class = ( get => { model => "04" }, parse => { "087205(....)(....)(....)" =>'ZWave_mfsParse($hash,$1,$2,$3,0)', "087205(....)(....)(.{4})" =>'ZWave_mfsParse($hash,$1,$2,$3,1)', - "087205(....)(.{4})(.{4})" =>'ZWave_mfsParse($hash,$1,$2,$3,2)'}, + "087205(....)(.{4})(.{4})" =>'ZWave_mfsParse($hash,$1,$2,$3,2)', + "0a7205(....)(....)(....)(....)" => + 'ZWave_mfsParse($hash,$1,$2,$3,0)' }, init => { ORDER=>49, CMD => '"get $NAME model"' } }, POWERLEVEL => { id => '73', set => { powerlevel => "01%02x%02x", @@ -367,8 +385,18 @@ my %zwave_class = ( "indState:dim ".hex($1)))'} }, PROPRIETARY => { id => '88' }, LANGUAGE => { id => '89' }, - TIME => { id => '8a' }, - TIME_PARAMETERS => { id => '8b' }, + TIME => { id => '8a' , + set => { timeOffset => 'ZWave_timeOffsetSet($hash, "%s")' }, + get => { time => "01", + date => "03", + timeOffset => "06" }, + parse => { "..8a04(.*)" => 'ZWave_dateReport($hash,$1)', + "..8a02(.*)" => 'ZWave_timeReport($hash,$1)', + "..8a07(.*)" => 'ZWave_timeOffsetReport($hash,$1)'} }, + TIME_PARAMETERS => { id => '8b', + set => { timeParameters => 'ZWave_timeParametersSet($hash, "%s")'}, + get => { timeParameters => "02"}, + parse => { "..8b03(.*)" => 'ZWave_timeParametersReport($hash, $1)' } }, GEOGRAPHIC_LOCATION => { id => '8c' }, COMPOSITE => { id => '8d' }, MULTI_CHANNEL_ASSOCIATION=> { id => '8e', # aka MULTI_INSTANCE_ASSOCIATION @@ -392,16 +420,17 @@ my %zwave_class = ( SECURITY => { id => '98', set => { "secScheme" => 'ZWave_sec($hash, "0400")', "sendNonce" => 'ZWave_secCreateNonce($hash)', + "secEnd" => 'ZWave_secEnd($hash)', "secEncap" => 'ZWave_sec($hash, "%s")' }, get => { "secSupported" => 'ZWave_sec($hash, "02")' , "secNonce" => 'ZWave_sec($hash, "40")'}, - parse => { "..9803(.*)" => 'ZWave_secSupported($hash, $1)', - "..9805(.*)" => 'ZWave_secInit($hash, $1)', # secScheme - "..9807" => 'ZWave_secNetWorkKeyVerify($hash)', - "..9840" => 'ZWave_secNonceRequestReceived($hash)', - "..9880(.*)" => 'ZWave_secNonceReceived($hash, $1)', - "..9881(.*)" => 'ZWave_secDecrypt($hash, $1, 0)', - "..98c1(.*)" => 'ZWave_secDecrypt($hash, $1, 1)' } }, + parse => { "..9803(.*)" => 'ZWave_secSupported($hash, $1)', + "..9805(.*)" => 'ZWave_secInit($hash, $1)', # secScheme + "..9807" => 'ZWave_secNetWorkKeyVerify($hash)', + "..9840" => 'ZWave_secNonceRequestReceived($hash)', + "..9880(.*)" => 'ZWave_secNonceReceived($hash, $1)', + "..9881(.*)" => 'ZWave_secDecrypt($hash, $1, 0)', + "..98c1(.*)" => 'ZWave_secDecrypt($hash, $1, 1)' } }, AV_TAGGING_MD => { id => '99' }, IP_CONFIGURATION => { id => '9a' }, ASSOCIATION_COMMAND_CONFIGURATION @@ -429,7 +458,6 @@ my %zwave_cmdArgs = ( dim => "slider,0,1,99", indicatorDim => "slider,0,1,99", rgb => "colorpicker,RGB", - configRGBLedColorForTesting => "colorpicker,RGB", # Aeon SmartSwitch 6 }, get => { @@ -861,6 +889,143 @@ ZWave_ccCapability($$) return join(",",@ret); } +sub +ZWave_scheduleSupportedParse ($$) +{ + my ($hash, $val) = @_; + return if($val !~ m/^(..)(..)(..)(.*)(..)/); + my $numSupported = sprintf("num: %d", hex($1)); + my $sTimeSupport = sprintf("startTimeSupport: %06b", (hex($2) & 0x3f)); + my $fbSupport = sprintf("fallbackSupport: %1b", (hex($2) & 0x40)); + my $sEnaDis = sprintf("enableDisableSupport: %1b", (hex($2) & 0x80)); + my $numSupportedCC = sprintf("numCCs: %d", hex($3)); + + my $OverrideTypes = sprintf("overrideTypes: %07b", (hex($5) & 0x7f)); + my $overrideSupport = sprintf("overrideSupport: %1b", (hex($5) & 0x80)); + + my $supportedCCs = ""; + if (hex($3)>0) { + $val = $4; + for (my $i=0;$i0; + $supportedCCs .= $supportedCC . $supportedCCmask; + $val = $3; + } + + } + my $rt1 = "scheduleSupported:$numSupported $sTimeSupport $fbSupport ". + "$sEnaDis $numSupportedCC $OverrideTypes $overrideSupport"; + my $rt2 = "scheduleSupportedCC:$supportedCCs"; + return ($rt1, $rt2); +} + +sub +ZWave_scheduleStateSet ($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + return ("wrong format, see commandref", "") if($arg !~ m/(.*?) (.*?)/); + my $rt = sprintf("07%02x%02x", $1, $2); + return ("",$rt); +} + +sub +ZWave_scheduleSet ($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + + if($arg !~ + # 1 2 3 4 5 6 7 8 9 10 11 12 + m/(.*?) (.*?) (....)-(..)-(..) (.*?) (.*?) (..):(..) (.*?) (.*?) (.*)/) { + return ("wrong format, see commandref", ""); + } + + my $ID = sprintf("%02x", $1); + my $uID = sprintf("%02x", $2); + my $sYear = sprintf("%02x", $3 - 2000); + my $sMonth = sprintf("%02x", $4 & 0x0f); + my $sDay = sprintf("%02x", $5 & 0x1f); + my $sWDay = sprintf("%02x", $6 & 0x7f); + my $durationType = ($7<<5) & 0xe0; + my $sHour = sprintf("%02x", (($8 & 0x1f) | $durationType)); + my $sMinute = sprintf("%02x", $9 & 0x3f); + my $duration = sprintf("%04x", $10); + my $numReports = sprintf("%02x", $11); + + my $cmdgroup =""; + my @param; + if (length($12)>0) { # cmd(s) given + @param = split (" ", $12); + Log3 $name, 1, "$name: param: $#param $12"; + for (my $i=0; $i<=$#param; $i++) { + $cmdgroup .= sprintf("%02x%s", length($param[$i])/2, $param[$i]); + } + } + my $numCmd = sprintf("%02x", $#param+1); + + my $rt = "03" .$ID .$uID .$sYear .$sMonth .$sDay .$sWDay; + $rt .= $sHour .$sMinute .$duration .$numReports .$numCmd .$cmdgroup; + + #~ Log3 $name, 1, "$name: $rt"; + return ("",$rt); + +} + + +sub +ZWave_scheduleParse ($$) +{ + my ($hash, $val) = @_; + return if($val !~ m/^(..)(..)(..)(..)(..)(..)(..)(..)(....)(..)(..)(..)(.*)/); + + my $scheduleID = sprintf ("ID: %d", hex($1)); + my $userID = sprintf ("userID: %d", hex($2)); + my $startYear = sprintf ("sYear: %d", 2000 + hex($3)); + my $startMonth = sprintf ("sMonth: %d", (hex($4) & 0x0f)); + my $activeID = sprintf ("activeID: %d", (hex($4) & 0xf0)>>4); + my $startDay = sprintf ("sDay: %d", (hex($5) & 0x1f)); + my $sWeekDay = sprintf ("sWeekDay: %d", (hex($6) & 0x7f)); + my $startHour = sprintf ("sHour: %d", (hex($7) & 0x1f)); + my $durationType = sprintf ("durationType: %d", (hex($7) & 0x1f)>>5); + my $startMinute = sprintf ("sMinute: %d", (hex($8) & 0x3f)); + my $duration = sprintf ("duration: %d", hex($9)); + my $numReports = sprintf ("numReportsToFollow: %d", hex($10)); + my $numCmds = sprintf ("numCmds: %d", hex ($11)); + my $cmdlen = sprintf ("cmdLen: %d", hex($12)); + my $cmd = sprintf ("cmd: %s", $13); + + my $rt1 = sprintf ("schedule_%d:", hex($1)); + $rt1 .= "$scheduleID $userID $startYear $startMonth $activeID ". + "$startDay $sWeekDay $startHour $durationType $startMinute ". + "$duration $numReports $numCmds $cmdlen $cmd"; + return ($rt1); +} + +sub +ZWave_scheduleStateParse ($$) +{ + my ($hash, $val) = @_; + return if($val !~ m/^(..)(..)(..)(..)/); + + my $numSupportedIDs = sprintf ("numIDs: %d", hex($1)); + my $override = sprintf ("overried: %b", (hex($2) & 0x01)); + my $numReports = sprintf ("numReportsToFollow: %d", (hex($2) & 0xfe)>>1); + my $ID1 = sprintf ("ID1: %d", (hex($3) & 0x0f)); + my $ID2 = sprintf ("ID2: %d", (hex($3) & 0xf0)>>4); + my $ID3 = sprintf ("ID3: %d", (hex($4) & 0x0f)); + my $IDN = sprintf ("IDn: %d", (hex($4) & 0xf0)>>4); + + my $rt1 .= "scheduleState:$numSupportedIDs $override $numReports ". + "$ID1 $ID2 $ID3 $IDN"; + return ($rt1); +} + my %zwm_unit = ( energy=> ["kWh", "kVAh", "W", "pulseCount", "V", "A", "PowerFactor"], gas => ["m3", "feet3", "undef", "pulseCount"], @@ -935,7 +1100,6 @@ ZWave_meterParse($$) } } - sub ZWave_meterGet($) { @@ -954,7 +1118,6 @@ ZWave_meterGet($) } - sub ZWave_meterSupportedParse($$) { @@ -1116,64 +1279,190 @@ ZWave_multilevelParse($$$) int(@{$ml->{st}}) > $sc ? $ml->{st}->[$sc] : ""); } + +sub +ZWave_applicationStatusBusyParse($$$) +{ + my ($hash, $st, $wTime) = @_; + my $name = $hash->{NAME}; + + my $status = hex($st); + my $rt .= $status==0 ? "tryAgainLater " : + $status==1 ? "tryAgainInWaitTimeSeconds " : + $status==2 ? "RequestQueued " : "unknownStatusCode "; + $rt .= sprintf("waitTime: %d", hex($wTime)); + return ("applicationBusy:$rt"); +} + +sub +ZWave_timeParametersReport($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + if($arg !~ m/(....)(..)(..)(..)(..)(..)/) { + Log3 $name,1,"$name: timeParametersReport with wrong format received: $arg"; + return; + } + return + sprintf("timeParameters:date: %04d-%02d-%02d time(UTC): %02d:%02d:%02d", + hex($1), hex($2), hex($3), hex($4), (hex$5), hex($6)); +} + +sub +ZWave_timeParametersSet($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + return ("wrong format, see commandref", "") + if($arg !~ m/(....)-(..)-(..) (..):(..):(..)/); + my $rt = sprintf("%04x%02x%02x%02x%02x%02x", $1, $2, $3, $4, $5, $6); + return ("", sprintf("01%s", $rt)); +} + +sub +ZWave_dateReport($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + if ($arg !~ m/(....)(..)(..)/) { + Log3 $name, 1, "$name: dateReport with wrong format received: $arg"; + return; + } + return (sprintf("date:%04d-%02d-%02d", hex($1), hex($2), hex($3))); +} + +sub +ZWave_timeReport($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + if ($arg !~ m/(..)(..)(..)/) { + Log3 $name, 1, "$name: timeReport with wrong format received: $arg"; + return; + } + return (sprintf("time:%02d:%02d:%02d RTC: %s", + (hex($1) & 0x1f), hex($2), hex($3), + (hex($1) & 0x80) ? "failed" : "working")); +} + +sub +ZWave_timeOffsetReport($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + if ($arg !~ m/(..)(..)(..)(..)(..)(..)(..)(..)(..)/) { + Log3 $name, 1, "$name: timeOffsetReport with wrong format received: $arg"; + return; + } + my $hourTZO = hex($1) & 0x7f; + my $signTZO = hex($1) & 0x80; + my $minuteTZO = hex($2); + my $minuteOffsetDST = hex($3) & 0x7f; + my $signOffsetDST = hex($3) & 0x80; + my $monthStartDST = hex($4); + my $dayStartDST = hex($5); + my $hourStartDST = hex($6); + my $monthEndDST = hex($7); + my $dayEndDST = hex($8); + my $hourEndDST = hex($9); + + my $UTCoffset = "UTC-Offset: "; + $UTCoffset .= ($signTZO ? "-" : "+"); + $UTCoffset .= sprintf ("%02d:%02d", $hourTZO, $minuteTZO); + + my $DSToffset = "DST-Offset(minutes): "; + $DSToffset .= ($signOffsetDST ? "-" : "+"); + $DSToffset .= sprintf ("%02d", $minuteOffsetDST); + + my $startDST = "DST-Start: "; + $startDST .= sprintf ("%02d-%02d_%02d:00", + $monthStartDST, $dayStartDST, $hourStartDST); + my $endDST = "DST-End: "; + $endDST .= sprintf ("%02d-%02d_%02d:00", + $monthEndDST, $dayEndDST, $hourEndDST); + + return (sprintf("timeOffset:$UTCoffset $DSToffset $startDST $endDST")); + +} + +sub +ZWave_timeOffsetSet($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + if($arg !~ + m/([+-])(..):(..) ([+-])(..) (..)-(..)_(..):00 (..)-(..)_(..):00/) { + return ("wrong format $arg, see commandref", ""); + } + + my $signTZO = $1; + my $hourTZO = $2; + my $minuteTZO = $3; + my $signOffsetDST = $4; + my $minuteOffsetDST = $5; + my $monthStartDST = $6; + my $dayStartDST = $7; + my $hourStartDST = $8; + my $monthEndDST = $9; + my $dayEndDST = $10; + my $hourEndDST = $11; + + my $rt = sprintf("%02x%02x", + ($hourTZO | ($signTZO eq "-" ? 0x01 : 0x00)), $minuteTZO); + $rt .= sprintf("%02x", + ($minuteOffsetDST | ($signOffsetDST eq "-" ? 0x01 : 0x00))); + $rt .= sprintf("%02x%02x%02x", + $monthStartDST, $dayStartDST, $hourStartDST); + $rt .= sprintf("%02x%02x%02x", $monthEndDST, $dayEndDST, $hourEndDST); + + return ("", sprintf("05%s", $rt)); +} + sub ZWave_DoorLockOperationReport($$) { my ($hash, $arg) = @_; my $name = $hash->{NAME}; - Log3 $name, 0, "$name: DoorLockOperationReport received: $arg"; - if ($arg !~ m/(..)(..)(..)(..)(..)/) { - Log3 $name, 0, "$name: DoorLockOperationReport wrong format received"; + Log3 $name, 1, "$name: doorLockOperationReport with wrong ". + "format received: $arg"; + return; } - my $DoorLockMode = $1; - my $DoorLockHandleModes = hex($2); - my $DoorCondition = hex($3); - my $DoorLockTimeoutMinutes = hex($4); - my $DoorLockTimeoutSeconds = hex($5); + my $DLM = hex($1); # DoorLockMode + my $DLHM = hex($2); # DoorLockHandleModes + my $DC = hex($3); # DoorCondition + my $DLTM = hex($4); # DoorLockTimeoutMinutes + my $DLTS = hex($5); # DoorLockTimeoutSeconds - my $dlm ="Door is "; - if ($DoorLockMode eq '00') { - $dlm .= "unsecured"; - } elsif ($DoorLockMode eq '01') { - $dlm .= "unsecured with timeout"; - } elsif ($DoorLockMode eq '10') { - $dlm .= "unsecured for inside door handles"; - } elsif ($DoorLockMode eq '11') { - $dlm .= "unsecured for inside door handles with timeout"; - } elsif ($DoorLockMode eq '20') { - $dlm .= "unsecured for outside door handles"; - } elsif ($DoorLockMode eq '21') { - $dlm .= "unsecured for outside door handles with timeout"; - } elsif ($DoorLockMode eq 'ff') { - $dlm .= "secured"; + my $DLMtext = "mode: "; + if ($DLM == 0xff) { + $DLMtext .= "secured"; + } elsif ($DLM == 0xfe) { + $DLMtext .= "lockStateUnknown"; } - Log3 $name, 0, "$name: DoorLockOperationReport DoorLockMode = $dlm"; + else { + $DLMtext .= "unsecured"; + $DLMtext .= (($DLM & 0x10) ? "_inside" :""); + $DLMtext .= (($DLM & 0x20) ? "_outside" :""); + $DLMtext .= (($DLM & 0x01) ? "_withTimeout" :""); + }; - my $odlhm = sprintf ("%04b", ($DoorLockHandleModes & 0xf0)>>4); - my $idlhm = sprintf ("%04b", ($DoorLockHandleModes & 0x0f)); - Log3 $name, 0, "$name: DoorLockOperationReport OutsideDoorHandles: $odlhm,". - " InsideDoorHandles: $idlhm"; + my $odlhm = sprintf ("outsideHandles: %04b", ($DLHM & 0xf0)>>4); + my $idlhm = sprintf ("insideHandles: %04b", ($DLHM & 0x0f)); - my $dc_door = 'Door ' . ($DoorCondition & 0x01) ? 'open' : 'closed'; - my $dc_bolt = 'Bolt ' . ($DoorCondition & 0x02) ? 'locked' : 'unlocked'; - my $dc_latch = 'Latch ' . ($DoorCondition & 0x04) ? 'open' : 'closed'; - Log3 $name, 0, "$name: DoorLockOperationReport Door Conditions: $dc_door ". - "$dc_bolt $dc_latch"; + my $dc_door = "door: " . (($DC & 0x01) ? "closed" : "open"); + my $dc_bolt = "bolt: " . (($DC & 0x02) ? "unlocked" : "locked"); + my $dc_latch = "latch: " . (($DC & 0x04) ? "closed" : "open"); - if ($DoorLockTimeoutMinutes == 254) { - $DoorLockTimeoutMinutes = 'not_supported'; - } - if ($DoorLockTimeoutSeconds == 254) { - $DoorLockTimeoutSeconds = 'not_supported'; + my $to = "timeoutSeconds: "; + if (($DLTM == 0xfe) && ($DLTS == 0xfe)) { + $to .= 'not_supported'; + } else { + $to .= sprintf ("%d", ($DLTM * 60 + $DLTS)); } - my $to = 'Timeout ' . ' min=' . $DoorLockTimeoutMinutes . ' sec=' . - $DoorLockTimeoutSeconds; - Log3 $name, 0, "$name: DoorLockOperationReport $to"; - - return "DoorLockOperation: $arg $dlm outsidehandles $odlhm insidehandles ". - "$idlhm $dc_door $dc_bolt $dc_latch $to"; + return "doorLockOperation:$DLMtext $odlhm $idlhm $dc_door ". + "$dc_bolt $dc_latch $to"; } sub @@ -1181,44 +1470,76 @@ ZWave_DoorLockConfigReport($$) { my ($hash, $arg) = @_; my $name = $hash->{NAME}; - Log3 $name, 5, "$name: DoorLockConfigurationReport received: $arg"; - if ($arg !~ m/(..)(..)(..)(..)/) { - Log3 $name, 0, "$name: DoorLockOperationReport wrong format received"; + Log3 $name, 1, "$name: doorLockOperationReport with wrong ". + "format received: $arg"; + return; } - my $OperationMode = $1; - my $DoorLockHandleStates = hex($2); - my $DoorLockTimeoutMinutes = hex($3); - my $DoorLockTimeoutSeconds = hex($4); + my $OpMode = $1; # OperationMode + my $DLHS = hex($2); # DoorLockHandleStates + my $DLTM = hex($3); # DoorLockTimeoutMinutes + my $DLTS = hex($4); # DoorLockTimeoutSeconds - my $ot =''; - if ($OperationMode eq '01') { - $ot = "Constant "; - } elsif ($OperationMode eq '02') { - $ot = "Timed"; - } - $ot .= ' operation'; - Log3 $name, 0, "$name: DoorLockConfigurationReport $ot"; - - my $odlhs = sprintf ("%04b", ($DoorLockHandleStates & 0xf0)>>4); - my $idlhs = sprintf ("%04b", ($DoorLockHandleStates & 0x0f)); - Log3 $name, 0, "$name: DoorLockOperationReport OutsideDoorHandles: $odlhs, ". - "InsideDoorHandles: $idlhs"; - - if ($DoorLockTimeoutMinutes == 254) { - $DoorLockTimeoutMinutes = 'not_supported'; - } - if ($DoorLockTimeoutSeconds == 254) { - $DoorLockTimeoutSeconds = 'not_supported'; + my $ot = "mode: "; + if ($OpMode eq '01') { + $ot .= "constant"; + } elsif ($OpMode eq '02') { + $ot .= "timed"; + } else { + $ot .= "unknown"; } - my $to = 'Timeout ' . ' min=' . $DoorLockTimeoutMinutes . ' sec=' . - $DoorLockTimeoutSeconds; + my $odlhs = sprintf ("outsideHandles: %04b", ($DLHS & 0xf0)>>4); + my $idlhs = sprintf ("insideHandles: %04b", ($DLHS & 0x0f)); - Log3 $name, 0, "$name: DoorLockOperationReport $to"; + my $to = "timeoutSeconds: "; + if (($DLTM == 0xfe) && ($DLTS == 0xfe)) { + $to .= 'not_supported'; + } else { + $to .= sprintf ("%d", ($DLTM * 60 + $DLTS)); + } - return "DoorLockConfiguration: $arg $ot outsidehandles $odlhs ". - "insidehandles $idlhs $to"; + return "doorLockConfiguration: $ot $odlhs $idlhs $to"; +} + +sub +ZWave_DoorLockOperationSet($$) +{ + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + + my $rt="01"; + + if ($arg eq 'open') { + $rt .= "00"; + } elsif ($arg eq 'close') { + $rt .= "FF"; + } else { + $rt .= $arg; + } + return ("", $rt); +} + +sub +ZWave_DoorLockConfigSet($$) +{ + # 0x62 V1, V2 + # userinput: operationType_dez, handles, seconds_dez + my ($hash, $arg) = @_; + my $name = $hash->{NAME}; + + my @param = split (" ", $arg); + return ("wrong arg, need: operationType handles timeoutSeconds","") + if(@param != 3); + + return ("wrong operationType: only 1 or 2 allowed","") + if (($param[0] < 1) || ($param[0] > 2)); + + return("wrong timeout: 1 - 15239 seconds allowed","") + if ((($param[2]) < 1) || ($param[2]) > 253*60+59); + + return ("", sprintf("04%02x%02x%02x%02x", + $param[0],$param[1], int($param[2] / 60) ,($param[2] % 60))); } sub @@ -3268,6 +3589,30 @@ s2Hex($) available from the database for this device, then request the value of all known configuration parameters. +

Class DOOR_LOCK, V2 +
  • doorLockOperation DOOR_LOCK_MODE
    + Set the operation mode of the door lock.
    + DOOR_LOCK_MODE:
    + open = Door unsecured
    + close = Door secured
    + 00 = Door unsecured
    + 01 = Door unsecured with timeout
    + 10 = Door unsecured for inside door handles
    + 11 = Door unsecured for inside door handles with timeout
    + 20 = Door unsecured for outside door handles
    + 21 = Door unsecured for outside door handles with timeout
    + FF = Door secured
    + Note: open/close can be used as an alias for 00/FF. +
    • +
  • doorLockConfiguration operationType handles timeoutSeconds
    + Set the configuration for the door lock.
    + operationType: 1=constant operation, 2=timed operation
    + handles: 1 byte: bit 0..3 = outside door handle 1-4, + bit 4..7 = inside door handle 1-4, + bit=0:handle disabled, bit=1:handle enabled.
    + timeoutSeconds: time out for timed operation (in seconds). +
    • +

    Class INDICATOR
  • indicatorOn
    switch the indicator on
    • @@ -3309,6 +3654,33 @@ s2Hex($) groupId. Specifying 0 for groupid will delete all associations. +

    Class NETWORK_SCHEDULE (SCHEDULE), V1 +
  • schedule ID USER_ID YEAR-MONTH-DAY WDAY ACTIVE_ID DURATION_TYPE + HOUR:MINUTE DURATION NUM_REPORTS CMD ... CMD
    + Set a schedule for a user. Due to lack of documentation, + details for some parameters are not available. Command Class is + used together with class USER_CODE.
    + ID: id of schedule, refer to maximum number of supported schedules + reported by the scheduleSupported command.
    + USER_ID: id of user, refer to the USER_CODE class description.
    + YEAR-MONTH-DAY: start of schedule in the format yyyy-mm-dd.
    + WDAY: weekday, 1=Monday, 7=Sunday.
    + ACTIVE_ID: unknown parameter.
    + DURATION_TYPE: unknown parameter.
    + HOUR:MINUTE: start of schedule in the format hh:mm.
    + DURATION: unknown parameter.
    + NUM_REPORTS: number of reports to follow, must be 0.
    + CMD: command(s) (as hexcode sequence) that the schedule executes, + see report of scheduleSupported command for supported command + class and mask. A list of space separated command can be + specified.
    +
    • +
  • scheduleRemove ID
    + Remove the schedule with the id ID
    • +
  • scheduleState ID STATE
    + Set the STATE of the schedule with the id ID. Description for + parameter STATE is not available.
    • +

    Class NODE_NAMING
  • name NAME
    Store NAME in the EEPROM. Note: only ASCII is supported.
    • @@ -3418,6 +3790,26 @@ s2Hex($) The value is a whole number and read as celsius. +

    Class TIME, V2 +
  • timeOffset TZO DST_Offset DST_START DST_END
    + Set the time offset for the internal clock of the device.
    + TZO: Offset of time zone to UTC in format [+|-]hh:mm.
    + DST_OFFSET: Offset for daylight saving time (DST) in minutes + in the format [+|-]mm.
    + DST_START / DST_END: Start and end of daylight saving time in the + format MM-DD_HH:00.
    + Note: Sign for both offsets must be specified!
    + Note: Minutes for DST_START and DST_END must be specified as "00"! +
    • + +

    Class TIME_PARAMETERS, V1 +
  • timeParameters DATE TIME
    + Set the time (UTC) to the internal clock of the device.
    + DATE: Date in format YYYY-MM-DD.
    + TIME: Time (UTC) in the format hh:mm:ss.
    + Note: Time zone offset to UTC must be set with command class TIME. +
    • +

    Class USER_CODE
  • userCode id status code
    set code and status for the id n. n ist starting at 1, status is 0 for @@ -3514,9 +3906,12 @@ s2Hex($) specific config commands are available.
    • -

    Class DOOR_LOCK -
  • doorLockConfiguration cfgAddress
    - return the configuration of the door lock.
    +

    Class DOOR_LOCK, V2 +
  • doorLockConfiguration
    + Request the configuration report from the door lock. +
    • +
  • doorLockOperation
    + Request the operconfiguration report from the door lock.


    • Class HRV_STATUS @@ -3588,6 +3983,20 @@ s2Hex($) data see the mcaAdd command above. +

    Class NETWORK_SCHEDULE (SCHEDULE), V1 +
  • scheduleSupported
    + Request the supported features, e.g. number of supported schedules. + Due to the lack of documentation, details for some fields in the + report are not available.
    • +
  • schedule ID
    + Request the details for the schedule with the id ID. Due to the + lack of documentation, details for some fields in the report are + not available.
    • +
  • scheduleState
    + Request the details for the schedule state. Due to the lack of + documentation, details for some fields in the report are not + available.
    • +

    Class NODE_NAMING
  • name
    Get the name from the EEPROM. Note: only ASCII is supported.
    • @@ -3676,6 +4085,23 @@ s2Hex($) request the setpoint +

    Class TIME, V2 +
  • time
    + Request the (local) time from the internal clock of the device. +
    • +
  • date
    + Request the (local) date from the internal clock of the device. +
    • +
  • timeOffset
    + Request the report for the time offset and DST settings from the + internal clock of the device. +
    • + +

    Class TIME_PARAMETERS, V1 +
  • time
    + Request the date and time (UTC) from the internal clock of the device. +
    • +

    Class USER_CODE
  • userCode n
    request status and code for the id n @@ -3732,7 +4158,7 @@ s2Hex($)
  • secure_classes This attribute is the result of the "get DEVICE secSupported" command. It - contains a space seperated list of the the command classes that + contains a space seperated list of the the command classes that are supported with SECURITY.
  • vclasses @@ -3754,6 +4180,11 @@ s2Hex($)
  • For higher class versions more detailed events with 100+ different strings in the form alarm: are generated.
    • +
    Class APPLICATION_STATUS +
  • applicationStatus: [cmdRejected]
    • +
  • applicationBusy: [tryAgainLater|tryAgainInWaitTimeSeconds| + RequestQueued|unknownStatusCode] $waitTime
    • +

    Class ASSOCIATION
  • assocGroup_X:Max Y Nodes A,B,...
  • assocGroups:X
    • @@ -3801,6 +4232,18 @@ s2Hex($)

    Class DEVICE_RESET_LOCALLY
  • deviceResetLocally:yes
    • +

    Class DOOR_LOCK, V2 +
  • doorLockConfiguration: mode: [constant|timed] outsideHandles: + $outside_mode(4 bit field) insideHandles: $inside_mode(4 bit field) + timeoutSeconds: [not_supported|$seconds]
    • +
  • doorLockOperation: mode: $mode outsideHandles: + $outside_mode(4 bit field) insideHandles: $inside_mode(4 bit field) + door: [open|closed] bolt: [locked|unlocked] latch: [open|closed] + timeoutSeconds: [not_supported|$time]
    + $mode = [unsecured|unsecured_withTimeout|unsecured_inside| + unsecured_inside_withTimeout|unsecured_outside| + unsecured_outside_withTimeout|secured
    • +

    Class HAIL
  • hail:01
    • @@ -3843,6 +4286,24 @@ s2Hex($)
  • endpoints:total X $dynamic $identical
  • mcCapability_X:class1 class2 ...
    • +

    Class NETWORK_SCHEDULE (SCHEDULE), V1 +
  • schedule_<id>: ID: $schedule_id userID: $user_id sYear: + $starting_year sMonth: $starting_month activeID: $active_id + sDay: $starting_day sWeekDay: $starting_weekday sHour: + $starting_hour durationType: $duration_type sMinute: + $starting_minute duration: $duration numReportsToFollow: + $number_of_reports_to_follow numCmds: $number_of_commands + cmdLen: $length_of_command cmd: $commandsequence(hex)
    • +
  • scheduleSupported: num: $number_of_supported_schedules + startTimeSupport: $start_time_support(6 bit field) fallbackSupport: + $fallback_support enableDisableSupport: $ena_dis_support + numCCs: $number_of_supported_command_classes + overrideTypes: $override_types(7 bit field) overrideSupport: + $override_support
    • +
  • scheduleSupportedCC: CC_<x>: $number_of_command_class + CCname_<x>: $name_of_command_class]CCmask_<x>: + $mask_for_command(2 bit)
    • +

    Class NODE_NAMING
  • name:NAME
  • location:LOCATION
    • @@ -3977,6 +4438,14 @@ s2Hex($)

    Class THERMOSTAT_SETPOINT
  • setpointTemp:$temp [C|F] [heating|cooling]
    • +

    Class TIME, V2 +
  • time:$time RTC: [failed|working]
    • +
  • date:$date
    • +
  • timeOffset: UTC-Offset: $utco DST-Offset(minutes): $dsto DST-Start: $start DST-End: $end
    • + +

    Class TIME_PARAMETERS, V1 +
  • timeParameters: date: $date time(UTC): $time
    • +

    Class USER_CODE
  • userCode:id x status y code z