about summary refs log tree commit diff
path: root/web/panettone/src/irc.lisp
diff options
context:
space:
mode:
authorglittershark <grfn@gws.fyi>2020-11-18T14·08+0000
committerglittershark <grfn@gws.fyi>2020-11-19T00·29+0000
commite1067b1497b3dea0c37ae51bba21f42f1e7d35b5 (patch)
treeb3c68b9c65e08616a3e0dc7cefc5abdfa5d49be8 /web/panettone/src/irc.lisp
parent4331bc8da76ae67a43d64ff5355598a2699a647f (diff)
revert(panettone): announce newly created issues using irccat r/1884
This reverts commit 2e2bdf9c6ce1cd66ba5cfe1a42786a6f486b7969.

Reason for revert: this is not working, and is resulting in newly created issues just showing a blank page (b/74)

Change-Id: I3f06afc52d6c5289269402fc75bb32ad9c376bf4
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2082
Tested-by: BuildkiteCI
Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to 'web/panettone/src/irc.lisp')
-rw-r--r--web/panettone/src/irc.lisp24
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 a54112811f66..000000000000
--- 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)))))))