adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added an utility function to correctly answer a message we receive (aka /msg)

Browse source
This commit is contained in:
Julien Dessaux 2010-04-22 19:42:53 +02:00
parent d922240e9a
commit 727adadc28
3 changed files with 21 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Plugins/Core.hs
View file

@ -28,9 +28,9 @@ run = forever $ do
where
eval :: BotMsg -> IrcPlugin ()
eval (InternalCmd intCmd) = do
let request = intCmdBotMsg intCmd
case intCmdCmd intCmd of
"RUN" -> let stuff = words $ intCmdMsg intCmd
request = intCmdBotMsg intCmd
in case head stuff of
"list" -> listPlugins request
"load" -> loadPlugin $ tail stuff
@ -38,9 +38,7 @@ run = forever $ do
"unload" -> unloadPlugin $ tail stuff
_ -> lift $ trace $ show intCmd -- TODO : help message
"ANSWER" -> let stuff = intCmdMsg intCmd
request = intCmdBotMsg intCmd
chanOrigin = head $ parameters (fromMaybe (IrcMsg Nothing "ARGH" []) request)
in writeMsg $ OutputMsg $ IrcMsg Nothing "PRIVMSG" [chanOrigin, "Loaded plugins : " ++ stuff]
in answerMsg request ("Loaded plugins : " ++ stuff)
_ -> lift $ trace $ show intCmd
eval (InputMsg _) = return ()
eval _ = return ()