pontarius-mediaserver-0.0.1.0: DeviceTest.hs

import Network.XMPP.PontariusXMPP
import Media.XPMN.PontariusMediaServer.XPMNDeviceServer
import Control.Concurrent.Chan (Chan, newChan, readChan, writeChan)
import Data.XML.Types
import Data.String
import qualified Data.Map as DM
import Control.Concurrent (forkIO)

host = "test.pontarius.org"
user = "sprint1"
server = "test.pontarius.org"
port = 5222
resource = "pontarius"
password = ""

main :: IO ()
main =
  do -- Connect the XMPP account
     deviceServer <- start getFeatures host port
                     (jid (Just user) server (Just resource)) password
     
     -- writeChan co $ action "id0123456789" (jid (Just "admin")
     --                                       "test.pontarius.org"
     --                                       (Just "resource"))
       -- Element { elementName = fromString "test"
       --         , elementAttributes = DM.empty
       --         , elementNodes = [] }
     forkIO $ loop $ inEvents deviceServer
     return ()
    where
      loop :: Chan DeviceInEvent -> IO ()
      loop c =
        do e <- readChan c
           putStrLn $ "DeviceTest: Got DeviceInEvent." ++ (show e)
           loop c

getFeatures :: [String]
getFeatures = []