source: project/release/4/vandusen/trunk/handlers.scm @ 21508

Last change on this file since 21508 was 18259, checked in by Moritz Heidkamp, 11 years ago

vandusen: initial import

File size: 344 bytes
Line 
1(command 'fall-through
2         '(* any)
3         (lambda (message)
4           (reply-to message "what?"))
5         public: #t)
6
7(command 'authorize
8         '(: "authorize" (+ whitespace) 
9             (submatch (+ (or alphanumeric "-" "_" "." "`"))))
10         (lambda (m nick)
11           ($ 'operators (cons nick ($ 'operators)))
12           (reply-to m (format "~A is now authorized" nick) prefixed: #f)))
Note: See TracBrowser for help on using the repository browser.