blob: 4b5e844fd740a257b70a467b08bac185edbe41af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
{-# LANGUAGE OverloadedStrings #-}
module Lib
( someFunc
) where
import qualified Data.ByteString as B
import qualified Data.Text as T
import qualified Data.Text.Encoding as TE
import Database.SQLite.Simple
import qualified Network.IRC.Client as IRC
import Message
import Plugin
someFunc :: IO ()
someFunc = do
connectIRC "irc.freenode.net" 6697 "test-bot-7890asdf"
-- let message = Message
-- { text = "75ac7b18a009ffe7a77a17a61d95c01395f36b44"
-- , channel = "#a-channel"
-- , nick = "anon"
-- }
-- Just plugin = matchPlugin message
-- dbConn <- open "db/sorbot_development.sqlite3"
-- response <- performPlugin plugin message dbConn
-- putStrLn $ case response of
-- Left e -> e
-- Right r -> r
-- close dbConn
connectIRC :: B.ByteString -> Int -> T.Text -> IO ()
connectIRC host port nick = do
conn <- IRC.connectWithTLS host port 1
let cfg = IRC.defaultIRCConf nick
let cfg' = cfg {
IRC._eventHandlers = handlePrivmsg : IRC._eventHandlers cfg
, IRC._channels = ["#test-chan-13513"]
}
IRC.start conn cfg'
handlePrivmsg :: IRC.EventHandler s
handlePrivmsg = IRC.EventHandler
{ IRC._description = ""
, IRC._matchType = IRC.EPrivmsg
, IRC._eventFunc = \evt -> dispatchEvent evt
}
where
dispatchEvent (IRC.Event serv (IRC.User nick) (IRC.Privmsg _ (Right msg))) =
IRC.send $ IRC.Privmsg nick (Right (TE.decodeUtf8 serv))
dispatchEvent (IRC.Event serv
(IRC.Channel chan nick) (IRC.Privmsg _ (Right msg))) =
IRC.send $ IRC.Privmsg chan (Right (TE.decodeUtf8 serv))
|
