Remove XEP-0091 tags from test suite

diff --git a/test/ejabberd_SUITE.erl b/test/ejabberd_SUITE.erl
index a827a9174f0a078ba2eae61c1ad8464353bc5ae6..4f0823323397f0c4828c66a3188cef9db0f9567f 100644 (file)
--- a/test/ejabberd_SUITE.erl
+++ b/test/ejabberd_SUITE.erl
@@ -1286,7 +1286,7 @@ muc_slave(Config) ->
     %% Receive the room subject
     ?recv1(#message{from = PeerNickJID, type = groupchat,
              body = [#text{data = Subject}],
-            sub_els = [#delay{}, #legacy_delay{}]}),
+            sub_els = [#delay{}]}),
     %% Receive MUC history
     lists:foreach(
       fun(N) ->
@@ -1294,7 +1294,7 @@ muc_slave(Config) ->
              ?recv1(#message{from = PeerNickJID,
                       type = groupchat,
                       body = [Text],
-                      sub_els = [#delay{}, #legacy_delay{}]})
+                      sub_els = [#delay{}]})
       end, lists:seq(1, 5)),
     %% Sending a voice request
     VoiceReq = #xdata{
@@ -1450,7 +1450,6 @@ offline_slave(Config) ->
                         body = [#text{data = <<"body">>}],
                         subject = [#text{data = <<"subject">>}]}),
     true = lists:keymember(delay, 1, SubEls),
-    true = lists:keymember(legacy_delay, 1, SubEls),
     disconnect(Config).
 
 carbons_master(Config) ->
@@ -1596,7 +1595,7 @@ client_state_slave(Config) ->
     change_client_state(Config, inactive),
     wait_for_master(Config),
     ?recv1(#presence{from = Peer, type = unavailable,
-                    sub_els = [#delay{}, #legacy_delay{}]}),
+                    sub_els = [#delay{}]}),
     ?recv1(#message{from = Peer, thread = <<"1">>,
                    body = [#text{data = <<"body">>}],
                    sub_els = [#chatstate{type = active}]}),

diff --git a/tools/xmpp_codec.erl b/tools/xmpp_codec.erl
index 1d5cd88e0f9b862521dfa5a6ce2895d7c5060e9b..187098abc95816030fcd3990a6ba83ed5104f675 100644 (file)
--- a/tools/xmpp_codec.erl
+++ b/tools/xmpp_codec.erl
@@ -166,9 +166,6 @@ decode({xmlel, _name, _attrs, _} = _el, Opts) ->
        <<"http://jabber.org/protocol/bytestreams">>} ->
          decode_bytestreams_streamhost(<<"http://jabber.org/protocol/bytestreams">>,
                                        IgnoreEls, _el);
-      {<<"x">>, <<"jabber:x:delay">>} ->
-         decode_legacy_delay(<<"jabber:x:delay">>, IgnoreEls,
-                             _el);
       {<<"delay">>, <<"urn:xmpp:delay">>} ->
          decode_delay(<<"urn:xmpp:delay">>, IgnoreEls, _el);
       {<<"paused">>,
@@ -1109,7 +1106,6 @@ is_known_tag({xmlel, _name, _attrs, _} = _el) ->
       {<<"streamhost">>,
        <<"http://jabber.org/protocol/bytestreams">>} ->
          true;
-      {<<"x">>, <<"jabber:x:delay">>} -> true;
       {<<"delay">>, <<"urn:xmpp:delay">>} -> true;
       {<<"paused">>,
        <<"http://jabber.org/protocol/chatstates">>} ->
@@ -1936,9 +1932,6 @@ encode({chatstate, paused} = Paused) ->
 encode({delay, _, _} = Delay) ->
     encode_delay(Delay,
                 [{<<"xmlns">>, <<"urn:xmpp:delay">>}]);
-encode({legacy_delay, _, _} = X) ->
-    encode_legacy_delay(X,
-                       [{<<"xmlns">>, <<"jabber:x:delay">>}]);
 encode({streamhost, _, _, _} = Streamhost) ->
     encode_bytestreams_streamhost(Streamhost,
                                  [{<<"xmlns">>,
@@ -2181,7 +2174,6 @@ get_ns({chatstate, inactive}) ->
 get_ns({chatstate, paused}) ->
     <<"http://jabber.org/protocol/chatstates">>;
 get_ns({delay, _, _}) -> <<"urn:xmpp:delay">>;
-get_ns({legacy_delay, _, _}) -> <<"jabber:x:delay">>;
 get_ns({streamhost, _, _, _}) ->
     <<"http://jabber.org/protocol/bytestreams">>;
 get_ns({bytestreams, _, _, _, _, _, _}) ->
@@ -2374,7 +2366,6 @@ pp(pubsub, 8) ->
 pp(shim, 1) -> [headers];
 pp(chatstate, 1) -> [type];
 pp(delay, 2) -> [stamp, from];
-pp(legacy_delay, 2) -> [stamp, from];
 pp(streamhost, 3) -> [jid, host, port];
 pp(bytestreams, 6) ->
     [hosts, used, activate, dstaddr, mode, sid];
@@ -5397,60 +5388,6 @@ encode_bytestreams_streamhost_attr_port(1080, _acc) ->
 encode_bytestreams_streamhost_attr_port(_val, _acc) ->
     [{<<"port">>, enc_int(_val)} | _acc].
 
-decode_legacy_delay(__TopXMLNS, __IgnoreEls,
-                   {xmlel, <<"x">>, _attrs, _els}) ->
-    {Stamp, From} = decode_legacy_delay_attrs(__TopXMLNS,
-                                             _attrs, undefined, undefined),
-    {legacy_delay, Stamp, From}.
-
-decode_legacy_delay_attrs(__TopXMLNS,
-                         [{<<"stamp">>, _val} | _attrs], _Stamp, From) ->
-    decode_legacy_delay_attrs(__TopXMLNS, _attrs, _val,
-                             From);
-decode_legacy_delay_attrs(__TopXMLNS,
-                         [{<<"from">>, _val} | _attrs], Stamp, _From) ->
-    decode_legacy_delay_attrs(__TopXMLNS, _attrs, Stamp,
-                             _val);
-decode_legacy_delay_attrs(__TopXMLNS, [_ | _attrs],
-                         Stamp, From) ->
-    decode_legacy_delay_attrs(__TopXMLNS, _attrs, Stamp,
-                             From);
-decode_legacy_delay_attrs(__TopXMLNS, [], Stamp,
-                         From) ->
-    {decode_legacy_delay_attr_stamp(__TopXMLNS, Stamp),
-     decode_legacy_delay_attr_from(__TopXMLNS, From)}.
-
-encode_legacy_delay({legacy_delay, Stamp, From},
-                   _xmlns_attrs) ->
-    _els = [],
-    _attrs = encode_legacy_delay_attr_from(From,
-                                          encode_legacy_delay_attr_stamp(Stamp,
-                                                                         _xmlns_attrs)),
-    {xmlel, <<"x">>, _attrs, _els}.
-
-decode_legacy_delay_attr_stamp(__TopXMLNS, undefined) ->
-    erlang:error({xmpp_codec,
-                 {missing_attr, <<"stamp">>, <<"x">>, __TopXMLNS}});
-decode_legacy_delay_attr_stamp(__TopXMLNS, _val) ->
-    _val.
-
-encode_legacy_delay_attr_stamp(_val, _acc) ->
-    [{<<"stamp">>, _val} | _acc].
-
-decode_legacy_delay_attr_from(__TopXMLNS, undefined) ->
-    undefined;
-decode_legacy_delay_attr_from(__TopXMLNS, _val) ->
-    case catch dec_jid(_val) of
-      {'EXIT', _} ->
-         erlang:error({xmpp_codec,
-                       {bad_attr_value, <<"from">>, <<"x">>, __TopXMLNS}});
-      _res -> _res
-    end.
-
-encode_legacy_delay_attr_from(undefined, _acc) -> _acc;
-encode_legacy_delay_attr_from(_val, _acc) ->
-    [{<<"from">>, enc_jid(_val)} | _acc].
-
 decode_delay(__TopXMLNS, __IgnoreEls,
             {xmlel, <<"delay">>, _attrs, _els}) ->
     {Stamp, From} = decode_delay_attrs(__TopXMLNS, _attrs,

diff --git a/tools/xmpp_codec.hrl b/tools/xmpp_codec.hrl
index 4098a7fd6723e0045f9171455854997a49ca7f9a..af5903c93a74acbc5f7edbc6616e48481fdca3a0 100644 (file)
--- a/tools/xmpp_codec.hrl
+++ b/tools/xmpp_codec.hrl
@@ -137,9 +137,6 @@
 
 -record(feature_csi, {xmlns :: binary()}).
 
--record(legacy_delay, {stamp :: binary(),
-                       from :: any()}).
-
 -record(muc_user_destroy, {reason :: binary(),
                            jid :: any()}).
 

diff --git a/tools/xmpp_codec.spec b/tools/xmpp_codec.spec
index 61f438cbee397df42a798af7a94b09df2993c1d2..e8cf0612b7636c7912831f0c1184e086d140d8fd 100644 (file)
--- a/tools/xmpp_codec.spec
+++ b/tools/xmpp_codec.spec
@@ -1808,16 +1808,6 @@
                           dec = {dec_jid, []},
                           enc = {enc_jid, []}}]}).
 
--xml(legacy_delay,
-     #elem{name = <<"x">>,
-           xmlns = <<"jabber:x:delay">>,
-           result = {legacy_delay, '$stamp', '$from'},
-           attrs = [#attr{name = <<"stamp">>,
-                          required = true},
-                    #attr{name = <<"from">>,
-                          dec = {dec_jid, []},
-                          enc = {enc_jid, []}}]}).
-
 -xml(bytestreams_streamhost,
      #elem{name = <<"streamhost">>,
            xmlns = <<"http://jabber.org/protocol/bytestreams">>,