diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm index 41dbf646c..28f210cbd 100755 --- a/fhem/FHEM/00_HMLAN.pm +++ b/fhem/FHEM/00_HMLAN.pm @@ -70,7 +70,7 @@ sub HMLAN_Initialize($) { $hash->{UndefFn} = "HMLAN_Undef"; $hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " . "addvaltrigger " . - "hmId hmKey hmKey2 hmKey3 " . + "hmId hmKey hmKey2 hmKey3 hmKey4 hmKey5 " . "respTime " . "hmProtocolEvents:0_off,1_dump,2_dumpFull,3_dumpTrigger ". "hmMsgLowLimit ". @@ -205,6 +205,8 @@ sub HMLAN_Attr(@) {############################################################ =( "01",AttrVal($name,"hmKey","") ,"02",AttrVal($name,"hmKey2","") ,"03",AttrVal($name,"hmKey3","") + ,"04",AttrVal($name,"hmKey4","") + ,"05",AttrVal($name,"hmKey5","") ); if ($k1 =~ m/:/){($k1no,$k1) = split(":",$k1);} @@ -753,6 +755,8 @@ sub HMLAN_DoInit($) {########################################################## =( "01",AttrVal($name,"hmKey","") ,"02",AttrVal($name,"hmKey2","") ,"03",AttrVal($name,"hmKey3","") + ,"04",AttrVal($name,"hmKey4","") + ,"05",AttrVal($name,"hmKey5","") ); if ($k1 =~ m/:/){($k1no,$k1) = split(":",$k1);} @@ -1005,6 +1009,8 @@ sub HMLAN_getVerbLvl ($$$$){#get verboseLevel for message