fix: set meta.pre-auth to skip redirect_url if token validated

otherwise if redirect_url for mod_register is set, then we can't register even
if a valid invite token has been presented

Author: sstrigler

src/mod_invites_register.erl

@@ -74,7 +74,8 @@ c2s_unauthenticated_packet(#{invite := Invite} = State,
                    IQ1 = xmpp:set_els(IQ, [Register]),
                    User = Invite#invite_token.account_name,
                    IQ2 = xmpp:set_from_to(IQ1, jid:make(User, Server), jid:make(Server)),
-                   ResIQ = mod_register:process_iq(IQ2),
+                   Meta = xmpp:get_meta(IQ2),
+                   ResIQ = mod_register:process_iq(xmpp:set_meta(IQ2, Meta#{pre_auth => true})),
                    ResIQ1 = xmpp:set_from_to(ResIQ, jid:make(Server), undefined),
                    {stop, ejabberd_c2s:send(State, ResIQ1)}
                 end);

src/mod_register.erl

@@ -215,8 +215,9 @@ process_iq(#iq{type = get, from = From, to = To, id = ID, lang = Lang} = IQ,
     Instr = translate:translate(
 	      Lang, ?T("Choose a username and password to register "
 		       "with this server")),
+    IsPreAuth = maps:get(pre_auth, xmpp:get_meta(IQ), false) == true,
     URL = mod_register_opt:redirect_url(Server),
-    if (URL /= undefined) and not IsRegistered ->
+    if (URL /= undefined) and not IsRegistered and not IsPreAuth ->
 	    Desc = str:translate_and_format(Lang, ?T("To register, visit ~s"), [URL]),
 	    xmpp:make_iq_result(
 	      IQ, #register{instructions = Desc,

test/invites_tests.erl

@@ -475,15 +475,34 @@ ibr(Config0) ->
     ?match(#iq{type = result, sub_els = [#register{username = <<>>}]},
            send_get_iq_register(Config3)),
     ?match(#iq{type = result}, send_iq_register(Config3, <<"some_self_chosen_name">>)),
+    RedirectUrl = <<"http://localhost">>,
+    NewRegisterOpts2 = gen_mod:set_opt(redirect_url, RedirectUrl, NewRegisterOpts),
+    update_module_opts(Server, mod_register, NewRegisterOpts2),
+
+    Config4 = reconnect(Config3),
+    #invite_token{token = Token4} = create_account_invite(Server, {<<>>, Server}),
+    ?match(#iq{type = result}, send_pars(Config4, Token4)),
+    #iq{type = result, sub_els = [#register{sub_els = SubEls}]} =
+           send_get_iq_register(Config4),
+    ?match([], lists:filter(fun(El) ->
+				    Decoded = xmpp:decode(El),
+				    case Decoded of
+					#oob_x{url = RedirectUrl} -> true;
+					_ -> false
+				    end
+			    end,
+			    SubEls)),
+    ?match(#iq{type = result}, send_iq_register(Config4, <<"yet_another_self_chosen_name">>)),
 
     ejabberd_auth:remove_user(AccountName, Server),
+    ejabberd_auth:remove_user(<<"yet_another_self_chosen_name">>, Server),
     ejabberd_auth:remove_user(<<"some_self_chosen_name">>, Server),
     ejabberd_auth:remove_user(<<"some_much_better_name">>, Server),
     update_module_opts(Server, mod_register, OldRegisterOpts),
     mod_invites:remove_user(<<"inviter">>, Server),
     mod_invites:expire_tokens(<<>>, Server),
-    ?match(3, mod_invites:cleanup_expired()),
-    disconnect(Config3).
+    ?match(4, mod_invites:cleanup_expired()),
+    disconnect(Config4).
 
 ibr_reserved(Config0) ->
     Server = ?config(server, Config0),