Make set_presence command return error when session not found

Should fix issue #4274
processone · Sep 2, 2024 · 017b2fe · 017b2fe
1 parent 5f47860
commit 017b2fe
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
@@ -1425,8 +1425,10 @@ set_presence(User, Host, Resource, Type, Show, Status, Priority) ->
         show = misc:binary_to_atom(Show),
         priority = Priority,
         sub_els = []},
-    Ref = ejabberd_sm:get_session_pid(User, Host, Resource),
-    ejabberd_c2s:set_presence(Ref, Pres).
+    case ejabberd_sm:get_session_pid(User, Host, Resource) of
+	none -> throw({error, "User session not found"});
+	Ref -> ejabberd_c2s:set_presence(Ref, Pres)
+    end.
 
 user_sessions_info(User, Host) ->
     lists:filtermap(fun(Resource) ->