module Network.XMPP.Auth where
import Network.XMPP.XMLParse
import Network.XMPP.XMPPMonad
import Network.XMPP.Stanzas
import Network.XMPP.MyDebug
startAuth :: String
-> String
-> String
-> String
-> XMPP Integer
startAuth username server password resource = do
response <- sendIqWait server "get" [XML "query"
[("xmlns","jabber:iq:auth")]
[XML "username"
[]
[CData username]]]
case xmlPath ["query","password"] response of
Nothing -> return 1
Just _ -> do
response' <- sendIqWait server "set" [XML "query"
[("xmlns","jabber:iq:auth")]
[XML "username" []
[CData username],
XML "password" []
[CData password],
XML "resource" []
[CData resource]]]
return $ getErrorCode response'