syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cope with libpurple weirdness

This commit is contained in:
Tony Garnock-Jones 2019-02-05 13:37:18 +00:00
parent 21131dc02c
commit 94c66094e6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
syndicate/examples/ircd/session.rkt
View File

@ -147,7 +147,8 @@
(send! (ircd-action this-conn m))
(match m
[(irc-message _ "PING" _ _) (void)] ;; RFC says servers don't reply to PINGs
[(irc-message _ "PASS" (list P) _)
[(or (irc-message _ "PASS" (list P) _)
(irc-message _ "PASS" '() P)) ;; libpurple does this (!)
(if (registered?)
(send* 462 (nick) #:trailing "You may not reregister")
(password P))]