You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.3 KiB
46 lines
1.3 KiB
14 years ago
|
{-# LANGUAGE NoMonomorphismRestriction, OverloadedStrings #-}
|
||
|
|
module Network.XMPP where
|
||
|
|
|
||
|
|
import Control.Monad
|
||
|
|
import Control.Monad.Trans.Class
|
||
|
|
import Control.Monad.Trans.State
|
||
|
|
|
||
|
|
import qualified Data.ByteString as BS
|
||
|
|
import Data.Text as Text
|
||
|
|
|
||
|
|
import Network
|
||
|
|
import Network.XMPP.Concurrent
|
||
|
|
import Network.XMPP.Monad
|
||
|
|
import Network.XMPP.TLS
|
||
|
|
import Network.XMPP.Stream
|
||
|
|
import Network.XMPP.SASL
|
||
|
|
import Network.XMPP.Types
|
||
|
|
import Network.XMPP.Bind
|
||
|
|
import Network.XMPP.Session
|
||
|
|
|
||
|
|
|
||
|
|
import System.IO
|
||
|
|
|
||
|
|
--fromHandle :: Handle -> Text -> Text -> Maybe Text -> Text -> IO ((), XMPPState)
|
||
|
|
fromHandle :: Handle -> Text -> Text -> Maybe Text -> Text -> XMPPThread a
|
||
|
|
-> IO ((), XMPPState)
|
||
|
|
fromHandle handle hostname username resource password a =
|
||
|
|
xmppFromHandle handle hostname username resource $ do
|
||
|
|
xmppStartStream
|
||
|
|
-- this will check whether the server supports tls
|
||
|
|
-- on it's own
|
||
|
|
xmppStartTLS exampleParams
|
||
|
|
xmppSASL password
|
||
|
|
xmppBind
|
||
|
|
xmppSession
|
||
|
|
runThreaded a
|
||
|
|
return ()
|
||
|
|
|
||
|
|
connectXMPP :: HostName -> Text -> Text -> Maybe Text
|
||
|
|
-> Text -> XMPPThread a -> IO ((), XMPPState)
|
||
|
|
connectXMPP host hostname username resource passwd a = do
|
||
|
|
con <- connectTo host (PortNumber 5222)
|
||
|
|
hSetBuffering con NoBuffering
|
||
|
|
fromHandle con hostname username resource passwd a
|
||
|
|
|