44 lines
1.3 KiB
Haskell
44 lines
1.3 KiB
Haskell
module Hsbot.IRCPlugin
|
|
( readMsg
|
|
, sendCommand
|
|
, sendCommandWithRequest
|
|
, sendRegisterCommand
|
|
, sendUnregisterCommand
|
|
, writeMsg
|
|
) where
|
|
|
|
import Control.Concurrent.Chan
|
|
import Control.Monad.State
|
|
|
|
import Hsbot.Types
|
|
|
|
-- | Basic input output for IrcPlugins
|
|
readMsg :: IrcPlugin (BotMsg)
|
|
readMsg = do
|
|
chan <- gets instanceChan
|
|
input <- liftIO $ readChan chan
|
|
return input
|
|
|
|
writeMsg :: BotMsg -> IrcPlugin ()
|
|
writeMsg botMsg = do
|
|
serverChan <- gets instanceServerChan
|
|
liftIO $ writeChan serverChan $ botMsg
|
|
|
|
-- | Commands management
|
|
sendCommand :: String -> String -> String -> IrcPlugin ()
|
|
sendCommand cmd to params = sendCommandWithRequest cmd to params Nothing
|
|
|
|
sendCommandWithRequest :: String -> String -> String -> Maybe IrcMsg -> IrcPlugin ()
|
|
sendCommandWithRequest cmd to params originalRequest = do
|
|
serverChan <- gets instanceServerChan
|
|
from <- gets instanceName
|
|
liftIO $ writeChan serverChan $ InternalCmd $ IntCmd cmd from to params originalRequest
|
|
|
|
sendRegisterCommand :: String -> IrcPlugin ()
|
|
sendRegisterCommand cmd = sendCommand "REGISTER" "CORE" cmd
|
|
|
|
sendUnregisterCommand :: String -> IrcPlugin ()
|
|
sendUnregisterCommand cmd = sendCommand "UNREGISTER" "CORE" cmd
|
|
|
|
-- | a isAdmin helper : I need an admin plugin (to track admins' status around chans)
|
|
|