1 files changed, 15 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 5dda4f4d..b895597f 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -19,6 +19,8 @@ module XMPPServer
     , addrToText
     , sendModifiedStanzaToPeer
     , sendModifiedStanzaToClient
+    , presenceProbe
+    , presenceSolicitation
     ) where
 
 import Debug.Trace
@@ -1025,6 +1027,19 @@ simulateChatError err mfrom =
     ]
 
 
+presenceSolicitation = presenceStanza (PresenceRequestSubscription True) "subscribe"
+
+presenceProbe = presenceStanza PresenceRequestStatus "probe"
+
+presenceStanza stanza_type type_attr me jid =
+    stanzaFromList stanza_type
+        [ EventBeginElement "{jabber:server}presence"
+                [ attr "to" jid
+                , attr "from" me
+                , attr "type" type_attr
+                ]
+        , EventEndElement "{jabber:server}presence" ]
+
 forkConnection :: Server ConnectionKey SockAddr
                 -> XMPPServerParameters
                 -> ConnectionKey