dimitri/sncf-bot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Group functions in submodules

Browse source
This commit is contained in:
Dimitri Lozeve 2022-09-12 16:55:49 +02:00
parent 0f6e22bf6a
commit 8c68491550
6 changed files with 143 additions and 111 deletions
Download patch file Download diff file Expand all files Collapse all files

19
sncf/mattermost.ss Normal file
View file

@ -0,0 +1,19 @@
(export post-to-mattermost)
(import :std/format
:std/net/request
:std/text/json)
(def (post-to-mattermost url text channel: (channel #f))
(def data (list->hash-table `((text . ,text))))
(when channel
(hash-put! data 'channel channel))
(def mattermost-headers '(("Content-Type" . "application/json")))
(def req (http-post url
headers: mattermost-headers
data: (json-object->string data)))
(if (eq? 200 (request-status req))
(display (format "Sent to Mattermost in ~a\n" (if channel channel "default channel")))
(begin (display (format "Failed to send the message to Mattermost: ~a ~a\n"
(request-status req) (request-status-text req)))
(exit 1))))