# HG changeset patch
# User Markus Mützel <markus.muetzel@gmx.de>
# Date 1661773543 -7200
# Node ID f5db0112f7e89f46d18add1d0a16f0ce428f9766
# Parent  a523e976b8419f453a6a6931fb567639439ac80e
webwrite.m: Support literal "=" in query string (bug #62963).

* scripts/web/webwrite.m: Match patterns in DATA string with regular expression
instead of simply splitting the string.

diff -r a523e976b841 -r f5db0112f7e8 scripts/web/webwrite.m
--- a/scripts/web/webwrite.m	Sun Aug 28 14:20:03 2022 -0700
+++ b/scripts/web/webwrite.m	Mon Aug 29 13:45:43 2022 +0200
@@ -92,7 +92,12 @@
     error ("webwrite: DATA must be a string");
   elseif (nargs == 1)
     if (ischar (varargin{1}) && isrow (varargin{1}))
-      param = strsplit (varargin{1}, {"=", "&"});
+      param = regexp (varargin{1}, '([^=]*)=([^&]*)&?', 'tokens');
+      if (isempty (param) || isempty (param{1}))
+        error ("webwrite: DATA not a valid query string");
+      else
+        param = [param{:}];
+      endif
       response = __restful_service__ (url, param, options);
     elseif (! iscellstr (varargin))
       error ("webwrite: DATA must be a string");