blob: 938a950e819300be8cc7226ebaa5bc14d9c5e103 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
(in-package :wajir)
(defun main ()
;; Query page of issues
;; [Check not in database?] <- no
;; Start watching issue
;; Send email to ^maildir^program^ containing message with issue metadata
;; Continue to next page
(let ((config (parse-options)))
(format t "~S" config))
; (let ((config (make-instance 'config
; :login "name@example.com"
; :token "atlassian-token"
; :endpoint "example.atlassian.net"
; :email-to "name@example.com"
; :jql "project = \"FAKE\" AND watcher != currentUser() AND key > \"FAKE-100\" ORDER BY created DESC")))
;
; (run config))
)
(defun run (config)
(let ((basic-auth-token (cl-base64:string-to-base64-string
(format nil
"~A:~A"
(login config)
(token config)))))
(loop
with start-at = 0
with max-results = 0
do
(progn
(let* ((response (fetch-issues
(endpoint config)
(jql config)
start-at
:basic-auth-token basic-auth-token))
(total (gethash "total" response)))
(when (verbose config)
(format t "start-at: ~A max-results: ~A total: ~A~%"
start-at
max-results
total))
;; Watch each issue.
; (loop for issue
; across (gethash "issues" response)
; do (watch-issue config issue))
(let ((issue (aref (gethash "issues" response) 0)))
(watch-issue
config
issue
:basic-auth-token basic-auth-token)
(return))
;; Stop looping if we're on the last page of results.
(when (> start-at
(- total max-results))
(return))
;; Step `start-at` for next page.
(setf max-results (gethash "maxResults" response))
(setf start-at (+ (gethash "startAt" response)
max-results)))))))
(defun fetch-issues (endpoint jql start-at &key basic-auth-token)
(jzon:parse
(dex:post (format nil "https://~A/rest/api/2/search" endpoint)
:content
(jzon:stringify
`((:jql . ,jql)
(:fields . #("id"
"key"
"project"
"summary"
"description"
"issuetype"
"creator"
"reporter"))
(:|startAt| . ,start-at)))
:headers `((:content-type . "application/json")
(:authorization
. ,(format nil "Basic ~A" basic-auth-token))))))
(defun watch-issue (config issue &key basic-auth-token)
;; 1. Watch issue in Jira
;; 2. Send email
(when (verbose config)
(format t "Watching issue ~A~%" (gethash "key" issue)))
; (add-watcher
; (endpoint config)
; issue
; :basic-auth-token basic-auth-token)
(if (sendmail config)
(deliver-email config issue)))
(defun add-watcher (endpoint issue &key basic-auth-token)
"Add the authenticated user as a watcher to issue."
(dex:post
(format nil
"https://~A/rest/api/2/issue/~A/watchers"
endpoint
(gethash "id" issue))
:headers `((:authorization . ,(format nil "Basic ~A" basic-auth-token)))))
|
