1 files changed, 66 insertions, 0 deletions
diff --git a/elisp/erbot/contrib/soap.el b/elisp/erbot/contrib/soap.el
new file mode 100644
index 0000000..a372526
--- /dev/null
+++ b/elisp/erbot/contrib/soap.el
@@ -0,0 +1,66 @@
+
+
+;;; soap.el --- Simple Object Access Protocol support for Emacs
+
+;; Copyright (C) 2002  Edward O'Connor <ted@oconnor.cx>
+
+;; Author: Edward O'Connor <ted@oconnor.cx>
+;; Keywords: comm, tools, processes
+;; Version: 0.1
+
+;; This file is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 3, or
+;; (at your option) any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public
+;; License along with GNU Emacs; see the file COPYING. If not,
+;; write to the Free Software Foundation, Inc., 59 Temple Place -
+;; Suite 330, Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This is the barest of beginnings of SOAP support for Emacs. It
+;; really doesn't do much of anything; to see how to use it, see
+;; google.el. Someone who cares about SOAP should probably make
+;; this into an actual SOAP implementation.
+
+;;; Code:
+
+(require 'url)
+
+(defun soap-process-response (response-buffer)
+  "Process the SOAP response in RESPONSE-BUFFER."
+  (let ((retval nil))
+    (with-current-buffer response-buffer
+      (goto-char (point-min))
+      (when (looking-at "^HTTP/1.* 200 OK$")
+        (re-search-forward "^$" nil t 1)
+        (setq retval (buffer-substring-no-properties (point) (point-max))))
+      (kill-buffer response-buffer))
+    (with-temp-buffer
+      (insert "\n" retval "\n")
+      (goto-char (point-min))
+      (while (re-search-forward "\r" nil t)
+        (replace-match ""))
+      (xml-parse-region (point-min) (point-max)))))
+
+(defun soap-request (url data)
+  "Send and process SOAP request to URL with DATA."
+  (let* ((url-request-extra-headers
+          `(("Content-type" . "text/xml; charset=\"utf-8\"")
+            ("SOAPAction" . ,(format "%S" url))))
+         (url-request-method "POST")
+         (url-request-data
+          (concat "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n"
+                  data)))
+    (soap-process-response (url-retrieve-synchronously url))))
+
+(provide 'soap)
+;;; soap.el ends here
+