From 58efa6df5bbecd4b0a2e0081a092b0f0f2425113 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 22 Nov 2020 14:13:22 -0500 Subject: fix(panettone): Prefix all IRC messages with a ZWSP Prefix all IRC notifications from panettone with a unicode zero-width-space so that they don't get picked up by other IRC bots (notably bslsk05). Change-Id: I350fd1b6d2145e496c22a8f56ba3530fc9f1a978 Reviewed-on: https://cl.tvl.fyi/c/depot/+/2127 Tested-by: BuildkiteCI Reviewed-by: lukegb Reviewed-by: tazjin --- web/panettone/src/irc.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'web/panettone/src') diff --git a/web/panettone/src/irc.lisp b/web/panettone/src/irc.lisp index c94b0d2f4bea..f116e2a70631 100644 --- a/web/panettone/src/irc.lisp +++ b/web/panettone/src/irc.lisp @@ -21,6 +21,9 @@ May signal a condition if sending fails." (let ((socket (socket-connect irchost ircport))) (unwind-protect (progn - (format (socket-stream socket) "~@[~A ~]~A~%" channel body) + (format (socket-stream socket) "~@[~A ~]~A~A~%" + channel + #\ZERO_WIDTH_SPACE + body) (finish-output (socket-stream socket))) (ignore-errors (socket-close socket))))))) -- cgit 1.4.1