Browse Source

Update EchoClient for DNS update, and make it a Cabal project

master
Jon Kristensen 13 years ago
parent
commit
8012e1c0bd
  1. 4
      examples/echoclient/EchoClient.hs
  2. 12
      examples/echoclient/echoclient.cabal

4
examples/EchoClient.hs → examples/echoclient/EchoClient.hs

@ -31,8 +31,6 @@ import System.Log.Handler.Simple
import System.Log.Logger import System.Log.Logger
-- Server and authentication details. -- Server and authentication details.
host = "localhost"
port = PortNumber 5222
realm = "species64739.dyndns.org" realm = "species64739.dyndns.org"
username = "echo" username = "echo"
password = "pwd" password = "pwd"
@ -57,9 +55,7 @@ main = do
updateGlobalLogger "Pontarius.Xmpp" (addHandler handler) updateGlobalLogger "Pontarius.Xmpp" (addHandler handler)
sess' <- session sess' <- session
host
realm realm
port
Nothing -- (Just defaultParamsClient) Nothing -- (Just defaultParamsClient)
(Just ([scramSha1 username Nothing password], resource)) (Just ([scramSha1 username Nothing password], resource))
sess <- case sess' of sess <- case sess' of

12
examples/echoclient/echoclient.cabal

@ -0,0 +1,12 @@
Name: echoclient
Version: 0.0.0.0
Cabal-Version: >= 1.6
Build-Type: Simple
License: OtherLicense
Copyright: Mahdi Abdinejadi, Jon Kristensen, Philipp Balzarek
Maintainer: info@jonkri.com
Synopsis: Echo client test program for Pontarius XMPP
Executable echoclient
Build-Depends: base, hslogger, mtl, pontarius-xmpp, text, tls
Main-Is: EchoClient.hs
Loading…
Cancel
Save