~singpolyma/cheogram-sip

439821e49f14836c4b599714b1e88fe683ed345a — Stephen Paul Weber 1 year, 4 months ago eaed2d1
Add XEP-0353 store hint to JMI messages

To make sure they get into MAM, offline storage, etc
1 files changed, 4 insertions(+), 2 deletions(-)

M gateway.hs
M gateway.hs => gateway.hs +4 -2
@@ 231,7 231,8 @@ main = do
									XMPP.messagePayloads = [
										XML.Element (s"{urn:xmpp:jingle-message:0}propose")
											[(s"id", [XML.ContentText sid])]
											[XML.NodeElement $ XML.Element (s"{urn:xmpp:jingle:apps:rtp:1}description") [(s"media", [XML.ContentText $ s"audio"])] []]
											[XML.NodeElement $ XML.Element (s"{urn:xmpp:jingle:apps:rtp:1}description") [(s"media", [XML.ContentText $ s"audio"])] []],
										XML.Element (s"{urn:xmpp:hints}store") [] []
									]
								}
			Just sfrom


@@ 249,7 250,8 @@ main = do
									XMPP.messagePayloads = [
										XML.Element (s"{urn:xmpp:jingle-message:0}retract")
											[(s"id", [XML.ContentText sid])]
											[]
											[],
										XML.Element (s"{urn:xmpp:hints}store") [] []
									]
								}
						Nothing -> forwardOn componentJid fullJids stanza