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

Force membership of channel on login

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

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

@ -58,7 +58,9 @@
(registered? #t)
(send* 375 (nick) #:trailing (format "- ~a Message of the day - " server-name))
(for [(line motd-lines)] (send* 372 (nick) #:trailing (format "- ~a" line)))
(send* 376 (nick) #:trailing (format "End of /MOTD command"))]
(send* 376 (nick) #:trailing (format "End of /MOTD command"))
(assert! (ircd-channel-member "#syndicate" this-conn)) ;; force membership!
]
[else
(send* 464 (nick) #:trailing "Password incorrect")
(stop-facet connection-root-facet)]))))))))))