From e1067b1497b3dea0c37ae51bba21f42f1e7d35b5 Mon Sep 17 00:00:00 2001 From: glittershark Date: Wed, 18 Nov 2020 14:08:30 +0000 Subject: revert(panettone): announce newly created issues using irccat 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 --- web/panettone/src/irc.lisp | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 web/panettone/src/irc.lisp (limited to 'web/panettone/src/irc.lisp') 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))))))) -- cgit 1.4.1