1 files changed, 21 insertions, 1 deletions

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 89022b2c..65faff9d 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -13,6 +13,7 @@ import qualified Data.Conduit.List  as CL
 import Data.Dependent.Sum
 import Data.Function
 import Data.Functor.Identity
+import Data.Maybe
 import Data.Monoid
 import qualified Data.Text          as T
          ;import Data.Text          (Text)
@@ -69,10 +70,11 @@ toxToXmpp laddr me theirhost = do
 
         toxmsg | msgID toxmsg == M PacketRequest -> return ()
 
-        Pkt INVITE_GROUPCHAT :=> Identity ginv ->
+        Pkt INVITE_GROUPCHAT :=> Identity ginv -> do
             xmppInstantMessage "jabber:server" im_from im_to
                 [ attr "style" "font-weight:bold; color:red" ]
                 ("INVITE(todo)" <> (T.pack $ show ginv))
+            xmppInvite "jabber:server"  me_h (fromJust im_from) (fromJust im_to) ginv
 
         toxmsg -> do
             xmppInstantMessage "jabber:server" im_from im_to
@@ -130,6 +132,24 @@ xmppPresence namespace mjid p = do
         C.yield   $ EventEndElement (ns "status")
     C.yield       $ EventEndElement (ns "presence")
 
+chatRoomJID me cid = T.pack (show cid) <> "@ngc." <> me
+
+xmppInvite :: Monad m => Text -> Text -> Text -> Text -> Invite -> ConduitM i XML.Event m ()
+xmppInvite namespace me them to inv =
+    let ns n = n { nameNamespace = Just namespace }
+    in mapM_ C.yield
+        [ EventBeginElement (ns "message")
+            [ attr "from" (chatRoomJID me $ inviteChatID inv)
+            , attr "to" to
+            ]
+        ,   EventBeginElement "{http://jabber.org/protocol/muc#user}x" []
+        ,     EventBeginElement "{http://jabber.org/protocol/muc#user}invite"
+                [ attr "from" them ]
+        ,     EventEndElement "{http://jabber.org/protocol/muc#user}invite"
+        ,   EventEndElement "{http://jabber.org/protocol/muc#user}x"
+        , EventEndElement (ns "message")
+        ]
+
 xmppTyping :: Monad m => Text
                               -> Maybe Text
                               -> Maybe Text