+2008-12-12 Alexey Shchepin <alexey@process-one.net>
+
+ * src/ejabberd_c2s.erl: Bugfix in "from" attribute checking
+
2008-12-09 Christophe Romain <christophe.romain@process-one.net>
* src/mod_pubsub/mod_pubsub.erl: prevent publish items with invalid
check_from(El, FromJID) ->
case xml:get_tag_attr("from", El) of
false ->
- jlib:replace_from(FromJID, El);
- {value, JIDElString} ->
- JIDEl = jlib:string_to_jid(JIDElString),
- case JIDEl#jid.lresource of
- "" ->
- %% Matching JID: The stanza is ok
- if JIDEl#jid.luser == FromJID#jid.luser andalso
- JIDEl#jid.lserver == FromJID#jid.lserver ->
+ El;
+ {value, SJID} ->
+ JID = jlib:string_to_jid(SJID),
+ case JID of
+ error ->
+ 'invalid-from';
+ #jid{} ->
+ if
+ (JID#jid.luser == FromJID#jid.luser) and
+ (JID#jid.lserver == FromJID#jid.lserver) and
+ (JID#jid.lresource == FromJID#jid.lresource) ->
El;
- true ->
+ true ->
'invalid-from'
- end;
- _ ->
- %% Matching JID: The stanza is ok
- if JIDEl#jid.luser == FromJID#jid.luser andalso
- JIDEl#jid.lserver == FromJID#jid.lserver andalso
- JIDEl#jid.lresource == FromJID#jid.lresource ->
- El;
- true ->
- 'invalid-from'
end
end
end.