From 5dc7165c1c67c420300ee6c1837a1eec0aaa475c Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 25 Mar 2015 12:17:04 -0400 Subject: Port status changes to REST interface. --- rt-liberation-rest.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'rt-liberation-rest.el') diff --git a/rt-liberation-rest.el b/rt-liberation-rest.el index af8c1a5..dec5b57 100644 --- a/rt-liberation-rest.el +++ b/rt-liberation-rest.el @@ -244,6 +244,7 @@ (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)) + (message "ticket #%s, %s <- %s" ticket-id field value) (let ((request-data (format "content=%s: %s" (url-hexify-string field) @@ -260,7 +261,14 @@ rt-liber-rest-username rt-liber-rest-password))) (rt-liber-rest-handle-response response-buffer))) - (message "command ended at %s" (current-time-string))) + (message "edit command ended at %s" (current-time-string))) + +(defun rt-liber-rest-command-set-status (id status) + "Set ticket ID status to be STATUS." + (let ((field (rt-liber-get-field-string 'status))) + (rt-liber-parse-answer + (rt-liber-rest-edit-runner id field status) + 'rt-liber-command-runner-parser-f))) (provide 'rt-liberation-rest) -- cgit v1.2.3