~singpolyma/cheogram-sip

722469b6c5ae51195ccc2b922b879703d57c54e6 — Stephen Paul Weber 3 months ago 5d41886 master
Reply to all IQs as required by RFC
1 files changed, 3 insertions(+), 0 deletions(-)

M gateway.hs
M gateway.hs => gateway.hs +3 -0
@@ 308,6 308,9 @@ main = do
					liftIO $ forM_ sfrom $ \fullFrom -> forM_ (sessionInitiateId stanza) $ \(_, sid) ->
						Cache.insert fullJids sid fullFrom
					bounceStanza stanza from asteriskJid
				| XMPP.ReceivedIQ iq <- stanza,
				  XMPP.iqType iq `elem` [XMPP.IQGet, XMPP.IQSet] ->
					XMPP.putStanza $ iqError notImplemented iq
				| otherwise ->
					print ("DUNNO", stanza)