For some reason, QuakeNet requires one to manually send a PONG message
when connecting. For this, a /quote command, that sends a raw string
to the server, is necessary. Attached to this email is a simple patch
that implements such a command.
Index: application.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/application.lisp,v
retrieving revision 1.84
diff -u -r1.84 application.lisp
--- application.lisp 31 May 2006 19:35:39 -0000 1.84
+++ application.lisp 31 May 2006 21:10:38 -0000
@@ -681,6 +681,13 @@
((what 'mumble))
(com-msg (target) what))
+(define-beirc-command (com-quote :name t)
+ ((what 'mumble :prompt "Text"))
+ (let ((stream (irc:output-stream (current-connection *application-frame*))))
+ (write-sequence what stream)
+ (terpri stream)
+ (force-output stream)))
+
(define-beirc-command (com-me :name t) ((what 'mumble :prompt nil))
(let ((m (make-fake-irc-message 'irc:ctcp-action-message
:trailing-argument
--
\ Troels "Athas" Henriksen
/\ - Insert witty signature
