1 files changed, 12 insertions, 1 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 823e1aba..41f0012e 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -609,7 +609,17 @@ sendCachedPresence state k = do
         sendModifiedStanzaToClient (dup { stanzaFrom=Just from' })
                                    (connChan con)
 
-    -- TODO: send local buddies in clientsByUser
+    -- Note: relying on self peer connection to send
+    -- send local buddies.
+    return ()
+
+clientSubscriptionRequest :: PresenceState -> IO () -> ConnectionKey -> Stanza -> IO ()
+clientSubscriptionRequest state fail k stanza = do
+    flip (maybe fail) (stanzaTo stanza) $ \to -> do
+    -- TODO: resolve hostname
+    -- TODO: add to solicitors
+    -- TODO; if already connected, send solicitation
+    -- TODO: addPeer
     return ()
 
 main = runResourceT $ do
@@ -647,6 +657,7 @@ main = runResourceT $ do
         , xmppInformClientPresence = informClientPresence state
         , xmppInformPeerPresence = informPeerPresence state
         , xmppAnswerProbe = answerProbe state
+        , xmppClientSubscriptionRequest = clientSubscriptionRequest state
         }
     liftIO $ do
     atomically $ putTMVar (server state) sv