clientInformSubscription

1 files changed, 11 insertions, 7 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index d10fe4c2..4270f89c 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -760,17 +760,14 @@ clientInformSubscription state fail k stanza = do
                 , ConfigFiles.modifySubscribers )
     addToRosterFile      addf (clientUser client) to addrs
     removeFromRosterFile remf (clientUser client) to addrs
-    -- TODO
+
     -- send roster update to clients
-    --  approve: both ( ∈ buddies) else from
-    --  reject: to ( ∈ buddies ) else none 
     (clients,ktc) <- atomically $ do
         cbu <- readTVar (clientsByUser state)
         let mlp = mu >>= flip Map.lookup cbu
         let cs = maybe [] (Map.toList . networkClients) mlp
         ktc <- readTVar (keyToChan state)
         return (cs,ktc)
-
     forM_ clients $ \(ck, client) -> do
         when (clientIsInterested client) $ do
         flip (maybe $ return ()) (Map.lookup ck ktc) $ \con -> do
@@ -780,10 +777,17 @@ clientInformSubscription state fail k stanza = do
         update <- makeRosterUpdate cjid to relationship
         sendModifiedStanzaToClient update (connChan con)
 
-    
     -- notify peer
-    return ()
-
+    let dsts = Map.fromList $ map ((,()) . PeerKey) addrs
+        cdsts = ktc Map.\\ dsts
+    forM_ (Map.toList cdsts) $ \(pk,con) -> do
+        let from = clientJID con client
+            to' = unsplitJID (mu, peerKeyToText pk, Nothing)
+        dup <- cloneStanza stanza
+        sendModifiedStanzaToPeer (dup { stanzaTo = Just $ to'
+                                      , stanzaFrom = Just from })
+                                 (connChan con)
+    
 peerInformSubscription state fail k stanza = do
     putStrLn $ "TODO: peerInformSubscription"
     -- remove from solicited