wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

actually print the tcl results, remove dumb flood limit

Browse Source
This commit is contained in:
Jon Doe
2020-09-26 22:39:52 +02:00
committed by Maciej Bonin
parent ee2859d4a1
commit 80455d20ec
2 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/Carrion/Plugin/IO/IRC/Client.hs
View File

@ -17,7 +17,7 @@ import Control.Lens
import Control.Concurrent(threadDelay,forkIO)
import qualified Data.Text as T
import Control.Concurrent.STM
import Control.Monad(liftM)
import Control.Monad(liftM,forever)
import Data.Monoid
import qualified Data.Map as M
import Data.ByteString(ByteString)
@ -175,11 +175,22 @@ initPlugin mh = do
}
detectCommandHandler' = detectCommandHandler mh
conn = tlsConnection $ WithClientConfig myClientConfig
conn = (tlsConnection $ WithClientConfig myClientConfig) & flood .~ 0
myNNS <- atomically $ newTMVar M.empty
let namesReplyHandler' = namesReplyHandler mh myNNS
rejoinOnKickHandler = fYourKickHandler myNNS
mySpecialHandlers = [rejoinOnKickHandler,detectCommandHandler',joinHandler',namesReplyHandler',otherJoinHandler,otherPartHandler]
cfg = defaultInstanceConfig myNickname & channels %~ (myChannels ++) & handlers %~ (++ mySpecialHandlers)
forkIO $ runClient conn cfg ()
myIRCState <- newIRCState conn cfg ()
forkIO $ runClientWith myIRCState
forkIO $ acceptExternalComms myIRCState mh
return GoodInitStatus
acceptExternalComms myIRCState manhole =
let inspectManhole = atomically . readTChan . getInputChan
regift g = atomically . (flip writeTChan g) . getOutputChan in
forever $ do
newGift <- liftIO $ inspectManhole manhole
runIRCAction (mapM (\fff -> send $ Privmsg "#exquisitebot" $ Right fff) (nlSplit $ getSewage newGift)) myIRCState
nlSplit = T.splitOn "\n"