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

send presence when we get XMPP presence; periodically poll presence

Browse source
This commit is contained in:
eta 2021-02-07 21:40:55 +00:00
parent d6a8ac8f33
commit 0c0f2feb70
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
stuff.lisp
View file

@ -11,6 +11,9 @@
((whatsapps ((whatsapps
:initform (make-hash-table :test 'equal) :initform (make-hash-table :test 'equal)
:accessor component-whatsapps) :accessor component-whatsapps)
(presence-timers
:initform (make-hash-table :test 'equal)
:accessor component-presence-timers)
(reconnect-timer (reconnect-timer
:initform nil :initform nil
:accessor component-reconnect-timer) :accessor component-reconnect-timer)
@ -139,6 +142,14 @@ Commands:
(loop (loop
for jid being the hash-keys in (component-whatsapps comp) for jid being the hash-keys in (component-whatsapps comp)
using (hash-value conn) using (hash-value conn)
do (when conn
(symbol-macrolet
((ticks (gethash jid (component-presence-timers comp))))
(unless ticks
(setf ticks 0))
(when (> (incf ticks) #.(/ (* 60 60) 5))
(format *debug-io* "~&periodic presence available for ~A~%" jid)
(whatscl::send-presence conn :available))))
append (unless conn append (unless conn
(list jid)))) (list jid))))
(num-users (length users-to-reconnect))) (num-users (length users-to-reconnect)))
@ -1219,6 +1230,11 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
:stanza-type "presence" :stanza-type "presence"
:id id :to from :from to :id id :to from :from to
:e e)))) :e e))))
((and uid (string-equal type "available"))
(let ((conn (gethash stripped (component-whatsapps comp))))
(when conn
(format *debug-io* "~&sending available presence for ~A~%" stripped)
(whatscl::send-presence conn :available))))
(t nil)))))) (t nil))))))
(defun whatsxmpp-presence-probe-handler (comp &key from to id &allow-other-keys) (defun whatsxmpp-presence-probe-handler (comp &key from to id &allow-other-keys)