Add CTCP ping
authorCamil Staps <info@camilstaps.nl>
Thu, 13 Jul 2017 13:44:37 +0000 (13:44 +0000)
committerCamil Staps <info@camilstaps.nl>
Thu, 13 Jul 2017 13:44:37 +0000 (13:44 +0000)
cloogleirc.icl

index 5d05563..980ea11 100644 (file)
@@ -174,6 +174,7 @@ Start w
                        | m.[0] == '!'
                                # (msgs, w) = realProcess (split " " $ m % (1, size m)) w
                                = (Just $ map reply msgs, 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
                        = (Just [], w)
                where
                        reply = case (\(CSepList [t:_]) -> t.[0]) t of