adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added the ability to directly answer /msg.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-08 14:57:12 +02:00
parent b3d04f9a06
commit fa0bf06c91
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Hsbot/Message.hs
View file

@ -18,8 +18,9 @@ writeMsg :: Message -> Plugin (Env IO) ()
writeMsg msg = asks pluginMaster >>= liftIO . flip writeChan msg
answerMsg :: IRC.Message -> String -> Plugin (Env IO) ()
answerMsg request msg =
case IRC.msg_params request of
sender:_ -> writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [sender, msg]
[] -> return ()
answerMsg _ [] = return ()
answerMsg (IRC.Message (Just (IRC.NickName nick _ _)) _ (channel:_)) msg
| head channel == '#' = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [channel, msg]
| otherwise = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [nick, msg]
answerMsg _ _ = return ()

2
hsbot.cabal
View file

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