a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

don't send presence subscription requests for nameless numbers

Browse source
This commit is contained in:
eta 2020-07-13 22:34:15 +01:00
parent ae303489ad
commit 37b3ae2014
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
stuff.lisp
View file

@ -548,11 +548,10 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(unless (sqlite:step-statement get-stmt)
(error "No contact with localpart ~A exists!" localpart))
(with-bound-columns (subscription-state name notify ctid) get-stmt
(when (equal subscription-state "none")
(let ((name-to-use (or name
(when notify (concatenate 'string "~" notify))
(substitute #\+ #\u localpart)))
(from (concatenate 'string localpart "@" (component-name comp))))
(let ((name-to-use (or name
(when notify (concatenate 'string "~" notify))))
(from (concatenate 'string localpart "@" (component-name comp))))
(when (and (equal subscription-state "none") name-to-use)
(with-presence (comp jid
:type "subscribe"
:from from)