jadedctrl/ chicken-ircc
Archived
1
0
Disbranĉigi 0
Fontkodo Tirpetoj Activity

Fetch users' hostmasks when 'userhost-in-name' isn't supported

This commit is contained in:
Jaidyn Ann 2023-01-08 13:05:50 -06:00
parent 6430952b5d
commit 3ddd88c9b6
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ircc.scm
View File

@ -137,8 +137,15 @@
(irc:channel-user-add! conn channel (irc:hostmask-nick user)) (irc:channel-user-add! conn channel (irc:hostmask-nick user))
(irc:user-add! conn (irc:hostmask-nick user)) (irc:user-add! conn (irc:hostmask-nick user))
(if (irc:hostmask? user) (if (irc:hostmask? user)
(irc:user-set! conn (irc:hostmask-nick user) 'hostmask user))) (irc:user-set! conn (irc:hostmask-nick user) 'hostmask user)
users))])) (irc:write-cmd conn "WHO" channel)))
users))]
[(eq? reply RPL_WHOREPLY)
(let ([nick (sixth params)]
[ident (third params)]
[host (fourth params)])
(irc:user-set! conn nick 'hostmask
(string-append nick "!" ident "@" host)))]))
;; Handle some commands necessary for basic functionality ;; Handle some commands necessary for basic functionality