## no critic (Modules::RequireVersionVar,Policy::CodeLayout::RequireTidyCode) ## # $Id$ ################################################################################ ### changelog: # ABU 20180218 restructuring, removed older documentation # MH 20210908 deleted part of change history # ABU 20181007 fixed dpt19 # HAUSWART 20201112 implemented DPT20.102 #91462, KNX_parse set & get #115122, corrected dpt1 / dpt1.001 #112538 # HAUSWART 20201113 fixed dpt19 #91650, KNX_hexToName2 # MH 20201122 reworked most of dpt1, added dpt6.010, reworked dpt19, fixed (hopefully) putCmd, corrcetions to docu # MH 20201202 dpt10 compatibility with widgetoverride :time, docu formatting # MH 20201207 improve code (PerlBestPractices) changes marked with #PBP, added x-flag to most of regex, fixed dpt16 # MH 20201210 add docu example for dpt16, fix docu indent. # MH 20201223 add Evolution-version string, add dpt2.000 (JoeALLb), correction to "unknow argument..." # new attr disable, simplify set-cmd logic, removed 'use SetExtensions', rework DbLogsplit logic # MH 20210110 E04.20 rework / simplify set and define subs. No functional changes, i hope... # PBP /perlcritic: now down to 12 Lines (from original 425) on package main Level 3, # most of them 'cascading if-elsif chain' or 'high complexity score's. # Still one severity 5, don't know how to fix that one. # MH 20210210 E04.40 reworked dpt3 en- de-code, added disable also for KNX_parse, # reworked set & parse -> new sub KNX_SetReading # fix dpt16 empty string / full string length # autocreate: new devices will be default disabled during autocreate! - see cmdref # the Log msg "Unknown code xxxxx please help me" cannot be suppressed, would require a change in TUL/KNXTUL Module # "set xxx (on|off)-until hh:mm" now works like "at xxx on-till-overnight hh:mm" # fixed toggle (current value) # additional PBP/perlcritic fixes # fixed ugly bug when doing defmod or copy (defptr not cleared!) # MH 20210211 E04.41 quick fix readingnames (gammatwin) # MH 20210218 E04.42 cleanup, change dpts: 6,8,13 en-/de-code, fixed $PAT_DATE, # readings: a write from bus updates always the "get" reading, indepedend of option set !!! # add KNX_toggle Attr & docu # MH 20210225 E04.43 fix autocreate- unknown code..., defptr # cmdref: changed wiki # MH 20211118 E04.90 fix dpt10 now, fix dpt19 workingdays # fix dpt3 encode # MH 20220107 E05.00 feature: add support for FHEM2FHEM as IO-Device # E05.01 feature: utitity KNX_scan # corrections cmd-ref # optimize replaceByRegex # MH 20220108 fix KNX_scan sub (export-problem) # MH 202201xx E05.02 fix dpt14 "0" # avoid undefined event when autocreate ignoreTypes is set # MH 20220313 fix dpt20_decode # new dpt22.101 receive only # changed unit encoding to UTF8 eg: dpt9.030 from: μg/m³ to: µg/m³ # MH 20220403 allow 'nosuffix' as only option in define # minor corrections to cmdref # MH 20220429 minor additions to cmdref & some cleanup # MH 20221019 cleanup, replace doubleqoutes in Log3, sprintf,pack,.... # add devicename to every Log msg # rework doKNXscan, stateregex # add dpt4, dpt15, added sub-dpts for dpts 3,5,8,9,14; corrected min/max/pattern values in dpts # fix dpt19, dpt11 parsing # unify Log-Msg's # prevent setting deprecated (since 2018!) Attr: readonly,listenonly,slider - with errormsg # prevent setting IODev in define... # .... both will be completly removed with next version # new: Internal "RAWMSG" shows msg from Bus while device is disabled (debugging) # bugfix: allowed group-format corrected: was 0-31/0-15/0-255 -> now: 0-31/0-7/0-255 lt.KNX-spec # MH 202210xx changed package name FHEM::KNX -> KNX # changed svnid format # fix dpt4,dpt16 encode/decode (ascii vs. ISO-8859-1) # fix dpt14.057 unit 'dpt14.057' { cosφ vs. cosφ ) =>need UTF8 in DbLog spec ! # new dpt217 - for EBUSD KNX implementation # no default slider in FHEMWEB-set/get for dpt7,8,9,12,13 - use widgetoverride slider ! # MH 20221113 cleanup, cmdref formatting # MH 202212xx fix dpt217 range/fomatting, cmd-ref links, # remove support for IODev in define # modify disabled logic # MH 20221226 device define after init_complete # remove $hash->{DEVNAME} # modify autocreate, get/set logic # changed not user relevant internals to {.XXXX} # changed DbLog_split function # disabled StateFn # MH 20230104 change pattern matching for dpt1 and dptxxx # fix DbLogSplitFn # MH 20230124 simplify DbLogSplitFn # modify parsing of gadargs in define # modify KNX_parse - reply msg code # modify KNX_set # add pulldown menu for attr IODev with vaild IO-devs # KNX_scan now avail also from cmd-line # MH 20230129 PBP changes /ms flag # syntax check on attr stateCmd & putCmd # fix define parsing # MH 20230328 syntax check on attr stateregex # reminder to migrate to KNXIO # announce answerreading as deprecated # MH 20230407 implement KNX_Log # simplyfy checkAndClean-sub # MH 20230415 fixed unint in define2 [line 543] # fixed allowed range for dpt6.001 # add dpt7.002 - 7.004 # fixed scaling dpt8.003 .004 .010 # MH 20230525 rework define parsing # removed deprecated (since 2018!) Attr's: readonly,listenonly,slider # removed deprecated IODEV from define - errormsg changed! # remove FACTOR & OFFSET keys from %dpttypes where FACTOR = undef/1 or OFFSET= undef/0 # correct rounding on dpt5.003 encode # remove trailing zero(s) on reading values # integrate sub checkandclean into encodebydpt # cmd-ref: correct wiki links, W3C conformance... # error-msg on invalid set dpt1 cmd (on-till...) # Attr anwerReading now deprecated - converted to putCmd - autosave will be deactivated during fhem-restart if a answerReading is converted - use save! # MH 20230615 move KNX_scan Function to KNXIO-Module - update both KNXIO and KNX-Module !!! # update cmd-ref # MH 20230713 cleanup, add events chapter to cmd-ref # moved KNX_scan function to KNX-Module, KNX_scan cmdline cmd into new Module 98_KNX_scan.pm # MH 20230828 verify allowed oldsyntax cmd's, # deprecate announcement for cmd's: raw,value,string,rgb # improve regex for dpt4, dpt16 # add sub-dpts to dpt1,7,8,12,13,14 (new KNX-spec) # change max-limit for dpt9 acc. to new KNX-spec to 670433.28 # implementation beta-test dpt251.600, dpt221 # new dpt: dptRAW -allow unlimited hex char. w.o. any checking ! # do NOT remove leading & trailing zeros on reading values (hex values would be destroyed) # allow more than 14 char on "set dpt16" - truncate during encoding to 1st 14 char # hide set-pulldown for readonly dpts (dpt15,22,217,221) # MH 20231002 allow exp numbers in set cmd for dpt14, formatting of (dpt14) reading values # corr dpt9 min-limit to -671088.64 # dpt9, dpt14: deny use of comma as dec-separator... # fix replacebyregex # rework KNX_scan # MH 20231125 replace GP_export function # PBP cleanup -1 # correct cmdref links for DbLog attr Fn's # modified limit Log msg # dpttypes optimisation (no variable case regex for numbers) # MH 20231226 code optimisation KNX_scan, doKNX_scan # adapt cmds ref set/get cmd's (new KNXIO feature - send queing) # additional dpts 14.xxx - see cmdref # MH 20240114 correct unit for dpt9.026 # additional dpts 14.xxx - see cmdref # fix dpt14 min/max values # performance tuning in define # MH 20240305 change dpt1.009 max-value from closed->close # prevent gadName 'state' in define when nosuffix specified # add on-for...|off-for... to forbidden gadNames # MH 20240425 remove Attr answerreading & conversion to putcmd (announced 5/2023) # modify set cmd # modified address converssion hex2Name() # MH 20240819 add sub-dpts for dpt14, cmdref # enforce gadName rules # prevent set- and get-cmd during fhem-start (e.g. in fhem.cfg) # change dpt16 encoding - fix dblogsplit for dpt16 # MH 20241020 replace gettimeofday w. Time::HiRes::time # replace encode & decode w. Encode::encode & Encode::decode # replace looks_like_number w. Scalar::Util::looks_like_number # prevent subsecond parameter in (on|off)-for-timer # rework KNX_Set_dpt1 logic # correct dpt1.009, dpt1.024, dpt1.100 # add dpt18 "learn" - still experimental # cmd-ref update # MH 20241114 dpt5, dpt7 change to float (rounding) again... # (on|off)-for-timer now supports > 86400 seconds and fractions of a sec (up to 9.9 secs) # new cmd "on-till" - works like set extensions cmd - end time must be gt current time (same day)! # dpt18 "learn" now implemented for dpt18.001, experimental dpt18.099 removed # PBP: replace unless w. if not..., fix postfix if # cmd-ref update # MH 20250201 fix dpt16 dblog-split fn # feature: new attr readingNmap - modify readingnames on the fly # internal code change: _define2, _attr, _set, _encodeByDpt # MH 20250727 modify blink cmd logic - support widgetList # MH 20251025 modify dpt10, dpt11 encode # test for duplicate gadNames - modify on the fly # fix dpt19 regex $PAT_DATE # add dpt21, add sub-dpts for dpt20, cmd-ref # modify DBLog_split unit logic # modified dpt18 encode # prepare for removal of $MODELERR # MH 202511yy change autocreate (removal of $MODELERR) # Attribute format is announced deprecated # prepare removal of $dpttypes{$model}->{CODE}; # # todo-4/2024 remove support for oldsyntax cmd's: raw,value,string,rgb # todo-5/2026 remove support for attr format package KNX; ## no critic 'package' use strict; use warnings; use Encode qw(encode decode); use Time::HiRes qw(time); use Scalar::Util qw(looks_like_number); use GPUtils qw(GP_Import); # Package Helper Fn ### perlcritic parameters # these ones are NOT used! (constants,Policy::Modules::RequireFilenameMatchesPackage,NamingConventions::Capitalization) # these ones are NOT used! (ControlStructures::ProhibitCascadingIfElse) # these ones are NOT used! (RegularExpressions::RequireDotMatchAnything,RegularExpressions::RequireLineBoundaryMatching) # these ones are NOT used! (ControlStructures::ProhibitPostfixControls) ### the following percritic items will be ignored global ### ## no critic (NamingConventions::Capitalization) ## no critic (Policy::CodeLayout::ProhibitParensWithBuiltins) ## no critic (ValuesAndExpressions::RequireNumberSeparators,ValuesAndExpressions::ProhibitMagicNumbers) ## no critic (Documentation::RequirePodSections) ### import FHEM functions / global vars ### run before package compilation BEGIN { # Import from main context GP_Import( qw(readingsSingleUpdate readingsBulkUpdate readingsBulkUpdateIfChanged readingsBeginUpdate readingsEndUpdate Log3 AttrVal AttrNum InternalVal ReadingsVal ReadingsNum AssignIoPort IOWrite CommandDefMod CommandModify CommandDelete CommandAttr CommandDeleteAttr CommandDeleteReading defs modules attr cmds perlSyntaxCheck FW_detail FW_wname FW_room FW_directNotify readingFnAttributes InternalTimer RemoveInternalTimer GetTimeSpec init_done IsDisabled IsDummy IsDevice deviceEvents devspec2array AnalyzePerlCommand AnalyzeCommandChain EvalSpecials fhemTimeLocal) ); } #string constants my $KNXID = 'C'; #identifier for KNX - extended adressing my $SVNID = '$Id$'; ## no critic (Policy::ValuesAndExpressions::RequireInterpolationOfMetachars) my $BLINK = 'blink'; my $TOGGLE = 'toggle'; my $RAW = 'raw'; # announced deprecated my $RGB = 'rgb'; # announced deprecated my $STRING = 'string'; # announced deprecated my $VALUE = 'value'; # announced deprecated #regex patterns #pattern for group-adress my $PAT_GAD = '(3[01]|[012][\d]|[\d])\/([0-7])\/(2[0-4][\d]|25[0-5]|(?:[01])?[\d]{1,2})'; # 0-31/0-7/0-255 #pattern for group-adress in hex-format my $PAT_GADHEX = '[01][0-9a-f][0-7][0-9a-f]{2}'; # max is 1F7FF -> 31/7/255 5 digits #pattern for group-no my $PAT_GNO = qr/^g[1-9][\d]?$/xms; #pattern for GAD-Options my $PAT_GAD_OPTIONS = 'get|set|listenonly'; #pattern for GAD-suffixes my $PAT_GAD_SUFFIX = 'nosuffix'; #pattern for forbidden GAD-Names my $PAT_GAD_NONAME = qr/^((?:on|off)(?:-for-timer|-until|-till)?|toggle|blink|raw|rgb|string|value|get|set|listenonly|nosuffix)$/xms; ## no critic (RegularExpressions::ProhibitComplexRegexes) #pattern for DPT my $PAT_DPT = qr/dpt(?:\d+(?:[.]\d{3,4})?|RAW)/mxs; #my $PAT_DPT = qr/(dpt\d{1,3}(?:[.]\d{3,4})?|dptRAW))(?:[:].*)?$/xms; # $1 contains dptxxx.yyy #pattern for dpt1 (standard) my $PAT_DPT1_PAT = 'on|off|[01]'; #pattern for date my $PAT_DATEdm = qr/^(3[01]|[1-2]\d|0?[1-9])[.](1[0-2]|0?[1-9])/ixms; # day/month my $PAT_DATE19 = qr/$PAT_DATEdm[.]((?:19|20|)\d{2}|21[0-4]\d|215[0-5])/xms; # dpt19 year range: 1900-2155 ! my $PAT_DATE11 = qr/$PAT_DATEdm[.](199\d|20[0-8]\d)/ixms; # dpt11 year range: 1990-2089 ! #pattern for time my $PAT_TIME = qr/(2[0-4]|[01]{0,1}\d):([0-5]{0,1}\d):([0-5]{0,1}\d)/ixms; my $PAT_DPT16_CLR = qr/>CLR {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT)/ixms, MIN=>'off', MAX=>'on', SETLIST=>'on,off,toggle', DEC=>\&dec_dpt1,ENC=>\&enc_dpt1,}, 'dpt1.000' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT)/ixms, MIN=>0, MAX=>1, SETLIST=>'0,1'}, 'dpt1.001' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT)/ixms, MIN=>'off', MAX=>'on', SETLIST=>'on,off,toggle'}, 'dpt1.002' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|true|false)/ixms, MIN=>'false', MAX=>'true'}, 'dpt1.003' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|enable|disable)/ixms, MIN=>'disable', MAX=>'enable'}, 'dpt1.004' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|no_ramp|ramp)/ixms, MIN=>'no_ramp', MAX=>'ramp'}, 'dpt1.005' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|no_alarm|alarm)/ixms, MIN=>'no_alarm', MAX=>'alarm'}, 'dpt1.006' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|low|high)/ixms, MIN=>'low', MAX=>'high'}, 'dpt1.007' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|decrease|increase)/ixms, MIN=>'decrease', MAX=>'increase'}, 'dpt1.008' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|up|down)/ixms, MIN=>'up', MAX=>'down'}, 'dpt1.009' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|close|open)/ixms, MIN=>'open', MAX=>'close'}, 'dpt1.010' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|start|stop)/ixms, MIN=>'stop', MAX=>'start'}, 'dpt1.011' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|inactive|active)/ixms, MIN=>'inactive', MAX=>'active'}, 'dpt1.012' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|not_inverted|inverted)/ixms, MIN=>'not_inverted', MAX=>'inverted'}, 'dpt1.013' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|start_stop|cyclically)/ixms, MIN=>'start_stop', MAX=>'cyclically'}, 'dpt1.014' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|fixed|calculated)/ixms, MIN=>'fixed', MAX=>'calculated'}, 'dpt1.015' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|no_action|reset)/ixms, MIN=>'no_action', MAX=>'reset'}, 'dpt1.016' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|no_action|acknowledge)/ixms, MIN=>'no_action', MAX=>'acknowledge'}, 'dpt1.017' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|trigger_0|trigger_1)/ixms, MIN=>'trigger_0', MAX=>'trigger_1', SETLIST=>'trigger_0,trigger_1',}, 'dpt1.018' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|not_occupied|occupied)/ixms, MIN=>'not_occupied', MAX=>'occupied'}, 'dpt1.019' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|closed|open)/ixms, MIN=>'closed', MAX=>'open'}, 'dpt1.021' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|logical_or|logical_and)/ixms, MIN=>'logical_or', MAX=>'logical_and'}, 'dpt1.022' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|scene_A|scene_B)/ixms, MIN=>'scene_A', MAX=>'scene_B'}, 'dpt1.023' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|move_(up_down|and_step_mode))/ixms, MIN=>'move_up_down', MAX=>'move_and_step_mode'}, 'dpt1.024' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|Day|Night)/ixms, MIN=>'day', MAX=>'night'}, 'dpt1.100' => {CODE=>'dpt1', UNIT=>q{}, PATTERN=>qr/($PAT_DPT1_PAT|heating|cooling)/ixms, MIN=>'cooling', MAX=>'heating'}, #Step value (two-bit) 'dpt2' => {CODE=>'dpt2', UNIT=>q{}, PATTERN=>qr/(on|off|forceon|forceoff)/ixms, MIN=>undef, MAX=>undef, SETLIST=>'on,off,forceon,forceoff', DEC=>\&dec_dpt2,ENC=>\&enc_dpt2,}, 'dpt2.000' => {CODE=>'dpt2', UNIT=>q{}, PATTERN=>qr/(0?[0-3])/xms, MIN=>0, MAX=>3, SETLIST=>'0,1,2,3'}, #Step value (four-bit) 'dpt3' => {CODE=>'dpt3', UNIT=>q{}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-100, MAX=>100, DEC=>\&dec_dpt3,ENC=>\&enc_dpt3,}, 'dpt3.007' => {CODE=>'dpt3', UNIT=>q{%}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-100, MAX=>100}, 'dpt3.008' => {CODE=>'dpt3', UNIT=>q{%}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-100, MAX=>100}, #single ascii/iso-8859-1 char 'dpt4' => {CODE=>'dpt4', UNIT=>q{}, PATTERN=>qr/[[:ascii:]]{1}/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dpt16,ENC=>\&enc_dpt4,}, 'dpt4.001' => {CODE=>'dpt4', UNIT=>q{}, PATTERN=>qr/[[:ascii:]]{1}/ixms, MIN=>undef, MAX=>undef}, # ascii 'dpt4.002' => {CODE=>'dpt4', UNIT=>q{}, PATTERN=>qr/(?:[[:ascii:]]{1}|[\xC2-\xF4][\x80-\xBF]{1,3})/ixms, MIN=>undef, MAX=>undef}, # iso-8859-1 # 1-Octet unsigned value 'dpt5' => {CODE=>'dpt5', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,3}/xms, MIN=>0, MAX=>255, DEC=>\&dec_dpt5,ENC=>\&enc_dpt5,}, 'dpt5.001' => {CODE=>'dpt5', UNIT=>q{%}, PATTERN=>qr/[+]?\d{1,3}/xms, FACTOR=>100/255, MIN=>0, MAX=>100}, 'dpt5.003' => {CODE=>'dpt5', UNIT=>q{°}, PATTERN=>qr/[+]?\d{1,3}/xms, FACTOR=>360/255, MIN=>0, MAX=>360}, 'dpt5.004' => {CODE=>'dpt5', UNIT=>q{%}, PATTERN=>qr/[+]?\d{1,3}/xms, MIN=>0, MAX=>255}, 'dpt5.005' => {CODE=>'dpt5', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,3}/xms, MIN=>0, MAX=>255}, # Decimal Factor 'dpt5.006' => {CODE=>'dpt5', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,3}/xms, MIN=>0, MAX=>255}, # Tariff 'dpt5.010' => {CODE=>'dpt5', UNIT=>q{p}, PATTERN=>qr/[+]?\d{1,3}/xms, MIN=>0, MAX=>255}, # counter pulses # 1-Octet signed value 'dpt6' => {CODE=>'dpt6', UNIT=>q{}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-128, MAX=>127, DEC=>\&dec_dpt6,ENC=>\&enc_dpt6,}, 'dpt6.001' => {CODE=>'dpt6', UNIT=>q{%}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-128, MAX=>127}, 'dpt6.010' => {CODE=>'dpt6', UNIT=>q{p}, PATTERN=>qr/[+-]?\d{1,3}/xms, MIN=>-128, MAX=>127}, # 2-Octet unsigned Value 'dpt7' => {CODE=>'dpt7', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535, DEC=>\&dec_dpt7,ENC=>\&enc_dpt7,}, 'dpt7.001' => {CODE=>'dpt7', UNIT=>q{p}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.002' => {CODE=>'dpt7', UNIT=>q{ms}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.003' => {CODE=>'dpt7', UNIT=>q{s}, PATTERN=>qr/[+]?\d{1,3}([.]\d+)?/xms, FACTOR=>0.01, MIN=>0, MAX=>655.35}, 'dpt7.004' => {CODE=>'dpt7', UNIT=>q{s}, PATTERN=>qr/[+]?\d{1,4}([.]\d+)?/xms, FACTOR=>0.1, MIN=>0, MAX=>6553.5}, 'dpt7.005' => {CODE=>'dpt7', UNIT=>q{s}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.006' => {CODE=>'dpt7', UNIT=>q{min}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.007' => {CODE=>'dpt7', UNIT=>q{h}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.011' => {CODE=>'dpt7', UNIT=>q{mm}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.012' => {CODE=>'dpt7', UNIT=>q{mA}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.013' => {CODE=>'dpt7', UNIT=>q{lux}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>65535}, 'dpt7.600' => {CODE=>'dpt7', UNIT=>q{K}, PATTERN=>qr/[+]?\d{1,5}/xms, MIN=>0, MAX=>12000}, # Farbtemperatur # 2-Octet signed Value 'dpt8' => {CODE=>'dpt8', UNIT=>q{}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767, DEC=>\&dec_dpt8,ENC=>\&enc_dpt8,}, 'dpt8.001' => {CODE=>'dpt8', UNIT=>q{p}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.002' => {CODE=>'dpt8', UNIT=>q{ms}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.003' => {CODE=>'dpt8', UNIT=>q{s}, PATTERN=>qr/[+-]?\d{1,3}([.]\d+)?/xms, FACTOR=>0.01, MIN=>-327.68, MAX=>327.67}, 'dpt8.004' => {CODE=>'dpt8', UNIT=>q{s}, PATTERN=>qr/[+-]?\d{1,4}([.]\d+)?/xms, FACTOR=>0.1, MIN=>-3276.8, MAX=>3276.7}, 'dpt8.005' => {CODE=>'dpt8', UNIT=>q{s}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.006' => {CODE=>'dpt8', UNIT=>q{min}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.007' => {CODE=>'dpt8', UNIT=>q{h}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.010' => {CODE=>'dpt8', UNIT=>q{%}, PATTERN=>qr/[+-]?\d{1,3}([.]\d+)?/ixms, FACTOR=>0.01, MIN=>-327.68, MAX=>327.67}, # min/max 'dpt8.011' => {CODE=>'dpt8', UNIT=>q{°}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, 'dpt8.012' => {CODE=>'dpt8', UNIT=>q{m}, PATTERN=>qr/[+-]?\d{1,5}/xms, MIN=>-32768, MAX=>32767}, # 2-Octet Float value 'dpt9' => {CODE=>'dpt9', UNIT=>q{}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28, DEC=>\&dec_dpt9,ENC=>\&enc_dpt9,}, 'dpt9.001' => {CODE=>'dpt9', UNIT=>q{°C}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-273.15, MAX=>670433.28}, 'dpt9.002' => {CODE=>'dpt9', UNIT=>q{K}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.003' => {CODE=>'dpt9', UNIT=>q{K/h}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.004' => {CODE=>'dpt9', UNIT=>q{lux}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.005' => {CODE=>'dpt9', UNIT=>q{m/s}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.006' => {CODE=>'dpt9', UNIT=>q{Pa}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.007' => {CODE=>'dpt9', UNIT=>q{%}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.008' => {CODE=>'dpt9', UNIT=>q{ppm}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.009' => {CODE=>'dpt9', UNIT=>q{m³/h}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.010' => {CODE=>'dpt9', UNIT=>q{s}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.011' => {CODE=>'dpt9', UNIT=>q{ms}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.020' => {CODE=>'dpt9', UNIT=>q{mV}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.021' => {CODE=>'dpt9', UNIT=>q{mA}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.022' => {CODE=>'dpt9', UNIT=>q{W/m²}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.023' => {CODE=>'dpt9', UNIT=>q{K/%}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.024' => {CODE=>'dpt9', UNIT=>q{kW}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.025' => {CODE=>'dpt9', UNIT=>q{l/h}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.026' => {CODE=>'dpt9', UNIT=>q{l/m²}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-671088.64, MAX=>670433.28}, 'dpt9.027' => {CODE=>'dpt9', UNIT=>q{°F}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>-459.6, MAX=>670433.28}, 'dpt9.028' => {CODE=>'dpt9', UNIT=>q{km/h}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, 'dpt9.029' => {CODE=>'dpt9', UNIT=>q{g/m³}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, # Abs. Luftfeuchte 'dpt9.030' => {CODE=>'dpt9', UNIT=>q{µg/m³}, PATTERN=>qr/[-+]?(?:\d*[.])?\d+/xms, MIN=>0, MAX=>670433.28}, # Dichte # Time of Day 'dpt10' => {CODE=>'dpt10', UNIT=>q{}, PATTERN=>qr/($PAT_TIME|now)/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dpt10,ENC=>\&enc_dpt10,}, 'dpt10.001' => {CODE=>'dpt10', UNIT=>q{}, PATTERN=>qr/($PAT_TIME|now)/ixms, MIN=>undef, MAX=>undef}, # Date 'dpt11' => {CODE=>'dpt11', UNIT=>q{}, PATTERN=>qr/($PAT_DATE11|now)/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dpt11,ENC=>\&enc_dpt11,}, # year range 1990-2089 ! 'dpt11.001' => {CODE=>'dpt11', UNIT=>q{}, PATTERN=>qr/($PAT_DATE11|now)/ixms, MIN=>undef, MAX=>undef}, # 4-Octet unsigned value 'dpt12' => {CODE=>'dpt12', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,10}/xms, MIN=>0, MAX=>4294967295, DEC=>\&dec_dpt12,ENC=>\&enc_dpt12,}, 'dpt12.001' => {CODE=>'dpt12', UNIT=>q{p}, PATTERN=>qr/[+]?\d{1,10}/xms, MIN=>0, MAX=>4294967295}, 'dpt12.100' => {CODE=>'dpt12', UNIT=>q{s}, PATTERN=>qr/[+]?\d{1,10}/xms, MIN=>0, MAX=>4294967295}, 'dpt12.101' => {CODE=>'dpt12', UNIT=>q{min}, PATTERN=>qr/[+]?\d{1,10}/xms, MIN=>0, MAX=>4294967295}, 'dpt12.102' => {CODE=>'dpt12', UNIT=>q{h}, PATTERN=>qr/[+]?\d{1,10}/xms, MIN=>0, MAX=>4294967295}, # 4-Octet Signed Value 'dpt13' => {CODE=>'dpt13', UNIT=>q{}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647, DEC=>\&dec_dpt13,ENC=>\&enc_dpt13,}, 'dpt13.001' => {CODE=>'dpt13', UNIT=>q{p}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.002' => {CODE=>'dpt13', UNIT=>q{m³/h}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.010' => {CODE=>'dpt13', UNIT=>q{Wh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.011' => {CODE=>'dpt13', UNIT=>q{VAh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.012' => {CODE=>'dpt13', UNIT=>q{VARh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.013' => {CODE=>'dpt13', UNIT=>q{kWh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.014' => {CODE=>'dpt13', UNIT=>q{kVAh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.015' => {CODE=>'dpt13', UNIT=>q{kVARh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.016' => {CODE=>'dpt13', UNIT=>q{MWh}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, 'dpt13.100' => {CODE=>'dpt13', UNIT=>q{s}, PATTERN=>qr/[+-]?\d{1,10}/xms, MIN=>-2147483648, MAX=>2147483647}, # 4-Octet single precision float 'dpt14' => {CODE=>'dpt14', UNIT=>q{}, PATTERN=>qr/[+-]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38, DEC=>\&dec_dpt14,ENC=>\&enc_dpt14,}, 'dpt14.000' => {CODE=>'dpt14', UNIT=>q{m/s²}, PATTERN=>qr/[+-]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # acceleration superscr - = alt8315 'dpt14.001' => {CODE=>'dpt14', UNIT=>q{rad/s²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # acceleration angular 'dpt14.002' => {CODE=>'dpt14', UNIT=>q{J/mol}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # activation energy 'dpt14.003' => {CODE=>'dpt14', UNIT=>q{1/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # activity (radioactive) 'dpt14.004' => {CODE=>'dpt14', UNIT=>q{mol}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # amount of substance 'dpt14.005' => {CODE=>'dpt14', UNIT=>q{ }, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Amplitude 'dpt14.006' => {CODE=>'dpt14', UNIT=>q{rad}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # angle, radiant 'dpt14.007' => {CODE=>'dpt14', UNIT=>q{°}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # angle, degree 'dpt14.008' => {CODE=>'dpt14', UNIT=>q{Js}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Angular Momentum 'dpt14.009' => {CODE=>'dpt14', UNIT=>q{rad/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Angular velocity 'dpt14.010' => {CODE=>'dpt14', UNIT=>q{m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # area 'dpt14.011' => {CODE=>'dpt14', UNIT=>q{F}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # capacitance 'dpt14.012' => {CODE=>'dpt14', UNIT=>q{C/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # charge density surface 'dpt14.013' => {CODE=>'dpt14', UNIT=>q{C/m³}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # charge density volume 'dpt14.014' => {CODE=>'dpt14', UNIT=>q{m²/N}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # compressibility 'dpt14.015' => {CODE=>'dpt14', UNIT=>q{S}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # conductance 1/Ohm 'dpt14.016' => {CODE=>'dpt14', UNIT=>q{S/m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electrical conductivity 'dpt14.017' => {CODE=>'dpt14', UNIT=>q{kg/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # density 'dpt14.018' => {CODE=>'dpt14', UNIT=>q{C}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric charge 'dpt14.019' => {CODE=>'dpt14', UNIT=>q{A}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric current 'dpt14.020' => {CODE=>'dpt14', UNIT=>q{A/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric current density 'dpt14.021' => {CODE=>'dpt14', UNIT=>q{Cm}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric dipole moment 'dpt14.022' => {CODE=>'dpt14', UNIT=>q{C/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric displacement 'dpt14.023' => {CODE=>'dpt14', UNIT=>q{V/m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric field strength 'dpt14.024' => {CODE=>'dpt14', UNIT=>q{c}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric flux 'dpt14.025' => {CODE=>'dpt14', UNIT=>q{C/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric flux density 'dpt14.016' => {CODE=>'dpt14', UNIT=>q{C/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric polarization 'dpt14.027' => {CODE=>'dpt14', UNIT=>q{V}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric potential 'dpt14.028' => {CODE=>'dpt14', UNIT=>q{V}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electric potential difference 'dpt14.029' => {CODE=>'dpt14', UNIT=>q{A/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electromagnetive moment 'dpt14.030' => {CODE=>'dpt14', UNIT=>q{V}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # electromotive force 'dpt14.031' => {CODE=>'dpt14', UNIT=>q{J}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # energy 'dpt14.032' => {CODE=>'dpt14', UNIT=>q{N}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # force 'dpt14.033' => {CODE=>'dpt14', UNIT=>q{Hz}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # frequency 'dpt14.034' => {CODE=>'dpt14', UNIT=>q{rad/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # frequency, angular 'dpt14.035' => {CODE=>'dpt14', UNIT=>q{J/K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # heat capacity 'dpt14.036' => {CODE=>'dpt14', UNIT=>q{W}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # heat flow rate 'dpt14.037' => {CODE=>'dpt14', UNIT=>q{J}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # heat quantity 'dpt14.038' => {CODE=>'dpt14', UNIT=>qq{\xCE\xA9}, ## no critic (ValuesAndExpressions::ProhibitEscapedCharacters) PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Impedance OHM 'dpt14.039' => {CODE=>'dpt14', UNIT=>q{m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # length 'dpt14.040' => {CODE=>'dpt14', UNIT=>q{J}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # light quantity 'dpt14.041' => {CODE=>'dpt14', UNIT=>q{cd/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # luminance 'dpt14.042' => {CODE=>'dpt14', UNIT=>q{lm}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # luminous flux 'dpt14.043' => {CODE=>'dpt14', UNIT=>q{cd}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # luminous intensity 'dpt14.044' => {CODE=>'dpt14', UNIT=>q{A/m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetic field strenght 'dpt14.045' => {CODE=>'dpt14', UNIT=>q{Wb}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetic flux 'dpt14.046' => {CODE=>'dpt14', UNIT=>q{T}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetic flux density 'dpt14.047' => {CODE=>'dpt14', UNIT=>q{A/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetic moment 'dpt14.048' => {CODE=>'dpt14', UNIT=>q{T}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetic polarisation 'dpt14.049' => {CODE=>'dpt14', UNIT=>q{A/m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magnetization 'dpt14.050' => {CODE=>'dpt14', UNIT=>q{A}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # magneto motive force 'dpt14.051' => {CODE=>'dpt14', UNIT=>q{kg}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # mass 'dpt14.052' => {CODE=>'dpt14', UNIT=>q{kg/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # mass flux 'dpt14.053' => {CODE=>'dpt14', UNIT=>q{N/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # momentum 'dpt14.054' => {CODE=>'dpt14', UNIT=>q{rad}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # phase angle, radiant 'dpt14.055' => {CODE=>'dpt14', UNIT=>q{°}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # phase angle, degrees 'dpt14.056' => {CODE=>'dpt14', UNIT=>q{W}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # power 'dpt14.057' => {CODE=>'dpt14', UNIT=>q{cosφ}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # power factor 'dpt14.058' => {CODE=>'dpt14', UNIT=>q{Pa}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # pressure 'dpt14.059' => {CODE=>'dpt14', UNIT=>qq{\xCE\xA9}, ## no critic (ValuesAndExpressions::ProhibitEscapedCharacters) PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Reactance OHM 'dpt14.060' => {CODE=>'dpt14', UNIT=>qq{\xCE\xA9}, ## no critic (ValuesAndExpressions::ProhibitEscapedCharacters) PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # Resistance OHM 'dpt14.061' => {CODE=>'dpt14', UNIT=>q{kg}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # mass 'dpt14.062' => {CODE=>'dpt14', UNIT=>q{H}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # self inductance 'dpt14.063' => {CODE=>'dpt14', UNIT=>q{sr}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # solid angle 'dpt14.064' => {CODE=>'dpt14', UNIT=>q{W/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # sound intensity 'dpt14.065' => {CODE=>'dpt14', UNIT=>q{m/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # speed 'dpt14.066' => {CODE=>'dpt14', UNIT=>q{N/m²}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # stress 'dpt14.067' => {CODE=>'dpt14', UNIT=>q{N/m}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # surface tension 'dpt14.068' => {CODE=>'dpt14', UNIT=>q{°C}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # temperature, common 'dpt14.069' => {CODE=>'dpt14', UNIT=>q{K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # temperature (absolute) 'dpt14.070' => {CODE=>'dpt14', UNIT=>q{K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # temperature difference 'dpt14.071' => {CODE=>'dpt14', UNIT=>q{J/K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # thermal capacity 'dpt14.072' => {CODE=>'dpt14', UNIT=>q{1/K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # thermal conductivity 'dpt14.073' => {CODE=>'dpt14', UNIT=>q{V/K}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # thermoelectric power 'dpt14.074' => {CODE=>'dpt14', UNIT=>q{s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # time 'dpt14.075' => {CODE=>'dpt14', UNIT=>q{Nm}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # torque 'dpt14.076' => {CODE=>'dpt14', UNIT=>q{m³}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # volume 'dpt14.077' => {CODE=>'dpt14', UNIT=>q{m³/s}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # volume flow 'dpt14.078' => {CODE=>'dpt14', UNIT=>q{N}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # weight 'dpt14.079' => {CODE=>'dpt14', UNIT=>q{J}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # work 'dpt14.080' => {CODE=>'dpt14', UNIT=>q{VA}, PATTERN=>qr/[-+]?(?:\d+(?:[.]\d*)?(?:e[+-]?\d+)?)/xms, MIN=>-3.4e38, MAX=>3.4e38}, # apparent power # Access data - receive only 'dpt15' => {CODE=>'dpt15', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset', DEC=>\&dec_dpt15,}, 'dpt15.000' => {CODE=>'dpt15', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset',}, # 14-Octet String 'dpt16' => {CODE=>'dpt16', UNIT=>q{}, PATTERN=>qr/[[:ascii:]]{1,}/ixms, MIN=>undef, MAX=>undef, SETLIST=>'multiple,>CLR<', DEC=>\&dec_dpt16,ENC=>\&enc_dpt16,}, 'dpt16.000' => {CODE=>'dpt16', UNIT=>q{}, PATTERN=>qr/[[:ascii:]]{1,}/ixms, MIN=>undef, MAX=>undef, SETLIST=>'multiple,>CLR<'}, 'dpt16.001' => {CODE=>'dpt16', UNIT=>q{}, PATTERN=>qr/(?:[[:ascii:]]|[\xC2-\xF4][\x80-\xBF]{1,3}){1,}/ixms, MIN=>undef, MAX=>undef, SETLIST=>'multiple,>CLR<'}, # Scene, 0-63 'dpt17' => {CODE=>'dpt17', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,2}/xms, MIN=>0, MAX=>63, DEC=>\&dec_dpt18,ENC=>\&enc_dpt18,}, 'dpt17.001' => {CODE=>'dpt17', UNIT=>q{}, PATTERN=>qr/[+]?\d{1,2}/xms, MIN=>0, MAX=>63}, # Scene, 1-64 'dpt18' => {CODE=>'dpt18', UNIT=>q{}, PATTERN=>qr/(activate[,\s]|learn[,\s])?[+]?\d{1,2}/xms, OFFSET=>1, MIN=>1, MAX=>64, DEC=>\&dec_dpt18,ENC=>\&enc_dpt18,}, 'dpt18.001' => {CODE=>'dpt18', UNIT=>q{}, PATTERN=>qr/(activate[,\s]|learn[,\s])?[+]?\d{1,2}/xms, OFFSET=>1, MIN=>1, MAX=>64, SETLIST=>'widgetList,3,select,activate,learn,1,textField'}, #date and time 'dpt19' => {CODE=>'dpt19', UNIT=>q{}, PATTERN=>qr/($PAT_DATE19[_]$PAT_TIME|now)/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dpt19,ENC=>\&enc_dpt19,}, 'dpt19.001' => {CODE=>'dpt19', UNIT=>q{}, PATTERN=>qr/($PAT_DATE19[_]$PAT_TIME|now)/ixms, MIN=>undef, MAX=>undef}, # 1 Byte HVAC mode, Windspeed (Bf), Cloudstate 'dpt20' => {CODE=>'dpt20', UNIT=>q{}, PATTERN=>qr/(auto|comfort|standby|(economy|night)|(protection|frost|heat))/ixms, ## no critic (RegularExpressions::ProhibitComplexRegexes) MIN=>undef, MAX=>undef, SETLIST=>'Auto,Comfort,Standby,Economy,Protection', DEC=>\&dec_dpt20,ENC=>\&enc_dpt20,}, 'dpt20.014' => {CODE=>'dpt20', UNIT=>q{}, PATTERN=>qr/(calm|light_air|(light|gentle|moderate|fresh|strong)_breeze|(near|fresh|strong)_gale|storm|violent_storm|hurricane)/ixms, ## no critic (RegularExpressions::ProhibitComplexRegexes) MIN=>0, MAX=>12, SETLIST=>'calm,light_air,light_breeze,gentle_breeze,moderate_breeze,fresh_breeze,strong_breeze,near_gale,fresh_gale,strong_gale,storm,violent_storm,hurricane'}, 'dpt20.021' => {CODE=>'dpt20', UNIT=>q{}, PATTERN=>qr/(cloudless|sunny|sunshiny|lightly_cloudy|scattered_cloudy|cloudy|most_cloudy|most_overcast|overcast|sky_obstructed)/xms, ## no critic (RegularExpressions::ProhibitComplexRegexes) MIN=>0, MAX=>9, SETLIST=>'cloudless,sunny,sunshiny,lightly_cloudy,scattered_cloudy,cloudy,most_cloudy,most_overcast,overcast,sky_obstructed'}, 'dpt20.102' => {CODE=>'dpt20', UNIT=>q{}, PATTERN=>qr/(auto|comfort|standby|(economy|night)|(protection|frost|heat))/ixms, ## no critic (RegularExpressions::ProhibitComplexRegexes) MIN=>undef, MAX=>undef, SETLIST=>'Auto,Comfort,Standby,Economy,Protection'}, # Z8 Status info - receive only 'dpt21' => {CODE=>'dpt21', UNIT=>q{}, PATTERN=>qr/noset/xms,MIN=>0, MAX=>31,SETLIST=>'noset', DEC=>\&dec_dpt21,}, 'dpt21.001' => {CODE=>'dpt21', UNIT=>q{}, PATTERN=>qr/noset/xms,MIN=>0, MAX=>31,SETLIST=>'noset',}, 'dpt21.002' => {CODE=>'dpt21', UNIT=>q{}, PATTERN=>qr/noset/xms,MIN=>0, MAX=>7,SETLIST=>'noset',}, # HVAC mode RHCC Status, 2Byte - receive only!!! 'dpt22' => {CODE=>'dpt22', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset', DEC=>\&dec_dpt22,}, 'dpt22.101' => {CODE=>'dpt22', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset',}, # Version Info - receive only!!! for EBUSD KNX implementation 'dpt217' => {CODE=>'dpt217', UNIT=>q{}, PATTERN=>qr/\d+[.]\d+[.]\d+/xms, MIN=>undef, MAX=>undef, SETLIST=>'noset', DEC=>\&dec_dpt217,}, 'dpt217.001' => {CODE=>'dpt217', UNIT=>q{}, PATTERN=>qr/\d+[.]\d+[.]\d+/xms, MIN=>undef, MAX=>undef, SETLIST=>'noset',}, #Serial number (2byte mfg-code, 4 byte serial) 'dpt221' => {CODE=>'dpt221', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset', DEC=>\&dec_dpt221,}, 'dpt221.001' => {CODE=>'dpt221', UNIT=>q{}, PATTERN=>qr/noset/ixms, MIN=>undef, MAX=>undef, SETLIST=>'noset',}, # Color-Code 'dpt232' => {CODE=>'dpt232', UNIT=>q{}, PATTERN=>qr/[\da-f]{6}/ixms, MIN=>undef, MAX=>undef, SETLIST=>'colorpicker,RGB', DEC=>\&dec_dpt232,ENC=>\&enc_dpt232,}, # RGBW 'dpt251' => {CODE=>'dpt251', UNIT=>q{}, PATTERN=>qr/[\da-f]{8}/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dpt251,ENC=>\&enc_dpt251,}, 'dpt251.600' => {CODE=>'dpt251', UNIT=>q{}, PATTERN=>qr/[\da-f]{8}/ixms, MIN=>undef, MAX=>undef}, # RAW special dptmodel for extreme situations: 2-nn hex digits only - 00 prefix required except for dpt1,2,3 !!! 'dptRAW' => {CODE=>'dptRAW', UNIT=>q{}, PATTERN=>qr/(?:[0-3][\da-f]|00([\da-f]{2}){1,})/ixms, MIN=>undef, MAX=>undef, DEC=>\&dec_dptRAW,ENC=>\&enc_dptRAW,}, ); #Init this device #This declares the interface to fhem ############################# sub main::KNX_Initialize { goto &Initialize; } sub Initialize { my $hash = shift // return; $hash->{Match} = "^$KNXID.*"; $hash->{DefFn} = \&KNX_Define; $hash->{UndefFn} = \&KNX_Undef; $hash->{SetFn} = \&KNX_Set; $hash->{GetFn} = \&KNX_Get; $hash->{StateFn} = \&KNX_State; $hash->{ParseFn} = \&KNX_Parse; $hash->{AttrFn} = \&KNX_Attr; $hash->{DbLog_splitFn} = \&KNX_DbLog_split; $hash->{AttrList} = 'IODev ' . #define IO-Device to communicate with. Deprecated at definition line. 'disable:1 ' . #device disabled 'showtime:0,1 ' . #show event-time instead of value in device overview 'stateRegex:textField-long ' . #modifies state value 'stateCmd:textField-long ' . #modify state value 'readingNmap:textField-long ' . #modify reading names 'putCmd:textField-long ' . #enable FHEM to answer KNX read telegrams 'format ' . #supplies post-string 'KNX_toggle:textField ' . #toggle source : "$readingFnAttributes "; #standard attributes $hash->{noAutocreatedFilelog} = 1; # autocreate devices create no FileLog # $hash->{AutoCreate} = {'KNX_.*' => { ATTR => 'disable:1'} }; #autocreate devices are disabled by default return; } #Define this device ############################# sub KNX_Define { my $hash = shift // return; my $def = shift; my $name = (split(/[\s\t\n]+/xms, $def))[0]; $hash->{NAME} = $name; $hash->{'.SVN'} = $SVNID =~ s/.+[.]pm\s(\S+\s+\S+).+/$1/rxms; ### removal of $MODELERR if ($def =~ /[:]MODEL_NOT_DEFINED/xms) { # replace all instances of MODELERR with dptRAW $hash->{DEF} =~ s/[:]MODEL_NOT_DEFINED/:dptRAW/gxms; KNX_Log ($name, 2, q{replaced all instances of 'MODEL_NOT_DEFINED' with 'dptRAW', pls. save config!}); } my @a = split(/[\s\t\n]+/xms, $hash->{DEF}); #enable newline within define with \ if (scalar(@a) < 1 || $a[0] !~ m/^(?:$PAT_GAD|$PAT_GADHEX)[:]$PAT_DPT/ixms) { # at least the first gad must be valid ### return (q{KNX_define: wrong syntax or wrong group-format (0-31/0-7/0-255)} . qq{\n "define $name } . q{KNX [:set|get|listenonly][:nosuffix] } . q{[[:set|get|listenonly][:nosuffix]]"}); } return InternalTimer(Time::HiRes::time() + 3.0,\&KNX_Define2,$hash) if (! $init_done); return KNX_Define2($hash); } ### continue define after init complete sub KNX_Define2 { my $hash = shift // return; my $name = $hash->{NAME}; my @a = split(/[\s\t\n]+/xms, $hash->{DEF}); RemoveInternalTimer($hash); # Add pulldown for attr IODev my $attrList = $modules{KNX}->{AttrList}; #get Attrlist from Module def my $IODevs = KNX_chkIODev($hash); # get list of valid IO's $attrList =~ s/\bIODev\b([:]\S+)?/IODev:select,$IODevs/xms; $modules{KNX}->{AttrList} = $attrList; AssignIoPort($hash); # AssignIoPort will take device from $attr{$name}{IODev} if defined #reset: delete all defptr entries for this device (defmod & copy problem) KNX_delete_defptr($hash); # verify with: {PrintHash($modules{KNX}->{defptr},3) } $hash->{GADDETAILS} = {}; $hash->{GADTABLE} = {}; #create groups and models, iterate through all possible args my $gadNo = 1; # index to GAD's my @logarr; # sum of logtxt... my $setString = q{}; # placeholder for setstring foreach my $gaddef (@a) { my $gadOption = undef; my $gadNoSuffix = undef; my $gadName = 'g' . $gadNo; # old syntax KNX_Log ($name, 5, qq{gadNr= $gadNo def-string= $gaddef}); my ($gad, $gadModel, @gadArgs) = split(/:/xms, $gaddef); my $gadCode = KNX_name2gadCode($gad); if (! defined($gadCode)) { push(@logarr,qq{GAD not defined or wrong format for group-number $gadNo, specify as 0-31/0-7/0-255}); next; } elsif (defined($hash->{GADTABLE}->{$gadCode})) { push(@logarr,qq{GAD $gad may be supplied only once per device}); next; } if (! defined($gadModel)) { push(@logarr,qq{no dpt-model defined for group-number $gadNo}); next; } elsif (! defined($dpttypes{$gadModel})) { #check model-type push(@logarr,qq{invalid dpt $gadModel for group-number $gadNo, consult commandref - avaliable DPT}); if (AttrNum($name,'disable',0) != 1) {$attr{$name}->{disable} = 1;} next; } elsif ($gadNo == 1) { # gadModel ok - use first gad as mdl reference for fheminfo $hash->{model} = $dpttypes{$gadModel}->{CODE}; # $hash->{model} = $gadModel =~ s/(dpt[^\.]+).*/$1/rxms; # prepare removal of $dpttypes{$model}->{CODE}; } # optional param if (scalar(@gadArgs)) { if ($gadArgs[-1] =~ /$PAT_GAD_SUFFIX/ixms) {$gadNoSuffix = lc(pop(@gadArgs));} if (@gadArgs && $gadArgs[-1] =~ /^($PAT_GAD_OPTIONS)$/ixms) {$gadOption = lc(pop(@gadArgs));} $gadName = shift(@gadArgs) // q{g} . $gadNo; # use first verb } if (scalar(@gadArgs)) { push(@logarr,q{syntax or parameter error in options definition: } . join(q{:},@gadArgs)); } if (($gadName =~ /$PAT_GAD_NONAME/xms) || ($gadName eq q{state} && defined($gadNoSuffix))) { # allow mixed case push(@logarr,qq{forbidden gadName: $gadName - modified to: g} . $gadNo); $gadName = q{g} . $gadNo; } # test for duplicate gadname foreach my $gval (values %{$hash->{GADTABLE}}) { next if ($gval ne $gadName); $gadName .= q{_} . $gadNo; push(@logarr,qq{duplicate gadName: $gval - modified to: $gadName}); $hash->{DEF} =~ s/($gad[:]$gadModel[:])$gval/$1$gadName/xms; # alter def last; } $hash->{GADTABLE}->{$gadCode} = $gadName; #add key and value to GADTABLE # create readingnames my ($rdNameSet, $rdNameGet) = KNX_makeRdNames($hash, $gadName, $gadNo, $gadNoSuffix); #determine dpt-details my $dptDetails = $dpttypes{$gadModel}; my $setlist = q{}; #default - #plain input field my $min = $dptDetails->{MIN}; my $max = $dptDetails->{MAX}; if (defined ($dptDetails->{SETLIST})) { # list is given, pass it through $setlist = q{:} . $dptDetails->{SETLIST}; } elsif (defined ($min) && $gadModel =~ /^(?:dpt5|dpt6)/xms) { # slider $setlist = ':slider,' . $min . q{,1,} . $max; } elsif (defined ($min) && (! Scalar::Util::looks_like_number($min))) { #on/off/... $setlist = q{:} . $min . q{,} . $max; } KNX_Log ($name, 5, qq{define GAD: $gad NAME: $gadName NO: $gadNo HEX: $gadCode DPT: $gadModel} . qq{ RD-NAMES: $rdNameSet $rdNameGet SETLIST: $setlist} ); #add details to hash $hash->{GADDETAILS}->{$gadName} = {CODE => $gadCode, MODEL => $gadModel, NO => $gadNo, OPTION => $gadOption, RDNAMEGET => $rdNameGet, RDNAMESET => $rdNameSet, SETLIST => $setlist}; # add gadcode->hash to module DEFPTR - used to find devicename during parse push (@{$modules{KNX}->{defptr}->{$gadCode}}, $hash); #create setlist for setFn / getlist will be created during get-cmd! if ((! defined($gadOption)) || $gadOption eq 'set') { #no set-command for get or listenonly if (($gadNo == 1) && ($gadModel =~ /^(dpt1|dpt1.001)$/xms)) {$setString .= 'on:noArg off:noArg ';} if (! defined($dptDetails->{SETLIST}) || $dptDetails->{SETLIST} ne 'noset') { $setString .= $gadName . $setlist . q{ }; } } $gadNo++; # increment index } # /foreach KNX_Log ($name, 5, qq{setString= $setString}); $hash->{'.SETSTRING'} = $setString =~ s/\s+$//rxms; # save setstring if (scalar(@logarr)) { my $logtxt = join('',@logarr); if (defined($FW_wname)) {FW_directNotify("FILTER=$name",'#FHEMWEB:' . $FW_wname, qq{FW_okDialog('$logtxt')}, q{});} foreach (@logarr) { KNX_Log ($name, 2, $_); } } return; } #Release this device #Is called at every delete / shutdown ############################# sub KNX_Undef { my $hash = shift; my $name = shift; #delete all defptr entries for this device KNX_delete_defptr($hash); # verify with: {PrintHash($modules{KNX}->{defptr},3) } on FHEM-cmdline return; } #send a "GroupValueRead" Message to the KNX-Bus #The answer is treated as regular telegram ############################# sub KNX_Get { my $hash = shift; my $name = shift; my $gadName = shift // KNX_gadNameByNO($hash,1); # use first defined GAD if no argument is supplied return qq{KNX_Get ($name): gadName not defined} if (! defined($gadName)); if (defined(shift)) { KNX_Log ($name, 3, q{too much arguments. Only one argument allowed (gadName). Other Arguments are discarded.}); } #FHEM asks with a ? at startup - no action, no log - if dev is disabled: no SET/GET pulldown ! if ($gadName =~ m/[?]/xms) { my $getter = q{}; foreach my $key (keys %{$hash->{GADDETAILS}}) { last if (! defined($key)); my $option = $hash->{GADDETAILS}->{$key}->{OPTION}; next if (defined($option) && $option =~ /(?:set|listenonly)/xms); $getter .= $key . ':noArg '; } $getter =~ s/\s+$//xms; #trim trailing blank if (IsDisabled($name) == 1) {$getter = q{};} return qq{unknown argument $gadName choose one of $getter}; } return qq{get cmd ($name) not allowed during fhem-start} if (! $init_done); return qq{KNX_Get ($name): is disabled} if (IsDisabled($name) == 1); #return, if unknown group return qq{KNX_Get ($name): invalid gadName: $gadName} if(! exists($hash->{GADDETAILS}->{$gadName})); #get groupCode, groupAddress, option my $groupc = $hash->{GADDETAILS}->{$gadName}->{CODE}; my $group = KNX_hex2Name($groupc); my $option = $hash->{GADDETAILS}->{$gadName}->{OPTION}; #exit if get is prohibited if (defined ($option) && ($option =~ m/(?:set|listenonly)/xms)) { return qq{KNX_Get ($name): did not request a value - "set" or "listenonly" option is defined.}; } KNX_Log ($name, 5, qq{request value for GAD: $group GAD-NAME: $gadName}); delete $hash->{GADDETAILS}->{$gadName}->{noreplyflag}; # allow events for groupValueResponse when triggerd by fhem 9/2023 IOWrite($hash, $KNXID, 'r' . $groupc); #send read-request to the bus if (defined($FW_wname)) { FW_directNotify("FILTER=$name",'#FHEMWEB:' . $FW_wname, 'FW_errmsg(" value for ' . $name . ' - ' . $group . ' requested",5000)', q{}); } return; } #send a "GroupValueWrite" to bus ############################# sub KNX_Set { my ($hash, $name, $targetGadName, @arg) = @_; return qq{$name no parameter(s) specified for set cmd} if((!defined($targetGadName)) || ($targetGadName eq q{})); #return, if no cmd specified #FHEM asks with a "?" at startup or any reload of the device-detail-view - if dev is disabled: no SET/GET pulldown ! if ($targetGadName eq q{?}) { my $setter = exists($hash->{'.SETSTRING'})?$hash->{'.SETSTRING'}:q{}; if (IsDisabled($name) == 1) {$setter = q{};} return qq{unknown argument $targetGadName choose one of $setter}; } return qq{set $name - not allowed during fhem-start} if (! $init_done); return qq{$name is disabled} if (IsDisabled($name) == 1); $targetGadName =~ s/^\s+|\s+$//gxms; # gad-name or cmd (in old syntax) my $cmd = undef; if (exists ($hash->{GADDETAILS}->{$targetGadName})) { #new syntax, if first arg is a valid gadName $cmd = shift(@arg); #shift args as with newsyntax $arg[0] is cmd return qq{set $name $targetGadName - cmd missing} if(!defined($cmd)); } else { # process old syntax targetGadName contains command! (my $err, $targetGadName, $cmd, @arg) = KNX_Set_oldsyntax($hash,$targetGadName,@arg); return qq{set $name - $err} if defined($err); } KNX_Log ($name, 4, qq{gadName: $targetGadName , command: $cmd , args: } . join (q{ }, @arg)); #get details my $groupCode = $hash->{GADDETAILS}->{$targetGadName}->{CODE}; my $option = $hash->{GADDETAILS}->{$targetGadName}->{OPTION}; my $rdName = $hash->{GADDETAILS}->{$targetGadName}->{RDNAMESET}; my $model = $hash->{GADDETAILS}->{$targetGadName}->{MODEL}; if (defined ($option) && ($option =~ m/(?:get|listenonly)/xms)) { # return $name . q{ set cmd rejected - "get" or "listenonly" option is defined.}; return qq{set $name $targetGadName $cmd} . q{ - rejected - "get" or "listenonly" option is defined}; } my $value = $cmd; #process set command with $value as output #Special commands for dpt1 and dpt1.001 if ($model =~ m/^(?:dpt1|dpt1.001)$/xms) { (my $err, $value) = KNX_Set_dpt1($hash, $targetGadName, $cmd, @arg); return $err if defined($err); } #special treatment for dpt 10,16,18 done in KNX_encodeByDpt my $transval = KNX_encodeByDpt($hash, $targetGadName, $value, @arg); #process set command return qq{"set $name $targetGadName $value" failed, see Log-Messages} if (!defined($transval)); # encodeByDpt failed IOWrite($hash, $KNXID, 'w' . $groupCode . $transval); KNX_Log ($name, 5, qq{cmd= $cmd , value= $value , translated= $transval}); # decode again for values that have been changed in encode process if ($model =~ m/^dpt(?:3|10|11|16|18|19)(?:[.][\d]{3})?$/xms) { $value = KNX_decodeByDpt($hash, $targetGadName, $transval); } #apply post processing for state and set all readings KNX_SetReadings($hash, $targetGadName, $value, undef, undef); return; } # Process set command for old syntax # calling param: $hash, $cmd, arg array # returns ($err, targetgadname, $cmd, @arg - array might be modified) sub KNX_Set_oldsyntax { my ($hash, $cmd, @arg) = @_; my $name = $hash->{NAME}; my $na = scalar(@arg); my $targetGadName = undef; #contains gadNames to process my $groupnr = 1; #default group #select another group, if the last arg starts with a g if($na >= 1 && $arg[$na - 1] =~ m/$PAT_GNO/xms) { $groupnr = pop (@arg); KNX_Log ($name, 3, q{you are still using old syntax, pls. change to "set } . qq{$name $groupnr $cmd } . join(q{\s},@arg) . q{"}); $groupnr =~ s/^[g]//ixms; #remove "g" $na--; } # if cmd contains g1: the check for valid gadnames failed ! # this is NOT oldsyntax, but a user-error! if ($cmd =~ /$PAT_GNO/xms) { KNX_Log ($name, 2, qq{an invalid gadName: $cmd or invalid dpt used in set-cmd}); return qq{an invalid gadName: $cmd or invalid dpt used in set-cmd}; } $targetGadName = KNX_gadNameByNO($hash, $groupnr); return qq{gadName not found or invalid dpt used for group $groupnr} if(!defined($targetGadName)); # all of the following cmd's need at least 1 Argument (or more) return (undef, $targetGadName, $cmd) if ($na <= 0); # pass thru -for-timer,-until,blink cmds... return (undef, $targetGadName, $cmd, @arg) if ($cmd =~ m/(?:-till|-until|-till-overnight|-for-timer|$BLINK)$/ixms); ## prepare for deletion of deprecated cmds my $code = $hash->{GADDETAILS}->{$targetGadName}->{MODEL}; my $value = shift(@arg); my $rtxt = qq{"set $name $cmd $value }; # log text if ($cmd =~ m/$STRING/ixms) { ## no critic (ControlStructures::ProhibitCascadingIfElse) return $rtxt . q{ ..." only allowed for dpt16} if ($code !~ m/^dpt16/ixms); } elsif ($cmd =~ m/$RAW/ixms) { #check for 1-16 hex-digits return $rtxt . q{" has wrong syntax. Use hex-format only.} if ($value !~ m/[\da-f]{1,16}/ixms); } elsif ($cmd =~ m/$VALUE/ixms) { return $rtxt . q{" not allowed for dpt1, dpt16 and dpt232} if ($code =~ m/(dpt1|dpt16|dpt232)(?:[.]\d+)?$/ixms); $value =~ s/,/\./gxms; } elsif ($cmd =~ m/$RGB/ixms) { return $rtxt . q{" only allowed for dpt232} if ($code !~ m/dpt232/ixms); #check for 6 hex-digits return $rtxt . q{" has wrong syntax. Use 6 hex-digits only.} if ($value !~ m/[\da-f]{6}/ixms); } else { KNX_Log ($name, 2, q{invalid cmd: } . $rtxt . join(q{ },@arg) . q{" issued - ignored}); return q{invalid cmd: } . $rtxt . join(q{ },@arg) . q{" issued - ignored}; } KNX_Log ($name, 2, q{This cmd is deprecated since 1/2024: } . $rtxt . join(q{ },@arg) . qq{" - use: "set $name $targetGadName $value } . join(q{ },@arg) . q{"} ); return (undef, $targetGadName, $value, @arg); ## prepare for deletion of deprecated cmds ## my $rtxt = q{invalid cmd: "set } . qq{$name $cmd $value } . join(q{ },@arg) . q{" issued - ignored}; ## KNX_Log ($name, 2, $rtxt); ## return $rtxt; } # process special dpt1, dpt1.001 set # calling: $hash, $targetGadName, $cmd, @arg # return: $err, $value sub KNX_Set_dpt1 { my ($hash, $targetGadName, $cmd, @arg) = @_; my $name = $hash->{NAME}; my $groupCode = $hash->{GADDETAILS}->{$targetGadName}->{CODE}; #delete any running timers if ($hash->{".TIMER_$groupCode"} || IsDevice($name . "_TIMER_$groupCode")) { CommandDelete(undef, $name . "_TIMER_$groupCode"); delete $hash->{".TIMER_$groupCode"}; } my $value = ($cmd =~ m/^(on|1)/ixms)?'on':'off'; my $tvalue = ($value eq 'on')?'off':'on'; $cmd =~ s/[,]*$//xms; # remove empty widget parameters return (undef,$value) if ($cmd =~ m/(?:$PAT_DPT1_PAT)$/ixms); # shortcut #set on-for-timer / off-for-timer my $endTS = undef; if ($cmd =~ m/(?:(on|off)-for-timer)$/ixms) { #get duration return qq{KNX_Set_dpt1 ($name): parameter must be numeric} if (! Scalar::Util::looks_like_number($arg[0])); # subsecond timer duration - set called with only $hash as param if ($arg[0] < 10) { # allow fraction secs when dur < 10sec my $param = {hash=>$hash, gadName=>$targetGadName, cmd=>$tvalue}; InternalTimer(Time::HiRes::time() + $arg[0],\&doKNX_Set,$param); return (undef,$value); } else { $endTS = Time::HiRes::time() + $arg[0]; # allow more than one day ( > 86400) !!! } } #set (on|off)-until / -till elsif ($cmd =~ m/(?:(on|off)-(until|till-overnight|till))$/ixms) { #get end-time my ($err, $hr, $min, $sec, $fn) = GetTimeSpec($arg[0]); # fhem.pl return qq{KNX_Set_dpt1 ($name): $err} if (defined($err)); return qq{KNX_Set_dpt1 ($name): Error trying to parse timespec $arg[0] } if ($hr >= 24); my ($secs,$mins,$hours,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); # default now $endTS = fhemTimeLocal($sec, $min, $hr, $mday, $mon, $year); # today end-time spec if (($cmd =~ /-till$/xms) && (time() >= $endTS)) { # prevent overnight times return qq{KNX_Set_dpt1 ($name): will not execute as end-Time is earlier than now}; } } # process both timer variants if (defined($endTS)) { my $hms_til = ::FmtDateTime($endTS) =~ s/[\s]/T/rxms; # fhem.pl alternativ use full datespec $hash->{".TIMER_$groupCode"} = $hms_til; #create local marker #place at-command for switching on / off CommandDefMod(undef, '-silent ' . $name . qq{_TIMER_$groupCode at $hms_til set $name $targetGadName $tvalue}); return (undef,$value); } return KNX_set_dpt1_sp($hash, $targetGadName, $cmd, @arg); } # process special dpt1, dpt1.001 set blink & toggle # return: $err, $value sub KNX_set_dpt1_sp { my ($hash, $targetGadName, $cmd, @arg) = @_; my $name = $hash->{NAME}; my $groupCode = $hash->{GADDETAILS}->{$targetGadName}->{CODE}; # get current value from reading(s) my $toggleOldVal = undef; my ($tDev, $togglereading) = split(qr/:/xms,AttrVal($name,'KNX_toggle',$name)); if (defined($togglereading)) { # prio1: use Attr. KNX_toggle: format: : if ($tDev eq q{$self}) {$tDev = $name;} ## no critic (Policy::ValuesAndExpressions::RequireInterpolationOfMetachars) $toggleOldVal = ReadingsVal($tDev, $togglereading, undef); # switch off in case of non existent reading } else { $togglereading = $hash->{GADDETAILS}->{$targetGadName}->{RDNAMEGET}; #prio2: use get-reading $toggleOldVal = ReadingsVal($name, $togglereading, undef); } if (! defined($toggleOldVal)) { $togglereading = $hash->{GADDETAILS}->{$targetGadName}->{RDNAMESET}; #prio3: use set-reading $toggleOldVal = ReadingsVal($name, $togglereading, 'dontknow'); } my $value = ($toggleOldVal =~ m/^off/ixms)?'on':'off'; #toggle if ($cmd =~ m/$TOGGLE/ixms) { if ($toggleOldVal !~ /^(?:on|off)/ixms) { KNX_Log ($name, 3, qq{current value for "set $name $targetGadName TOGGLE" is not "on" or "off" - } . qq{$targetGadName will be switched off}); } } #blink - implemented with timer & toggle elsif ($cmd =~ m/$BLINK(?:,(\d+),(\d+))?/ixms) { my $count = defined($1)?$1:$arg[0]; # widgetList my $dur = defined($2)?$2:$arg[1]; $count =~ s/[,]//gxms; # strip any commas $count = $count * 2 - 1; $dur = defined($dur)?$dur:1; if ($count < 1) {$count = 1;} if ($dur < 1) {$dur = 1;} my $duration = sprintf('%02d:%02d:%02d', $dur/3600, ($dur%3600)/60, $dur%60); CommandDefMod(undef, '-temporary ' . $name . "_TIMERBLINK_$groupCode at +*{" . $count ."}$duration set $name $targetGadName toggle"); } #no valid cmd else { KNX_Log ($name, 2, qq{invalid cmd: "set $name $targetGadName $cmd" issued - ignored}); return qq{invalid cmd: "set $name $targetGadName $cmd" issued - ignored}; } return (undef,$value); } ############################# sub KNX_State { return; } #Get the chance to qualify attributes ############################# sub KNX_Attr { my ($cmd,$name,$aName,$aVal) = @_; return KNX_Attr_readingNmap($cmd, $name, $aVal) if ($aName eq q{readingNmap}); my $hash = $defs{$name}; my $value = undef; if ($cmd eq 'set' && $init_done) { # check valid IODev return KNX_chkIODev($hash,$aVal) if ($aName eq 'IODev'); if ($aName eq 'KNX_toggle') { ## no critic (ControlStructures::ProhibitCascadingIfElse) # validate device/reading my ($srcDev,$srcReading) = split(qr/:/xms,$aVal); # format: : if ($srcDev eq q{$self}) {$srcDev = $name;} ## no critic (Policy::ValuesAndExpressions::RequireInterpolationOfMetachars) return 'no valid device for attr: KNX_toggle' if (!IsDevice($srcDev)); if (defined($srcReading)) {$value = ReadingsVal($srcDev,$srcReading,undef);} #test for value return 'no valid device/reading value for attr: KNX_toggle' if (!defined($value) ); } elsif ($aName =~ /(?:stateCmd|putCmd)/xms ) { # test for syntax errors my %specials = ( '%hash' => $hash, '%name' => $name, '%gadName' => $name, '%state' => $name, ); my $err = perlSyntaxCheck($aVal, %specials); # fhem.pl return qq{syntax check failed for $aName: \n $err} if($err); } elsif ($aName eq 'stateRegex') { # test for syntax errors my @aValS = split(/\s+|\//xms,$aVal); foreach (@aValS) { next if ($_ eq q{} ); my $err = main::CheckRegexp($_,'Attr ' . $aName); # fhem.pl return qq{syntax check failed for $aName: \n $err} if (defined($err)); } } elsif ($aName eq 'format') { # deprecated 12/2025 KNX_Log($name, 3, q{Attribute format is deprecated, use stateRegex or stateCmd}); # return q{Attribute format is deprecated, use stateRegex or stateCmd}; } } # /set elsif ($cmd eq 'del') { if ($aName eq 'disable') { my @defentries = split(/[\s\t\n]+/xms,$hash->{DEF}); my $err = grep {!/$PAT_DPT/xms} @defentries; # count defs that dont match return qq{Attribut "disable" cannot be deleted for device $name until you specify a valid dpt!} if ($err != 0); # foreach my $def (@defentries) { # check all entries # next if ($def =~ /$PAT_DPT/xms); # return qq{Attribut "disable" cannot be deleted for device $name until you specify a valid dpt!}; # } delete $hash->{RAWMSG}; # debug internal } } return; } ### special Handling Attr readingNmap ############################# sub KNX_Attr_readingNmap { my ($cmd, $name, $aVal) = @_; if(ref($cmd) eq 'HASH') { # called from timer ($cmd, $name, $aVal) = ($cmd->{cmd}, $cmd->{name}, $cmd->{aVal}); } my $hash = $defs{$name}; if ($cmd eq 'set' ) { if (! $init_done) { #postpone attr def my $param = {cmd=>$cmd, name=>$name, aVal=>$aVal}; InternalTimer(Time::HiRes::time() + 3, \&KNX_Attr_readingNmap, $param); return; } my @aValS = split(/\s+|\//xms,$aVal); delete $hash->{Helper}->{RDNAMEMAP}; foreach my $pairs (@aValS) { my ($gadName, $newrdName) = split(/[:]/xms,$pairs); if (! (defined($gadName) && (exists( $hash->{GADDETAILS}->{$gadName})))) { return qq{invalid first parameter $gadName, use a valid }; } next if (! defined($newrdName)); #delete affected readings ::readingsDelete($hash, $hash->{GADDETAILS}->{$gadName}->{RDNAMESET}); # fhem.pl ::readingsDelete($hash, $hash->{GADDETAILS}->{$gadName}->{RDNAMEGET}); # fhem.pl $hash->{Helper}->{RDNAMEMAP}->{$gadName} = $newrdName; } } elsif ($cmd eq 'del') { # delete mapped readings foreach my $gadName (keys %{$hash->{Helper}->{RDNAMEMAP}}) { ::readingsDelete($hash, $hash->{GADDETAILS}->{$gadName}->{RDNAMESET}); # fhem.pl ::readingsDelete($hash, $hash->{GADDETAILS}->{$gadName}->{RDNAMEGET}); # fhem.pl } delete $hash->{Helper}->{RDNAMEMAP}; } CommandDefMod(undef, '-silent ' . $name . ' KNX ' . $hash->{DEF}); return; } #Split reading for DBLOG ############################# sub KNX_DbLog_split { my $event = shift; my $device = shift; my $reading = q{state}; # default my $unit = q{}; # default my $dpt16flag = 0; # is it a dpt16 ? # split event into pieces $event =~ s/^\s?//xms; # remove leading blank if any my @strings = split (/[\s]+/xms, $event); if ($strings[0] =~ /.+[:]$/xms) { $reading = shift(@strings); $reading =~ s/[:]$//xms; } if (! defined($strings[0])) {$strings[0] = q{};} #numeric value? and last value non numeric? - assume unit - except for dpt16 my $devhash = $defs{$device}; foreach my $key (keys %{$devhash->{GADDETAILS}}) { next if ($devhash->{GADDETAILS}->{$key}->{MODEL} !~ /^dpt16/xms); if ($reading =~ /state|$devhash->{GADDETAILS}->{$key}->{RDNAMESET}|$devhash->{GADDETAILS}->{$key}->{RDNAMEGET}/xms) { $dpt16flag = 1; last; } } if (($dpt16flag == 0) && Scalar::Util::looks_like_number($strings[0]) && (! Scalar::Util::looks_like_number($strings[scalar(@strings)-1]))) { $unit = pop(@strings); } my $value = join(q{ },@strings); KNX_Log ($device, 5, qq{EVENT= $event READING= $reading VALUE= $value UNIT= $unit}); return ($reading, $value, $unit); } #Handle incoming messages ############################# sub KNX_Parse { my $iohash = shift; # this is IO-Device hash ! my $msg = shift; my $ioName = $iohash->{NAME}; return q{} if ((IsDisabled($ioName) == 1) || IsDummy($ioName)); # IO - device is disabled or dummy #friendly reminder to migrate to KNXIO.....only once after def or fhem-start! if (!exists($iohash->{INFO}) && ($iohash->{TYPE} =~ /^(?:TUL|KNXTUL)/xms) ) { $iohash->{INFO} = qq{consider migrating $ioName to KNXIO Module}; # set flag KNX_Log ($ioName, 2, q{INFO: } . $iohash->{INFO}); } #Msg format: C[wrp] i.e. Cw00000101 my ($src,$cmd,$gadCode,$val) = $msg =~ m/^$KNXID([\da-f]{5})([prw])([\da-f]{5})([\da-f]+)$/ixms; my @foundMsgs; KNX_Log ($ioName, 4, q{src=} . KNX_hex2Name($src,1) . q{ dest=} . KNX_hex2Name($gadCode) . qq{ msg=$msg}); #gad not defined yet, give feedback for autocreate return KNX_autoCreate($iohash,$gadCode) if (! (exists $modules{KNX}->{defptr}->{$gadCode})); #get list from device-hashes using given gadCode (==destination) # check on cmd line with: {PrintHash($modules{KNX}->{defptr},3) } my @deviceList = @{$modules{KNX}->{defptr}->{$gadCode}}; #process message for all affected devices and gad's foreach my $deviceHash (@deviceList) { #get details my $deviceName = $deviceHash->{NAME}; my $gadName = $deviceHash->{GADTABLE}->{$gadCode}; if (IsDevice($deviceName)) { push(@foundMsgs, $deviceName);} # save to list even if dev is disabled - dev must exist! if (IsDisabled($deviceName) == 1) { $deviceHash->{RAWMSG} = qq{gadName=$gadName cmd=$cmd, hexvalue=$val}; # for debugging next; } =begin comment # ignore input from "wrong" IO-dev if ($deviceHash->{IODev} ne $iohash) { # if (AttrVal($deviceName,'IODev',$ioName) ne $ioName) { KNX_Log ($deviceName, 2, qq{msg for gad-name: $gadName from wrong IO-device: $ioName - ignored}); next; } =end comment =cut my $getName = $deviceHash->{GADDETAILS}->{$gadName}->{RDNAMEGET}; KNX_Log ($deviceName, 4, qq{process ioName=$ioName gadName=$gadName cmd=$cmd readingName=$getName value=$val}); my $trigger = 1; # default create events =begin comment #GroupValueResponse messages when not triggered by read from fhem # special experiment for Amenophis86 if ($cmd =~ /[p]/ixms && exists($deviceHash->{GADDETAILS}->{$gadName}->{noreplyflag}; if (Time::HiRes:time() > $deviceHash->{GADDETAILS}->{$gadName}->{noreplyflag}) { delete $deviceHash->{GADDETAILS}->{$gadName}->{noreplyflag}; } else { KNX_Log ($deviceName, 4, qq{reply msg for $deviceName $gadName will not trigger events}); # next; # ignore msg completly $trigger = 0; } } =end comment =cut #handle GroupValueWrite and GroupValueResponse messages if ($cmd =~ /[w|p]/ixms) { #decode message my $transval = KNX_decodeByDpt ($deviceHash, $gadName, $val); #message invalid if (! defined($transval)) { KNX_Log ($deviceName, 2, qq{readingName=$getName message=$msg could not be decoded}); next; } KNX_Log ($deviceName, 4, qq{readingName=$getName readingValue=$transval}); #apply post processing for state and set all readings KNX_SetReadings($deviceHash, $gadName, $transval, $src, $trigger); } #handle GroupValueRead messages elsif ($cmd =~ /[r]/ixms) { my $cmdAttr = AttrVal($deviceName, 'putCmd', undef); next if (! defined($cmdAttr) || $cmdAttr eq q{}); =begin comment ## special experiment for Amenophis86 if ($cmdAttr eq 'noReply') { if ($iohash->{PhyAddr} eq KNX_hex2Name($src,1)) { # match src-address with phy of IOdev # from fhem - delete ignore reply flag delete $deviceHash->{GADDETAILS}->{$gadName}->{noreplyflag}; # allow when sent from fhem } else { KNX_Log ($deviceName, 4, q{read msg from } . KNX_hex2Name($src,1) . qq{ for $deviceName $gadName IODev= $iohash->{PhyAddr}}); $deviceHash->{GADDETAILS}->{$gadName}->{noreplyflag} = Time::HiRes::time() + 2; } next; # cannot use putCmd ! } =end comment =cut # generate my $putName = $getName =~ s/get/put/irxms; $putName .= ($putName eq $getName)?q{-put}:q{}; # nosuffix my $value = ReadingsVal($deviceName, 'state', q{}); #default $value = KNX_eval ($deviceHash, $gadName, $value, $cmdAttr); if (! defined($value)) { KNX_Log ($deviceName, 4, qq{putCmd no reply sent for gadName=$gadName}); next; } elsif ($value eq q{} || $value eq q{ERROR}) { KNX_Log ($deviceName, 2, qq{putCmd eval error gadName=$gadName - no reply sent!}); next; } KNX_Log ($deviceName, 5, qq{replaced by Attr putCmd=$cmdAttr VALUE=$value}); #send transval my $transval = KNX_encodeByDpt($deviceHash, $gadName, $value); if (defined($transval)) { KNX_Log ($deviceName, 4, qq{putCmd send answer: readingName=$putName value=$value sendvalue=$transval}); readingsSingleUpdate($deviceHash, $putName, $value,0); IOWrite ($deviceHash, $KNXID, 'p' . $gadCode . $transval); } else { KNX_Log ($deviceName, 2, qq{putCmd encoding failed for gadName=$gadName - value=$value}); } } #/process message } return @foundMsgs; } ########## begin of private functions ########## ### KNX_autoCreate # check wether we have to do autocreate... # on entry: $iohash, $gadcode # on exit: return string for autocreate sub KNX_autoCreate { my $iohash = shift; my $gadCode = shift; my $gad = KNX_hex2Name($gadCode); my $newDevName = KNX_hex2Name($gadCode,2); #format gad for autocreate # check if any autocreate device has ignoretype "KNX..." set my @acList = devspec2array('TYPE=autocreate'); foreach my $acdev (@acList) { next if (! defined($defs{$acdev})); my $igntypes = AttrVal($acdev,'ignoreTypes',q{}); return q{} if($newDevName =~ /$igntypes/xms); } return qq{UNDEFINED $newDevName KNX $gad} . q{:dptRAW}; } ### KNX_SetReadings is called from KNX_Set and KNX_Parse # calling param: $hash, $gadName, $value, caller (set/parse), trigger (event yes/no) sub KNX_SetReadings { my $hash = shift; my $gadName = shift; my $value = shift; my $src = shift // q{fhem}; # undef when called from set my $trigger = shift // 1; # trigger if undef my $name = $hash->{NAME}; #append post-string, if supplied: format attr overrides supplied unit! my $model = $hash->{GADDETAILS}->{$gadName}->{MODEL}; my $unit = $dpttypes{$model}->{UNIT}; my $suffix = AttrVal($name, 'format', q{}); if ($suffix ne q{}) { $value .= q{ } . $suffix; KNX_Log($name, 3, q{Attr format is deprecated and will be removed in the future, use stateCmd or stateRegex}); } elsif (defined ($unit) && ($unit ne q{})) { $value .= q{ } . $unit; } my $lsvalue = q{fhem}; # called from set my $rdName = $hash->{GADDETAILS}->{$gadName}->{RDNAMESET}; if ($src ne q{fhem}) { # called from parse $lsvalue = KNX_hex2Name($src,1); $rdName = $hash->{GADDETAILS}->{$gadName}->{RDNAMEGET}; } #execute stateRegex my $state = KNX_replaceByRegex ($hash, $rdName, $value); readingsBeginUpdate($hash); readingsBulkUpdate($hash, 'last-sender', $lsvalue); readingsBulkUpdate($hash, $rdName, $value); if (defined($state)) { #execute state-command if defined #must be placed after first reading, because it may have a reference my $cmdAttr = AttrVal($name, 'stateCmd', undef); if ((defined($cmdAttr)) && ($cmdAttr ne q{})) { my $newstate = KNX_eval ($hash, $gadName, $state, $cmdAttr); if (defined($newstate) && ($newstate ne q{}) && ($newstate !~ m/ERROR/ixms)) { $state = $newstate; KNX_Log ($name, 5, qq{state replaced via stateCmd $cmdAttr - state: $state}); } else { KNX_Log ($name, 3, qq{GAD $gadName , error during stateCmd processing}); } } readingsBulkUpdate($hash, 'state', $state); } readingsEndUpdate($hash, $trigger); return; } ### prepare args for KNX_set # called from InternalTimer - on/off-for-timer sub doKNX_Set { my @param = @_; my ($hash, $gadName, $cmd) = ($param[0]->{hash}, $param[0]->{gadName}, $param[0]->{cmd}); my $name = $hash->{NAME}; my @arg = (); $arg[0] = $cmd; return KNX_Set($hash, $name, $gadName, @arg); } ### check for valid IODev # called from define & Attr # returns undef on success , error msg on failure # returns list of IODevs if $iocandidate is undef on entry sub KNX_chkIODev { my $hash = shift; my $iocandidate = shift // 'undefined'; my $name = $hash->{NAME}; my @IOList = devspec2array('TYPE=(TUL|KNXTUL|KNXIO|FHEM2FHEM)'); my @IOList2 = (); # holds all non disabled io-devs foreach my $iodev (@IOList) { next if (! defined($defs{$iodev})); next if ((IsDisabled($iodev) == 1) || IsDummy($iodev)); # IO - device is disabled or dummy my $iohash = $defs{$iodev}; next if ($iohash->{TYPE} eq 'KNXIO' && exists($iohash->{model}) && $iohash->{model} eq 'X'); # exclude dummy dev push(@IOList2,$iodev); next if ($iodev ne $iocandidate); return if ($iohash->{TYPE} ne 'FHEM2FHEM'); # ok for std io-dev # add support for fhem2fhem as io-dev my $rawdef = $iohash->{rawDevice}; #name of fake local IO-dev or remote IO-dev if (defined($rawdef)) { return if (exists($defs{$rawdef}) && $defs{$rawdef}->{TYPE} eq 'KNXIO' && $defs{$rawdef}->{model} eq 'X'); # only if model of fake device eq 'X' return if (exists($iohash->{'.RTYPE'}) && $iohash->{'.RTYPE'} eq 'KNXIO'); # remote TYPE is KNXIO ( need patched FHEM2FHEM module) } } return join(q{,}, @IOList2) if ($iocandidate eq 'undefined'); return $iocandidate . ' is not a valid IO-device or disabled/dummy for ' . qq{$name \n} . 'Valid IO-devices are: ' . join(q{, }, @IOList2); } ### delete all defptr entries for this device # used in undefine & define (avoid defmod problem) 09-02-2021 # calling param: $hash # return param: none sub KNX_delete_defptr { my $hash = shift; my $name = $hash->{NAME}; for my $gad (sort keys %{$modules{KNX}->{defptr}}) { # get all gad for all KNX devices next if (! defined ($modules{KNX}->{defptr}->{$gad})); my @defList = @{$modules{KNX}->{defptr}->{$gad}}; # get list of device-hashes with this gad my $i = 0; foreach (@defList) { if ($defList[$i] == $hash) {splice(@defList, $i, 1); last;} $i++; } # restore list if we have at least one entry left, or delete key if (scalar(@defList) > 0) { @{$modules{KNX}->{defptr}->{$gad}} = @defList; } else { delete $modules{KNX}->{defptr}->{$gad}; } } return; } ### convert GAD / PHY from 5digit hex-string to readable version sub KNX_hex2Name { my $v = shift; my $istype = shift // 0; # 0 => GA, 1=> PHY, 2 => autocreate my $p1 = hex(substr($v,0,2)); my $p2 = hex(substr($v,2,1)); my $p3 = hex(substr($v,3,2)); return sprintf('%d.%d.%d', $p1,$p2,$p3) if ($istype == 1); return sprintf('KNX_%.2d%.2d%.3d', $p1,$p2,$p3) if ($istype == 2); # autocreate return sprintf('%d/%d/%d', $p1,$p2,$p3); } ### convert GAD from readable version to 5 digit hex # calling parameter: gadvalue from def-stmt # return: 5 hex-digit gadcode, undef on invalid call param. sub KNX_name2gadCode { my $gad = shift // return; if ($gad =~ m/^$PAT_GADHEX$/ixms) {$gad = KNX_hex2Name($gad);} # called with hex-option if ($gad =~ m/^$PAT_GAD$/xms) { return sprintf('%02x%01x%02x',$1,$2,$3); } return; } ### replace state-values by Attr stateRegex sub KNX_replaceByRegex { my ($hash, $rdName, $input) = @_; my $name = $hash->{NAME}; my $regAttr = AttrVal($name, 'stateRegex', undef); return $input if (! defined($regAttr)); my $retVal = $input; #execute regex, if defined #get array of given attributes my @reg = split(/\s\//xms, $regAttr); my $tempVal = $rdName . q{:} . $input; #loop over all regex foreach my $regex (@reg) { #trim leading and trailing slashes $regex =~ s/^\/|\/$//gixms; #get pairs my @regPair = split(/\//xms, $regex); next if ((not defined($regPair[0])) || ($regPair[0] eq q{})); #skip if first part of regex not match readingName my $regName = $regPair[0] =~ s/^([^:]+).*/$1/irxms; # extract rd-name next if ($rdName ne $regName); # must match completely! if (not defined ($regPair[1])) { # cut value $retVal = 'undefined'; } elsif ($regPair[0] eq $tempVal) { # complete match $retVal = $regPair[1]; } elsif (($input !~ /$regPair[0]/xms) && ($regPair[0] =~ /[:]/xms)) { # value dont match! next; } else { #replace value $tempVal =~ s/$regPair[0]/$regPair[1]/gixms; $retVal = $tempVal =~ s/[:]/ /rxms; $retVal =~ s/-\s/-/xms; # if $regpair[1] ends with - supress blank between word and value } last; } if ($input ne $retVal) {KNX_Log ($name, 5, qq{replaced $rdName value from: $input to $retVal});} return ($retVal eq 'undefined')?undef:$retVal; } ### make and replace reading names ### called from KNX_define2 ### input: hash, gadName, gadNo, nosuffix ### return: rdNameset, rdNameget sub KNX_makeRdNames { my $hash = shift; my $gadName = shift; my $gadNo = shift; # // $hash->{GADDETAILS}->{$gadName}->{NO}; # sttartup? my $nosuffix = shift; my $rdNameSet = $gadName; if (exists ($hash->{Helper}->{RDNAMEMAP}) && exists ($hash->{Helper}->{RDNAMEMAP}->{$gadName})) { $rdNameSet = $hash->{Helper}->{RDNAMEMAP}->{$gadName}; } my $rdNameGet = $rdNameSet; # assume nosuffix if (! defined($nosuffix)) { if ($rdNameSet eq 'g' . $gadNo) { # old syntax $rdNameSet = q{setG} . $gadNo; $rdNameGet = q{getG} . $gadNo; } else { $rdNameSet .= q{-set}; $rdNameGet .= q{-get}; } } return ($rdNameSet, $rdNameGet); } ### limit numeric values. Valid directions: encode, decode # called from: _encodeByDpt, _decodeByDpt # returns: limited value sub KNX_limit { my ($hash, $value, $model, $direction) = @_; #continue only if numeric value return $value if (! Scalar::Util::looks_like_number ($value)); return $value if (! defined($direction)); my $name = $hash->{NAME}; my $retVal = $value; #get correction details my $factor = 1; # defaults my $offset = 0; if (exists($dpttypes{$model}->{FACTOR})) {$factor = $dpttypes{$model}->{FACTOR};} if (exists($dpttypes{$model}->{OFFSET})) {$offset = $dpttypes{$model}->{OFFSET};} #get limits my $min = $dpttypes{$model}->{MIN}; my $max = $dpttypes{$model}->{MAX}; return $value if (! Scalar::Util::looks_like_number($min)); # allow 0/1 for dpt1.002+ #determine direction of scaling, do only if defined if ($direction =~ m/^encode/ixms) { #limitValue if (defined ($min) && ($value < $min)) {$retVal = $min;} if (defined ($max) && ($value > $max)) {$retVal = $max;} if ($value != $retVal) { KNX_Log ($name, 3, qq{$direction - value modified by limits... Input= $value Output= $retVal Model= $model}); } #correct value $retVal /= $factor; $retVal -= $offset; } elsif ($direction =~ m/^decode/ixms) { #correct value $retVal += $offset; $retVal *= $factor; #limitValue if (defined ($min) && ($retVal < $min)) {$retVal = $min;} if (defined ($max) && ($retVal > $max)) {$retVal = $max;} } return $retVal; } ### process attributes stateCmd & putCmd sub KNX_eval { my ($hash, $gadName, $state, $evalString) = @_; my $name = $hash->{NAME}; my $retVal = undef; # return $state if (!(defined($evalString)) || $evalString eq q{}); my $code = EvalSpecials($evalString,('%hash' => $hash, '%name' => $name, '%gadName' => $gadName, '%state' => $state)); $retVal = AnalyzeCommandChain(undef, $code); return if (! defined($retVal)); if ($retVal =~ /(^Forbidden|error)/ixms) { # eval error or forbidden by Authorize KNX_Log ($name, 2, qq{eval-error: gadName= $gadName evalString= $evalString result= $retVal}); $retVal = 'ERROR'; } return $retVal; } ### encode KNX-Message according DPT # on return: hex string to be sent to bus / undef on error sub KNX_encodeByDpt { my ($hash, $gadName, $value, @arg) = @_; my $name = $hash->{NAME}; my $model = $hash->{GADDETAILS}->{$gadName}->{MODEL}; my $code = $dpttypes{$model}->{CODE}; # my $code = $model =~ s/(dpt[^\.]+).*/$1/rxms; # prepare removal of $dpttypes{$model}->{CODE}; # special handling if ($code eq 'dpt16') { # $arg contains additional words if (scalar(@arg) > 0) {$value .= q{ } . join(q{ }, @arg);} } else { # strip off whitespace and unit $value =~ s/^\s+|\s+$//gxms; # white space at begin/end $value = (split(/\s+/xms,$value))[0]; # strip off unit } # compatibility with widgetoverride :time if ($code eq 'dpt10' && $value =~ /^[\d]{2}:[\d]{2}$/xms) {$value .= ':00';} # support dpt18 learn my $dpt18flag = 0; if ($code eq 'dpt18') { if (defined($arg[0])) {$value .= q{ } . $arg[0];} # blank separated if ($value =~ /(?:(activate|learn)[,\s])?(\d+)$/xms) { $value = $2; if (defined($1) && ($1 eq q{learn})) {$dpt18flag = 1}; } } # match against model pattern my $pattern = $dpttypes{$model}->{PATTERN}; if ($value !~ /^$pattern$/ixms) { KNX_Log ($name, 2, qq{gadName=$gadName VALUE=$value does not match allowed values: $pattern}); return; } KNX_Log ($name, 5, qq{gadName= $gadName value= $value model= $model pattern= $pattern}); my $lvalue = KNX_limit($hash, $value, $model, 'ENCODE'); if ($dpt18flag == 1) {$lvalue += 0x80;}; if (ref($dpttypes{$code}->{ENC}) eq 'CODE') { my $hexval = $dpttypes{$code}->{ENC}->($lvalue, $model); KNX_Log ($name, 5, qq{gadName= $gadName model= $model } . qq{in-Value= $value out-Value= $lvalue out-ValueHex= $hexval}); return $hexval; } else { KNX_Log ($name, 2, qq{gadName= $gadName model= $model not valid}); } return; } ### decode KNX-Message according DPT # on return: decoded value from bus / on error: undef sub KNX_decodeByDpt { my $hash = shift; my $gadName = shift; my $value = shift; my $name = $hash->{NAME}; my $model = $hash->{GADDETAILS}->{$gadName}->{MODEL}; my $code = $dpttypes{$model}->{CODE}; # my $code = $model =~ s/(dpt[^\.]+).*/$1/rxms; # prepare removal of $dpttypes{$model}->{CODE}; if (ref($dpttypes{$code}->{DEC}) eq 'CODE') { my $state = $dpttypes{$code}->{DEC}->($value, $model, $hash); KNX_Log ($name, 5, qq{gadName= $gadName model= $model code= $code hexvalue= $value length-value= } . length($value) . qq{ state= $state}); return $state; } else { KNX_Log ($name, 2, qq{gadName= $gadName model= $model not valid}); } return; } ############################ ### encode sub functions ### # dpts > 3 are at least 1byte dpts, need to be prefixed with x00 sub enc_dpt1 { #Binary value my $value = shift; my $model = shift; my $numval = 0; #default if ($value =~ m/(1|on)$/ixms) {$numval = 1;} if ($value eq $dpttypes{$model}->{MAX}) {$numval = 1;} # dpt1.011 problem return sprintf('%.2x',$numval); } sub enc_dpt2 { #Step value (two-bit) my $value = shift; my $dpt2list = {off => 0, on => 1, forceoff => 2, forceon =>3}; my $numval = $dpt2list->{lc($value)}; if ($value =~ m/^0?[0-3]$/xms) {$numval = $value;} # JoeALLb request return sprintf('%.2x',$numval); } sub enc_dpt3 { #Step value (four-bit) my $value = shift; my $numval = 0; my $sign = ($value >= 0 )?1:0; $value = abs($value); my @values = qw( 100 50 25 12 6 3 1 0); foreach my $key (@values) { $numval++; last if ($value >= $key); } if ($sign == 1) {$numval = ($numval | 0x08);} # positive return sprintf('%.2x',$numval); } sub enc_dpt4 { #single ascii or iso-8859-1 char my $value = shift; my $model = shift; my $numval = Encode::encode('iso-8859-1', Encode::decode('utf8', $value)); #always convert to latin-1 if ($model ne 'dpt4.002') {$numval =~ s/[\x80-\xff]/?/gxms;} #replace values >= 0x80 if ascii #convert to hex-string my $dat = unpack('H*', $numval); return sprintf('00%s',$dat); } sub enc_dpt5 { #1-Octet unsigned value return sprintf('00%.2x',shift); } sub enc_dpt6 { #1-Octet signed value #build 2-complement my $numval = unpack('C', pack('c', shift)); return sprintf('00%.2x',$numval); } sub enc_dpt7 { #2-Octet unsigned Value return sprintf('00%.4x',shift); } sub enc_dpt8 { #2-Octet signed Value #build 2-complement my $numval = unpack('S', pack('s', shift)); return sprintf('00%.4x',$numval); } sub enc_dpt9 { #2-Octet Float value my $value = shift; my $sign = ($value <0 ? 0x8000 : 0); my $exp = 0; my $mant = $value * 100; while (abs($mant) > 0x07FF) { $mant /= 2; $exp++; } my $numval = $sign | ($exp << 11) | ($mant & 0x07FF); return sprintf('00%.4x',$numval); } sub enc_dpt10 { #Time of Day my $value = shift; my ($secs,$mins,$hours,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); # default now if ($value =~ /$PAT_TIME/ixms) { ($hours,$mins,$secs) = split(/[:]/ixms,$value); my $ts = fhemTimeLocal($secs, $mins, $hours, $mday, $mon, $year); ($secs,$mins,$hours,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($ts); } # calculate offset for weekday if ($wday == 0) {$wday = 7;} $hours += ($wday << 5); return sprintf('00%.2x%.2x%.2x',$hours,$mins,$secs); } sub enc_dpt11 { #Date year range is 1990-2089 {0 => 2000 , 89 => 2089, 90 => 1990} my $value = shift; my ($day, $month, $year); if ($value =~ m/now/ixms) { #get actual time my ($secs,$mins,$hours,$mday,$mon,$yr,$wday,$yday,$isdst) = localtime(time); #add offsets $year = $yr - 100; # based on 1900 $month = $mon + 1; $day = $mday; } else { ($day, $month, $year) = split (/[.]/xms, $value); $year -= 2000; if ($year < 0) {$year += 100;} } return sprintf('00%.2x%.2x%.2x',$day,$month,$year); } sub enc_dpt12 { #4-Octet unsigned value return sprintf('00%.8x',shift); } sub enc_dpt13 {#4-Octet Signed Value #build 2-complement my $numval = unpack('L', pack('l', shift)); return sprintf('00%.8x',$numval); } sub enc_dpt14 { #4-Octet single precision float my $numval = unpack('L', pack('f', shift)); return sprintf('00%.8x',$numval); } sub enc_dpt16 { #14-Octet String my $value = shift; my $model = shift; my $numval = Encode::encode('iso-8859-1', Encode::decode('utf8', $value)); #always convert to latin-1 if ($model ne 'dpt16.001') {$numval =~ s/[\x80-\xff]/?/gxms;} #replace values >= 0x80 if ascii $numval = substr($numval,0,14); # limit to 14 char #convert to hex-string my $dat = unpack('H*', $numval); if ($value =~ /^$PAT_DPT16_CLR/ixms) {$dat = '00';} # send all zero string if "clear line string" #format for 14-byte-length and replace trailing blanks with zeros return sprintf('00%-28s',$dat); } sub enc_dpt18 { # also used by dpt17 return sprintf('00%.2x',shift); } sub enc_dpt19 { #DateTime my $value = shift; my $ts = time; # default or when "now" is given # if no match we assume now and use current date/time if ($value =~ m/^$PAT_DATE19[_]$PAT_TIME/xms) { $ts = fhemTimeLocal($6, $5, $4, $1, $2-1, $3 - 1900); } my ($secs,$mins,$hours,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($ts); if ($wday == 0) {$wday = 7;} # calculate offset for weekday $hours += ($wday << 5); # add day of week my $status1 = 0x40; # Fault=0, WD = 1, NWD = 0 (WD Field valid), NY = 0, ND = 0, NDOW= 0,NT=0, SUTI = 0 if ($wday >= 6) {$status1 = $status1 & 0xBF;} # Saturday & Sunday is non working day if ($isdst == 1) {$status1 += 1;} my $status0 = 0x00; # CLQ=0 $mon++; return sprintf('00%02x%02x%02x%02x%02x%02x%02x%02x',$year,$mon,$mday,$hours,$mins,$secs,$status1,$status0); } sub enc_dpt20 { # HVAC, Wind (Bf), Clouds - 1Byte my $value = shift; my $model = shift; my @dpt_txt = split(/[,]/xms,$dpttypes{$model}->{SETLIST}); my $i = 0; foreach (@dpt_txt) { last if ($_ eq $value); $i++; } return sprintf('00%.2x',$i); } sub enc_dpt232 { #RGB-Code return '00' . shift; } sub enc_dpt251 { #RGBW-Code return sprintf('00%08x%02x%02x',hex(shift),0,0x0f); } sub enc_dptRAW { my $numval = shift; my $n1 = hex(substr($numval,0,2)); $n1 = sprintf('%.2x',($n1 & 0x3f)); # only 6 bits allowed in 1st byte return $numval = $n1 . substr($numval,2); } ############################ ### decode sub functions ### sub dec_dpt1 { #Binary value my $numval = hex (shift); my $model = shift; $numval = ($numval & 0x01); my $state = $dpttypes{$model}->{MIN}; # default if ($numval == 1) {$state = $dpttypes{$model}->{MAX};} return $state; } sub dec_dpt2 { #Step value (two-bit) my $numval = hex (shift); my $model = shift; my $state = ($numval & 0x03); my @dpt2txt = qw(off on forceOff forceOn); if ($model ne 'dpt2.000') {$state = $dpt2txt[$state];} # JoeALLb request; return $state; } sub dec_dpt3 { #Step value (four-bit) my $numval = hex (shift); my $dir = ($numval & 0x08) >> 3; my $step = ($numval & 0x07); my $stepcode = 0; if ($step > 0) { $stepcode = int(100 / (2**($step-1))); if ($dir == 0) {$stepcode *= -1;} } return sprintf ('%d', $stepcode); } sub dec_dpt5 { #1-Octet unsigned value my $numval = hex (shift); my $model = shift; my $hash = shift; my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%.0f', $state); } sub dec_dpt6 { #1-Octet signed value my $numval = hex (shift); my $model = shift; my $hash = shift; $numval = unpack('c',pack('C',$numval)); my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%d', $state); } sub dec_dpt7 { #2-Octet unsigned Value my $numval = hex (shift); my $model = shift; my $hash = shift; my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%.2f', $state) if ($model eq 'dpt7.003'); return sprintf ('%.1f', $state) if ($model eq 'dpt7.004'); return sprintf ('%.0f', $state); } sub dec_dpt8 { #2-Octet signed Value my $numval = hex (shift); my $model = shift; my $hash = shift; $numval = unpack('s',pack('S',$numval)); my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%.2f', $state) if ($model =~ /^dpt8[.](003|010)/xms); return sprintf ('%.1f', $state) if ($model eq 'dpt8.004'); return sprintf ('%.0f', $state); } sub dec_dpt9 { #2-Octet Float value my $numval = hex (shift); my $model = shift; my $hash = shift; my $sign = 1; if(($numval & 0x8000) > 0) {$sign = -1;} my $exp = ($numval & 0x7800) >> 11; my $mant = ($numval & 0x07FF); if($sign == -1) {$mant = -(~($mant-1) & 0x07FF);} $numval = (1 << $exp) * 0.01 * $mant; my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return $state; } sub dec_dpt10 { #Time of Day my $numval = hex (shift); my $hours = ($numval & 0x1F0000) >> 16; my $mins = ($numval & 0x3F00) >> 8; my $secs = ($numval & 0x3F); my $wday = ($numval & 0xE00000) >> 21; # my @wdays = qw{q{} Monday Tuesday Wednesday Thursday Friday Saturday Sunday}; # return sprintf('%s, %02d:%02d:%02d',$wdays[$wday],$hours,$mins,$secs); # new option ? return sprintf('%02d:%02d:%02d',$hours,$mins,$secs); } sub dec_dpt11 { #Date my $numval = hex (shift); my $day = ($numval & 0x1F0000) >> 16; my $month = ($numval & 0x0F00) >> 8; my $year = ($numval & 0x7F); #translate year (21st cent if <90 / else 20th century) $year += ($year >= 90)?1900:2000; return sprintf('%02d.%02d.%04d',$day,$month,$year); } sub dec_dpt12 { #4-Octet unsigned value my $numval = hex (shift); my $model = shift; my $hash = shift; my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%d', $state); } sub dec_dpt13 { #4-Octet Signed Value my $numval = hex (shift); my $model = shift; my $hash = shift; $numval = unpack('l',pack('L',$numval)); my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%d', $state); } sub dec_dpt14 { #4-Octet single precision float my $numval = unpack 'f', pack 'L', hex (shift); my $model = shift; my $hash = shift; $numval = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%.7g', $numval); } sub dec_dpt15 { #4-Octet Access data receive only my $numval = shift; my $model = shift; my $hash = shift; my $aindex = hex(substr($numval,-2)); return 'error' if (($aindex & 0x80) != 0); return 'no_permission' if (($aindex & 0x40) != 0); $aindex = $aindex & 0x0F; # Access index $numval = substr($numval,0,length($numval)-2); return sprintf ('%02d-%s',$aindex,$numval); # - } sub dec_dpt16 { #14-Octet String or dpt4: single Char string my $value = shift; my $model = shift; my $numval = 0; $value =~ s/\s*$//gxms; # strip trailing blanks my $state = pack('H*',$value); #convert from latin-1 if ($model =~ m/^dpt(?:16.001|4.002)$/xms) {$state = Encode::encode ('utf8', Encode::decode('iso-8859-1',$state));} if ($state =~ m/^[\x00]+$/ixms) {$state = q{};} # case all zeros received $state =~ s/[\x00-\x1F]+//gxms; # remove non printable chars return $state; } sub dec_dpt18 { #1-Octet scene - also used for dpt17 my $numval = hex (shift); my $model = shift; my $hash = shift; $numval = ($numval & 0x3F); my $state = KNX_limit ($hash, $numval, $model, 'DECODE'); return sprintf ('%d', $state); } sub dec_dpt19 { #DateTime my $numval = substr(shift,-16); # strip off 1st byte if (length($numval) < 16) { $numval = q{460101000000};} # 1970-01-01 00:00:00 my $time = hex (substr ($numval, 6, 6)); my $date = hex (substr ($numval, 0, 6)); my $secs = ($time & 0x3F); my $mins = ($time & 0x3F00) >> 8; my $hours = ($time & 0x1F0000) >> 16; my $day = ($date & 0x1F); my $month = ($date & 0x0F00) >> 8; my $year = ($date & 0xFF0000) >> 16; #extras my $wday = ($time & 0xE00000) >> 21; # 0 = anyday/not valid, 1= Monday,... $year += 1900; return sprintf('%02d.%02d.%04d_%02d:%02d:%02d', $day, $month, $year, $hours, $mins, $secs); } sub dec_dpt20 { #HVAC, Wind, Clouds my $numval = hex (shift); my $model = shift; my @dpt_txt = split(/[,]/xms,$dpttypes{$model}->{SETLIST}); return q{reserved} if ($numval >= scalar(@dpt_txt)); return $dpt_txt[$numval]; } sub dec_dpt21 { # Z8 status info 5bit my $numval = hex (shift); my $model = shift; if ($model eq 'dpt21') {return sprintf('%.8b',$numval)}; # binary bits my $state = q{}; $numval = $numval & 0x1f; # 5 bits return q{ok} if ($numval == 0); my @dpt_txt = qw(invalid_dpt); if ($model eq 'dpt21.001') {@dpt_txt = qw(OutofService Fault Overridden InAlarm AlarmUnack);} elsif ($model eq 'dpt21.002') {@dpt_txt = qw(UserStopped OwnIA VerifyMode);} foreach (@dpt_txt) { if (($numval & 0x01) == 0x01) {$state .= $_ . q{,} }; $numval = $numval >> 1; } $state =~ s/[,]$//xms; return $state; } sub dec_dpt22 { #HVAC dpt22.101 only my $numval = hex (shift); return 'error' if (($numval & 0x01) == 1); my $state = (($numval & 0x0100) == 0)?'heating':'cooling'; if (($numval & 0x2000) != 0) {$state .= '_Frostalarm';} if (($numval & 0x4000) != 0) {$state .= '_Overtempalarm';} return $state; } sub dec_dpt217 { #version my $numval = hex (shift); my $maj = $numval >> 11; my $mid = ($numval >> 6) & 0x001F; my $min = $numval & 0x003F; return sprintf('V %d.%d.%d',$maj,$mid,$min); } sub dec_dpt221 { #Serial number my $numval = shift; my $mfg = hex(substr($numval,0,4)); my $serial = hex(substr($numval,4,8)); return sprintf('%05d.%010d',$mfg,$serial); } sub dec_dpt232 { #RGB-Code my $numval = hex (shift); return sprintf ('%.6x',$numval); } sub dec_dpt251 { #RGBW-Code my $numval = substr(shift,0,-4); # strip off controls if (length($numval) == 10) {$numval = substr($numval,2,8);} # from set cmd return sprintf ('%.8x',hex($numval)); } sub dec_dptRAW { # my $numval = substr(shift, 0); # return sprintf('%s',$numval); return sprintf('%s',shift); } ### lookup gadname by gadnumber # called from: KNX_Get, KNX_setOldsyntax # entry: $hash, desired gadNO # return: undef on error / gadName sub KNX_gadNameByNO { my $hash = shift; my $groupnr = shift // 1; # default: search for g1 foreach my $targetGadName (keys %{$hash->{GADDETAILS}}) { return $targetGadName if ($hash->{GADDETAILS}->{$targetGadName}->{NO} == $groupnr); } return; } ### unified Log handling ### calling param: same as Log3: hash/name/undef, loglevel, logtext ### prependes device, subroutine, linenr. to Log msg ### return undef sub KNX_Log { my $dev = shift // 'global'; my $loglvl = shift // 5; my $logtxt = shift; my $name = ( ref($dev) eq 'HASH' ) ? $dev->{NAME} : $dev; my $dloglvl = AttrNum($name,'verbose',undef) // AttrNum('global','verbose',3); return if ($loglvl > $dloglvl); # shortcut performance my $sub = (caller(1))[3] // 'main'; my $line = (caller(0))[2]; $sub =~ s/^.+[:]+//xms; Log3 ($name, $loglvl, qq{$name [$sub $line]: $logtxt}); return; } ############################################## ########## public utility functions ########## # FHEM cmd-line cmd is handled by 98_KNX_scan.pm # ### get state of devices from KNX_Hardware # called with devspec as argument # e.g : KNX_scan() / KNX_scan('device1') / KNX_scan('device1,dev2,dev3,...') / KNX_scan('room=Kueche'), ... # returns number of "gets" executed sub main::KNX_scan { my $devs = shift || 'TYPE=KNX'; # select all if nothing defined if (! $init_done) { # reject scan before init complete Log3 (undef, 2,'KNX_scan command rejected during FHEM-startup!'); return 0; } my @devlist = devspec2array($devs); my $i = 0; #counter devices my $j = 0; #counter devices with get my $k = 0; #counter total get's my $iohash; foreach my $knxdef (@devlist) { next if (! defined($defs{$knxdef})); my $devhash = $defs{$knxdef}; next if ((! defined($devhash)) || ($devhash->{TYPE} ne 'KNX')); #check if IO-device is ready $iohash = $devhash->{IODev}; next if (KNX_chkIO($iohash) != 1); $i++; my $k0 = $k; #save previous number of get's foreach my $key (keys %{$devhash->{GADDETAILS}}) { last if (! defined($key)); next if($devhash->{GADDETAILS}->{$key}->{MODEL} eq q{dptRAW}); my $option = $devhash->{GADDETAILS}->{$key}->{OPTION}; next if (defined($option) && $option =~ /(?:set|listenonly)/ixms); $k++; push (@{$iohash->{Helper}->{knxscan}}, qq{$knxdef $key}); } if ($k > $k0) {$j++;} } Log3 (undef, 3, qq{KNX_scan: $i devices selected (regex= $devs) / $j devices with get / $k "gets" executing...}); if ($k > 0) {doKNX_scan($iohash);} return $k; } ### check if IODev is ready # retuns undef on not ready sub KNX_chkIO { my $iohash = shift // return; if ($iohash->{TYPE} =~ /(?:KNXIO|FHEM2FHEM)/xms) { return if ($iohash->{STATE} ne 'connected'); } else { # all other IO-devs... return if ($iohash->{STATE} !~ /(?:initialized|opened|connected)/ixms); } return 1; } ### issue all get cmd's - each one delayed by InternalTimer sub doKNX_scan { my $iohash = shift // return; return if (! exists($iohash->{Helper}->{knxscan})); my $count = scalar(@{$iohash->{Helper}->{knxscan}}); if ($count > 0 ) { my ($devName,$gadName) = split(/\s/xms, shift(@{$iohash->{Helper}->{knxscan}}),2); KNX_Get ($defs{$devName}, $devName, $gadName); my $delay = ($count % 10 == 0)?1:0.35; # extra delay on each 10th request return InternalTimer(Time::HiRes::time() + $delay,\&doKNX_scan,$iohash); } delete $iohash->{Helper}->{knxscan}; Log3 ($iohash, 3, q{KNX_scan: finished}); return; } 1; __END__ =pod =encoding utf8 =item [device] =item summary Devices communicate via the IO-Device TUL/KNXTUL/KNXIO with KNX-bus =item summary_DE Geräte kommunizieren über IO-Gerät TUL/KNXTUL/KNXIO mit KNX-Bus =begin html

KNX

=end html =cut