~singpolyma/cheogram: Persist rooms we create, allow anyone to send invites

5a9f319d5826f2d6adaa1f278308f23e1c0203a5 — Stephen Paul Weber 8 years ago 80c2e3b

Persist rooms we create, allow anyone to send invites

The latter is not supported on Prosody
<https://prosody.im/issues/issue/254> which is why we still set everyone
to owner when inviting.

patch browse .tar.gz

1 files changed, 2 insertions(+), 0 deletions(-)

M Main.hs

M Main.hs => Main.hs +2 -0

@@ 708,6 708,8 @@ componentStanza _ _ _ _ toComponent _ (ReceivedIQ (IQ { iqType = IQResult, iqFro
 			iqPayload = Just $ Element (fromString "{http://jabber.org/protocol/muc#owner}query") [] [
 				NodeElement $
 				fillFormField (fromString "muc#roomconfig_publicroom") (fromString "0") $
+				fillFormField (fromString "muc#roomconfig_persistentroom") (fromString "1") $
+				fillFormField (fromString "muc#roomconfig_allowinvites") (fromString "1") $
 				fillFormField (fromString "muc#roomconfig_membersonly") (fromString "1")
 				form { elementAttributes = [(fromString "{jabber:x:data}type", [ContentText $ fromString "submit"])] }
 			]