From 92e78fada9b803195f7380cd38bbb84a355a203f Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Tue, 24 Mar 2015 15:02:31 -0400 Subject: Integrate rt-liber-rest-edit-runner and add fields. --- rt-liberation-rest.el | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) (limited to 'rt-liberation-rest.el') diff --git a/rt-liberation-rest.el b/rt-liberation-rest.el index 85cabf4..af8c1a5 100644 --- a/rt-liberation-rest.el +++ b/rt-liberation-rest.el @@ -104,6 +104,18 @@ "user=" user "&" "pass=" pass))) +(defun rt-liber-rest-command-edit-string (scheme url ticket-id username password) + "Return the ticket edit string." + (let ((user (url-encode-url username)) + (pass (url-encode-url password))) + (concat scheme + "://" + url + "/REST/1.0/ticket/" ticket-id + "/edit" "?" + "user=" user "&" + "pass=" pass))) + (defun rt-liber-rest-call (url) "Perform a REST call with URL." (let ((url-request-method "POST")) @@ -224,6 +236,32 @@ (rt-liber-rest-parse-http-header) (buffer-substring (point) (point-max))))) +(defun rt-liber-rest-handle-response (buffer) + "Handle the response provided in BUFFER." + (with-current-buffer response-buffer + (rt-liber-rest-write-debug (buffer-string)))) + +(defun rt-liber-rest-edit-runner (ticket-id field value) + "Run edit comment to set FIELD to VALUE." + (message "started edit command at %s..." (current-time-string)) + (let ((request-data + (format "content=%s: %s" + (url-hexify-string field) + (url-hexify-string value)))) + (let ((url-request-method "POST") + (url-request-data request-data) + response-buffer) + (setq response-buffer + (url-retrieve-synchronously + (rt-liber-rest-command-edit-string + rt-liber-rest-scheme + rt-liber-rest-url + ticket-id + rt-liber-rest-username + rt-liber-rest-password))) + (rt-liber-rest-handle-response response-buffer))) + (message "command ended at %s" (current-time-string))) + (provide 'rt-liberation-rest) -- cgit v1.2.3