Add debugging command to force chat metadata refresh

This commit is contained in:
eta 2020-09-16 13:47:16 +01:00
parent 2409b8b705
commit 0e38259584
1 changed files with 8 additions and 0 deletions

View File

@ -960,6 +960,14 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
for (localpart . subject) in chats
do (request-wa-chat-metadata comp conn stripped localpart)))
(reply "You're not connected to WhatsApp."))))
((uiop:string-prefix-p "refresh-chat " body)
(let ((conn (gethash stripped (component-whatsapps comp)))
(localpart-to-use (subseq body #.(length "refresh-chat "))))
(if conn
(progn
(reply (format nil "Refreshing metadata for ~A..." localpart-to-use))
(request-wa-chat-metadata comp conn stripped localpart-to-use))
(reply "You're not connected to WhatsApp."))))
(t
(reply "Unknown command. Try `help` for a list of supported commands."))))))