From f1c397a6a5908588a03289f7faf0b5613dcbc21d Mon Sep 17 00:00:00 2001
From: dev0 <>
Date: Sat, 16 Feb 2019 09:03:52 +0000
Subject: [PATCH] 34_ESPEasy.pm: Remove FHEM cmd from ESPEasy cmd if
userSetCmds "args == -1"
git-svn-id: https://svn.fhem.de/fhem/trunk@18608 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/34_ESPEasy.pm | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/fhem/FHEM/34_ESPEasy.pm b/fhem/FHEM/34_ESPEasy.pm
index d89421c58..06efe0f53 100644
--- a/fhem/FHEM/34_ESPEasy.pm
+++ b/fhem/FHEM/34_ESPEasy.pm
@@ -37,7 +37,7 @@ use HttpUtils;
use Color;
use SetExtensions;
-my $module_version = "2.17"; # Version of this module
+my $module_version = "2.18"; # Version of this module
# ------------------------------------------------------------------------------
# modul version and required ESP Easy firmware / JSON lib version
@@ -1911,7 +1911,9 @@ sub ESPEasy_httpReq(@)
else {
my $plist = join(",",@cmdArgs); # join cmd params into a string to be used in http url
$plist = ",".$plist if @cmdArgs; # add leading comma if defined
- $url = "http://".$host.":".$port.$path.$cmd.$plist; # build full url
+ $url = "http://".$host.":".$port.$path; # build base url
+ $url .= $cmd if($data{ESPEasy}{$dname}{sets}{$cmd}{args} ne "-1"); #Forum 97301
+ $url .= $plist;
}
my $httpParams = {
@@ -4543,7 +4545,12 @@ sub ESPEasy_dumpSingleLine($)
Argument must be a perl hash.
The following hash keys can be used. An omitted key will be replaced with the appropriate default value.
args:
minimum number of required arguments. Default: 0args:
minimum number of required arguments for set cmd.
+ Default: 0, no additional arguments required.url:
ESPEasy URL to be called. Default: "/control?cmd="widget:
FHEM widget to be
used for this set command. Default: none
@@ -4574,6 +4581,7 @@ sub ESPEasy_dumpSingleLine($)
( myCmd1 => {}, myCmd2 => {} )
( myCmd3 => {args => 2, url => "/?cmd=", widget=> "",
usage => "<param1> <param2>"} )
( myCmd4 => {url =>"/control?cmd=event,myevent", args => -1} )