todo coment outline to complete roster logic

1 files changed, 24 insertions, 1 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index c781baf9..99d5a197 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -662,7 +662,7 @@ clientSubscriptionRequest state fail k stanza chan = do
 
 peerSubscriptionRequest :: PresenceState -> IO () -> ConnectionKey -> Stanza -> TChan Stanza -> IO ()
 peerSubscriptionRequest state fail k stanza chan = do
-    putStrLn $ "TODO: peerSubscriptionRequest"
+    putStrLn $ "Handling pending subscription from remote"
     flip (maybe fail) (stanzaFrom stanza) $ \from -> do
     flip (maybe fail) (stanzaTo stanza) $ \to -> do
     let (mto_u,h,_) = splitJID to
@@ -694,6 +694,9 @@ peerSubscriptionRequest state fail k stanza chan = do
         reply <- makeInformSubscription "jabber:server" to from True
         sendModifiedStanzaToPeer reply chan
      else do
+
+    -- TODO: if peer-connection is to self, then auto-approve local user.
+    
     -- Catch exception in case the user does not exist
     handle (\e -> let _ = isDoesNotExistError e in fail) $ do
     -- add from-address to to's pending
@@ -720,10 +723,30 @@ peerSubscriptionRequest state fail k stanza chan = do
 
 clientInformSubscription state fail k stanza = do
     putStrLn $ "TODO: clientInformSubscription"
+    -- approval:
+    --  add to subscribers
+    --  remove from pending
+    --  remove from others
+    -- rejection:
+    --  add to others
+    --  remove from pending
+    --  remove from subscribers
+    --
+    -- send roster update to clients
+    -- notify peer
     return ()
 
 peerInformSubscription state fail k stanza = do
     putStrLn $ "TODO: peerInformSubscription"
+    -- remove from solicited
+    -- if it was in solicited:
+    --   approval:
+    --     add to buddies
+    --     remove from others
+    --   rejection:
+    --     remove from buddies
+    --     add to others
+    --   send update to clients
     return ()
 
 main = runResourceT $ do