blob: 2ab72a2e391e666c86f4b7fdbcb9b8d1ae9b93b9 (
plain) (
blame)
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
|
;;;; Using irccat to send IRC notifications
(in-package :panettone.irc)
(defun noping (s)
(format nil "~A~A~A"
(char s 0)
#\ZERO_WIDTH_SPACE
(subseq s 1)))
(defun get-irccat-config ()
"Reads the IRCCATHOST and IRCCATPORT environment variables, and returns them
as two values"
(destructuring-bind (host port)
(mapcar #'uiop:getenvp '("IRCCATHOST" "IRCCATPORT"))
(if (and host port)
(values host (parse-integer port))
(values "localhost" 4722))))
(defun send-irc-notification (body &key channel)
"Sends BODY to the IRC channel CHANNEL (starting with #),
if an IRCCat server is configured (using the IRCCATHOST and IRCCATPORT
environment variables).
May signal a condition if sending fails."
(multiple-value-bind (irchost ircport) (get-irccat-config)
(when irchost
(let ((socket (socket-connect irchost ircport)))
(unwind-protect
(progn
(format (socket-stream socket) "~@[~A ~]~A~A~%"
channel
#\ZERO_WIDTH_SPACE
body)
(finish-output (socket-stream socket)))
(ignore-errors (socket-close socket)))))))
|
