Add declarations for XEP-0485: PubSub Server Information

Author: prefiks

include/xmpp_codec.hrl

@@ -432,11 +432,6 @@
                        lang = <<>> :: binary()}).
 -type stream_start() :: #stream_start{}.
 
--record(muc_subscription, {jid :: undefined | jid:jid(),
-                           nick = <<>> :: binary(),
-                           events = [] :: [binary()]}).
--type muc_subscription() :: #muc_subscription{}.
-
 -record(ibb_close, {sid = <<>> :: binary()}).
 -type ibb_close() :: #ibb_close{}.
 
@@ -661,9 +656,6 @@
 -record(sasl2_task_data, {sub_els = [] :: [xmpp_element() | fxml:xmlel()]}).
 -type sasl2_task_data() :: #sasl2_task_data{}.
 
--record(muc_subscriptions, {list = [] :: [#muc_subscription{}]}).
--type muc_subscriptions() :: #muc_subscriptions{}.
-
 -record('see-other-host', {host :: binary() | inet:ip_address() | {binary() | inet:ip_address(),inet:port_number()}}).
 -type 'see-other-host'() :: #'see-other-host'{}.
 
@@ -871,6 +863,14 @@
                         active :: 'none' | 'undefined' | binary()}).
 -type privacy_query() :: #privacy_query{}.
 
+-record(pubsub_serverinfo_remote_domain, {name = <<>> :: binary(),
+                                          type = [] :: ['bidi' | 'incoming' | 'outgoing']}).
+-type pubsub_serverinfo_remote_domain() :: #pubsub_serverinfo_remote_domain{}.
+
+-record(pubsub_serverinfo_domain, {name = <<>> :: binary(),
+                                   remote_domain :: 'undefined' | [#pubsub_serverinfo_remote_domain{}]}).
+-type pubsub_serverinfo_domain() :: #pubsub_serverinfo_domain{}.
+
 -record(muc_actor, {jid :: undefined | jid:jid(),
                     nick = <<>> :: binary()}).
 -type muc_actor() :: #muc_actor{}.
@@ -1022,6 +1022,9 @@
                       xmlns = <<>> :: binary()}).
 -type mix_setnick() :: #mix_setnick{}.
 
+-record(pubsub_serverinfo, {domain = [] :: [#pubsub_serverinfo_domain{}]}).
+-type pubsub_serverinfo() :: #pubsub_serverinfo{}.
+
 -record(sic, {ip :: undefined | inet:ip_address(),
               port :: 'undefined' | non_neg_integer(),
               xmlns = <<>> :: binary()}).
@@ -1427,6 +1430,14 @@
                    sub_els = [] :: [xmpp_element() | fxml:xmlel()]}).
 -type register() :: #register{}.
 
+-record(muc_subscription, {jid :: undefined | jid:jid(),
+                           nick = <<>> :: binary(),
+                           events = [] :: [binary()]}).
+-type muc_subscription() :: #muc_subscription{}.
+
+-record(muc_subscriptions, {list = [] :: [#muc_subscription{}]}).
+-type muc_subscriptions() :: #muc_subscriptions{}.
+
 -type xmpp_element() :: address() |
                         addresses() |
                         adhoc_actions() |
@@ -1592,6 +1603,9 @@
                         ps_unsubscribe() |
                         pubsub() |
                         pubsub_owner() |
+                        pubsub_serverinfo() |
+                        pubsub_serverinfo_domain() |
+                        pubsub_serverinfo_remote_domain() |
                         push_disable() |
                         push_enable() |
                         push_notification() |

specs/xmpp_codec.spec

@@ -5671,6 +5671,59 @@
 		   result = {fast_token, '$expiry', '$token'}
 		}).
 
+-xml(pubsub_serverinfo,
+     #elem{name = <<"serverinfo">>,
+		   xmlns = <<"urn:xmpp:serverinfo:0">>,
+		   module = 'xep0485',
+		   result = {pubsub_serverinfo, '$domain'},
+		   refs = [#ref{name = pubsub_serverinfo_domain,
+		                label = '$domain',
+		                min = 0}]}).
+
+-xml(pubsub_serverinfo_domain,
+     #elem{name = <<"domain">>,
+		   xmlns = <<"urn:xmpp:serverinfo:0">>,
+		   module = 'xep0485',
+		   result = {pubsub_serverinfo_domain, '$name', '$remote_domain'},
+		   attrs = [#attr{name = <<"name">>,
+		                  label = '$name',
+		                  required = true}],
+		   refs = [#ref{name = pubsub_serverinfo_federation,
+		                label = '$remote_domain',
+		                min = 0, max = 1}]}).
+
+-xml(pubsub_serverinfo_federation,
+     #elem{name = <<"federation">>,
+		   xmlns = <<"urn:xmpp:serverinfo:0">>,
+		   module = 'xep0485',
+		   result = '$remote_domain',
+		   refs = [#ref{name = pubsub_serverinfo_remote_domain,
+		                label = '$remote_domain',
+		                min = 0}]}).
+
+-xml(pubsub_serverinfo_remote_domain,
+     #elem{name = <<"remote-domain">>,
+		   xmlns = <<"urn:xmpp:serverinfo:0">>,
+		   module = 'xep0485',
+		   result = {pubsub_serverinfo_remote_domain, '$name', '$type'},
+		   attrs = [#attr{name = <<"name">>,
+		                  label = '$name',
+		                  required = true}],
+		   refs = [#ref{name = pubsub_serverinfo_connection,
+		                label = '$type',
+		                min = 0}]}).
+
+-xml(pubsub_serverinfo_connection,
+     #elem{name = <<"connection">>,
+		   xmlns = <<"urn:xmpp:serverinfo:0">>,
+		   module = 'xep0485',
+		   result = '$type',
+		   attrs = [#attr{name = <<"type">>,
+		                  label = '$type',
+		                  required = true,
+		                  enc = {enc_enum, []},
+		                  dec = {dec_enum, [[incoming, outgoing, bidi]]}}]}).
+
 -spec dec_tzo(_) -> {integer(), integer()}.
 dec_tzo(Val) ->
     [H1, M1] = binary:split(Val, <<":">>),