Force membership of channel on login
This commit is contained in:
parent
fa0a0c0c4d
commit
91bf17f57e
|
@ -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)]))))))))))
|
||||
|
|
Loading…
Reference in New Issue