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.
48 lines
1.6 KiB
48 lines
1.6 KiB
{-# LANGUAGE OverloadedStrings #-} |
|
|
|
-- | Test connecting to google services |
|
module Run.Google where |
|
|
|
|
|
import qualified Data.Configurator as Conf |
|
import Network.Xmpp |
|
import System.Exit |
|
import System.Log.Logger |
|
import Test.HUnit |
|
import Network.TLS |
|
|
|
import Run.Config |
|
|
|
xmppConf = def {sessionStreamConfiguration = |
|
def{tlsParams = (tlsParams def){clientUseServerNameIndication = False}} |
|
} |
|
|
|
connectGoogle = do |
|
conf <- loadConfig |
|
_ <- configuredLoglevel conf |
|
infoM "Pontarius.Xmpp" "Trying to connect to google server" |
|
let realm = "google.com" |
|
user <- Conf.require conf "google.user" |
|
password <- Conf.require conf "google.password" |
|
mbSess <- session realm (simpleAuth user password) xmppConf |
|
sess <- case mbSess of |
|
Left e -> do |
|
assertFailure $ "google session could not be initialized" ++ show e |
|
exitFailure |
|
Right r -> return r |
|
infoM "Pontarius.Xmpp" "Done trying to connect to google server" |
|
|
|
-- connectGoogleSCM = do |
|
-- conf <- loadConfig |
|
-- _ <- configuredLoglevel conf |
|
-- infoM "Pontarius.Xmpp" "Trying to connect to google server" |
|
-- let realm = "gcm.googleapis.com" |
|
-- user <- Conf.require conf "google.user" |
|
-- password <- Conf.require conf "google.password" |
|
-- mbSess <- session realm (simpleAuth user password) xmppConf |
|
-- sess <- case mbSess of |
|
-- Left e -> do |
|
-- assertFailure $ "google session could not be initialized" ++ show e |
|
-- exitFailure |
|
-- Right r -> return r |
|
-- infoM "Pontarius.Xmpp" "Done trying to connect to google server"
|
|
|