From 14f87adb8b3cfc019b7de7f082e3851a91b6a364 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Aug 2009 00:19:14 +0200
Subject: Wrote the ping pong stuff

---
 Hsbot/IRC.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Hsbot/IRC.hs')

diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs
index d397456..cd6b7b8 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -4,9 +4,12 @@ module Hsbot.IRC
     , connectServer
     , initServer
     , parseIrcMsg
+    , ping
+    , pong
     )where
 
 import Control.Monad
+import Data.List(isPrefixOf)
 import Network
 import qualified Network.IRC as IRC
 import System.IO
@@ -56,3 +59,11 @@ initServer (server, handle) = do
     mapM_ (sendstr handle . IRC.encode . IRC.joinChan) (channels server)
     return ()
 
+-- | Check if a message is a PING
+ping :: String -> Bool
+ping = isPrefixOf "PING :"
+
+-- | Send a pong message given a ping message
+pong :: Handle -> String -> IO ()
+pong handle str = sendstr handle $ "PONG " ++ (drop 5 str)
+
-- 
cgit v1.2.3