diff options
Diffstat (limited to 'web/panettone/src/irc.lisp')
| -rw-r--r-- | web/panettone/src/irc.lisp | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/web/panettone/src/irc.lisp b/web/panettone/src/irc.lisp deleted file mode 100644 index a54112811f..0000000000 --- a/web/panettone/src/irc.lisp +++ /dev/null @@ -1,24 +0,0 @@ -;;;; Using irccat to send IRC notifications - -(in-package :panettone.irc) - -(defun get-irccat-config () - "Reads the IRCCATHOST and IRCCATPORT environment variables, and returns them as two values if they both exist (otherwise, returns NIL)." - (destructuring-bind (host port) - (mapcar #'uiop:getenvp '("IRCCATHOST" "IRCCATPORT")) - (when (and host port) - (values host (parse-integer port))))) - -(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) -If CHANNEL is NIL, sends the BODY to the first channel configured in the IRCCat configuration. -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~%" channel body) - (finish-output (socket-stream socket))) - (ignore-errors (socket-close socket))))))) |