Send messages to all connected clients.

1 files changed, 14 insertions, 0 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 3215913b..45b8729a 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -16,6 +16,7 @@ import Data.Char
 import ConfigFiles
 import Control.Arrow (second)
 import Data.Traversable (sequenceA)
+import Data.List (partition)
 
 import System.INotify
 #ifndef NOUTMP
@@ -529,6 +530,18 @@ instance JabberPeerSession PeerSession where
                    
         let rsc' = maybe curtty id rsc
         withJust (name (msgTo msg)) $ \nto -> do
+        let send ((foundto,foundrsc),(ttypid,clients)) =
+                forM_ (Map.toList clients) $ \(pid,client) -> do
+                    atomically $ writeTChan (clientChan client) (Chat msg)
+        let goodtos = filter (\((fto,_),_)->fto==nto) (Map.assocs cmap)
+            (good_rs,other_rs) = partition (\((_,r),_)->r==rsc') goodtos
+
+        -- new behavior that sends to all available resources
+        mapM_ send good_rs
+        mapM_ send other_rs 
+        -- TODO: test good_rs and other_rs for null and handle appropriately
+        {-
+        -- Old behavior that only sends to a single resource
         case Map.lookup (nto,rsc') cmap of
             Just (ttypid,clients) -> 
                 forM_ (Map.toList clients) $ \(pid,client) -> do
@@ -536,6 +549,7 @@ instance JabberPeerSession PeerSession where
             Nothing            -> 
                 -- todo: fallback
                 return () 
+        -}
 
 
 type RefCount = Int