diff options
| author | tilpner | 2018-08-12 21:06:14 +0200 |
|---|---|---|
| committer | tilpner | 2018-08-12 21:06:14 +0200 |
| commit | 36cb27935fec119f459ad171c2fe645e4d716051 (patch) | |
| tree | 6641eb16972a138ecf4b67641db67f98e0d6cd81 | |
| parent | 7fdce5162b51d682046a7c75c9fbcaeac271c6d9 (diff) | |
| download | meep-36cb27935fec119f459ad171c2fe645e4d716051.tar.gz meep-36cb27935fec119f459ad171c2fe645e4d716051.tar.xz meep-36cb27935fec119f459ad171c2fe645e4d716051.zip | |
Allow clients to request capabilities at connection
| -rw-r--r-- | irc/bot.rkt | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/irc/bot.rkt b/irc/bot.rkt index 7366a6f..ff36dd0 100644 --- a/irc/bot.rkt +++ b/irc/bot.rkt @@ -74,7 +74,9 @@ (define (register [nick (current-nick)] #:user [user nick] #:mode [mode "0"] #:unused [unused "*"] #:realname [realname user] - #:pass [pass #f]) + #:pass [pass #f] + #:capabilities [caps '()]) + (for-each (λ (cap) (send (msg 'CAP '("REQ") cap))) caps) (when pass (send (msg 'PASS '() pass))) (send (msg 'USER (list user mode unused) realname)) (send (msg 'NICK '() nick))) |