adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Wrote the list plugin command.

Browse source
This commit is contained in:
Julien Dessaux 2010-04-22 00:05:35 +02:00
parent 50b21c21ee
commit d922240e9a
6 changed files with 40 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Plugins/Core.hs
View file

@ -5,6 +5,7 @@ module Plugins.Core
import Control.Concurrent.Chan(Chan)
import Control.Exception
import Control.Monad.State
import Data.Maybe(fromMaybe)
import Prelude hiding (catch)
import Hsbot.IRCPlugin
@ -28,16 +29,27 @@ run = forever $ do
eval :: BotMsg -> IrcPlugin ()
eval (InternalCmd intCmd) = do
case intCmdCmd intCmd of
"RUN" -> let stuff = words $ intCmdMsg intCmd
in case head stuff of
"RUN" -> let stuff = words $ intCmdMsg intCmd
request = intCmdBotMsg intCmd
in case head stuff of
"list" -> listPlugins request
"load" -> loadPlugin $ tail stuff
"reload" -> reloadPlugin $ tail stuff
"unload" -> unloadPlugin $ tail stuff
_ -> lift $ trace $ show intCmd -- TODO : help message
_ -> lift $ trace $ show intCmd
eval (InputMsg msg) = return ()
"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]
_ -> lift $ trace $ show intCmd
eval (InputMsg _) = return ()
eval _ = return ()
-- | The list command
listPlugins :: Maybe IrcMsg -> IrcPlugin ()
listPlugins request = do
sendCommandWithRequest "LIST" "CORE" (unwords []) request
-- | The load command
loadPlugin :: [String] -> IrcPlugin ()
loadPlugin pluginNames = mapM_ (sendCommand "LOAD" "CORE") pluginNames