adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Implemented bot commands parsing.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-10 23:21:28 +02:00
parent fa0bf06c91
commit aba484db54
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Hsbot/Message.hs
View file

@ -1,10 +1,12 @@
module Hsbot.Message module Hsbot.Message
( answerMsg ( answerMsg
, getCommand
, readMsg , readMsg
, writeMsg , writeMsg
) where ) where
import Control.Concurrent import Control.Concurrent
import qualified Data.List as L
import Control.Monad.Reader import Control.Monad.Reader
import qualified Network.IRC as IRC import qualified Network.IRC as IRC
@ -24,3 +26,13 @@ answerMsg (IRC.Message (Just (IRC.NickName nick _ _)) _ (channel:_)) msg
| otherwise = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [nick, msg] | otherwise = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [nick, msg]
answerMsg _ _ = return () answerMsg _ _ = return ()
-- | Get the command in the IRC message if there is one
getCommand :: IRC.Message -> Env IO [String]
getCommand (IRC.Message _ _ (_:msg:[])) = do
currentBotState <- asks envBotState >>= liftIO . readMVar
let cmd:stuff = if msg /= "" then words msg else ["",""]
if botNickname currentBotState `L.isPrefixOf` cmd
then return stuff
else return []
getCommand _ = return []

2
hsbot.cabal
View file

@ -1,5 +1,5 @@
Name: hsbot Name: hsbot
Version: 0.4.11 Version: 0.4.12
Cabal-version: >=1.2 Cabal-version: >=1.2
Synopsis: A multipurposes IRC bot Synopsis: A multipurposes IRC bot
Description: Description: