commit f882260aaf66c83fd7f67c03fad50778e239f08c parent 0784494301f19bbc3970a5845d0ddcf86335b186 Author: Alexander Burger <abu@software-lab.de> Date: Wed, 13 Apr 2011 19:31:02 +0200 SSL transactions by meinbg Diffstat:
| M | lib/xmlrpc.l | | | 23 | ++++++++++++++++++++++- |
1 file changed, 22 insertions(+), 1 deletion(-)
diff --git a/lib/xmlrpc.l b/lib/xmlrpc.l @@ -1,4 +1,4 @@ -# 02jan09abu +# 13apr11abu # (c) Software Lab. Alexander Burger # (xmlrpc "localhost" 8080 "foo.bar" 'int 41 'string "abc" ..) @@ -60,4 +60,25 @@ (xmlrpcValue (caddr (assoc 'value L))) ) ) ) (cddr Lst) ) ) ) ) ) +# SSL transactions +# By meingbg <meingbg@gmail.com> +(de xmlrpcssl (Url Meth . @) + (let Xml (tmp "xmlrpcssl") + (out Xml + (xml? T) + (xml + (list 'methodCall NIL + (list 'methodName NIL Meth) + (make + (link 'params NIL) + (while (args) + (link + (list 'param NIL + (list 'value NIL (list (next) NIL (next))) ) ) ) ) ) ) ) + (in (list "wget" "--no-http-keep-alive" "--no-check-certificate" (pack "--post-file=" Xml) "-O" "-" "-o" "/dev/null" Url) + (let? L (and (xml?) (xml)) + (when (== 'methodResponse (car L)) + (xmlrpcValue + (car (body L 'params 'param 'value)) ) ) ) ) ) ) + # vi:et:ts=3:sw=3