From 8a01171666c4c08b250666992d8dc23d01b4236b Mon Sep 17 00:00:00 2001 From: betateilchen <> Date: Fri, 12 May 2023 13:56:45 +0000 Subject: [PATCH] 55_InfoPanel.pm: support for named parameters in define added git-svn-id: https://svn.fhem.de/fhem/trunk@27557 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/55_InfoPanel.pm | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm index db313a92f..eb00b427b 100644 --- a/fhem/FHEM/55_InfoPanel.pm +++ b/fhem/FHEM/55_InfoPanel.pm @@ -63,6 +63,8 @@ # 2018-05-06 - 16695 - changed: check plotName exists # 2018-05-28 - $Rev$ - changed: remove misleading link in commandref # +# 2023-05-12 - $Rev$ - added: support for named parameters in define +# ############################################## =cut @@ -160,14 +162,19 @@ sub InfoPanel_Initialize { sub btIP_Define { my ($hash, $def) = @_; - my @a = split("[ \t]+", $def); - return "Usage: define InfoPanel filename" if(int(@a) != 3); - my $name= $a[0]; - my $filename= $a[2]; - + my $name = $hash->{NAME}; $hash->{NOTIFYDEV} = 'global'; $hash->{fhem}{div} = ''; - $hash->{LAYOUTFILE} = $filename; + + my ($unnamedParams,$namedParams) = parseParams($def); + + if ($unnamedParams->[2]) { + $hash->{LAYOUTFILE} = $unnamedParams->[2]; + } elsif ($namedParams->{layout}) { + $hash->{LAYOUTFILE} = $namedParams->{layout}; + } else { + return "Usage: define InfoPanel layout=layoutFileName"; + } btIP_addExtension("btIP_CGI","btip","InfoPanel"); btIP_readLayout($hash); @@ -1529,10 +1536,10 @@ sub btIP_getURL { Define