Force membership of channel on login
This commit is contained in:
parent
c5848e4c0b
commit
21131dc02c
|
@ -58,7 +58,9 @@
|
||||||
(registered? #t)
|
(registered? #t)
|
||||||
(send* 375 (nick) #:trailing (format "- ~a Message of the day - " server-name))
|
(send* 375 (nick) #:trailing (format "- ~a Message of the day - " server-name))
|
||||||
(for [(line motd-lines)] (send* 372 (nick) #:trailing (format "- ~a" line)))
|
(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
|
[else
|
||||||
(send* 464 (nick) #:trailing "Password incorrect")
|
(send* 464 (nick) #:trailing "Password incorrect")
|
||||||
(stop-facet connection-root-facet)]))))))))))
|
(stop-facet connection-root-facet)]))))))))))
|
||||||
|
|
Loading…
Reference in New Issue