From 708f2d439b306fe546e86e1a5a65c4081a1a2677 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 13 Jul 2017 13:44:37 +0000 Subject: [PATCH 1/1] Add CTCP ping --- cloogleirc.icl | 1 + 1 file changed, 1 insertion(+) diff --git a/cloogleirc.icl b/cloogleirc.icl index 5d05563..980ea11 100644 --- a/cloogleirc.icl +++ b/cloogleirc.icl @@ -174,6 +174,7 @@ Start w | m.[0] == '!' # (msgs, w) = realProcess (split " " $ m % (1, size m)) w = (Just $ map reply msgs, w) + | m % (0,4) == "\001PING" = (Just [reply m], w) = (Just [], w) where reply = case (\(CSepList [t:_]) -> t.[0]) t of -- 2.20.1