From ehuelsmann at common-lisp.net Sat Aug 18 21:19:26 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:19:26 -0700 Subject: [cl-irc-cvs] r213 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:19:25 2012 New Revision: 213 Log: Correct spelling error. Patch submitted by Daniel Lowe. Modified: trunk/protocol.lisp Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp Mon Mar 9 15:32:32 2009 (r212) +++ trunk/protocol.lisp Sat Aug 18 14:19:25 2012 (r213) @@ -339,7 +339,7 @@ (declare (ignore c)) (invoke-restart 'continue)))) (read-message-loop connection))))) - (let ((name (format nil "irc-hander-~D" (incf *process-count*)))) + (let ((name (format nil "irc-handler-~D" (incf *process-count*)))) (start-process #'do-loop name)))) (defun stop-background-message-handler (process) From ehuelsmann at common-lisp.net Sat Aug 18 21:21:02 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:21:02 -0700 Subject: [cl-irc-cvs] r214 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:21:02 2012 New Revision: 214 Log: Name threads on SBCL. Patch submitted by Daniel Lowe. Modified: trunk/protocol.lisp Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp Sat Aug 18 14:19:25 2012 (r213) +++ trunk/protocol.lisp Sat Aug 18 14:21:02 2012 (r214) @@ -292,7 +292,7 @@ #+allegro (mp:process-run-function name function) #+cmu (mp:make-process function :name name) #+lispworks (mp:process-run-function name nil function) - #+sb-thread (sb-thread:make-thread function) + #+sb-thread (sb-thread:make-thread function :name name) #+openmcl (ccl:process-run-function name function) #+armedbear (ext:make-thread function)) From ehuelsmann at common-lisp.net Sat Aug 18 21:22:59 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:22:59 -0700 Subject: [cl-irc-cvs] r215 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:22:58 2012 New Revision: 215 Log: Add sockets keep alive on SBCL. Patch submitted by Daniel Lowe. Modified: trunk/command.lisp Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp Sat Aug 18 14:21:02 2012 (r214) +++ trunk/command.lisp Sat Aug 18 14:22:58 2012 (r215) @@ -300,6 +300,7 @@ :nickname nickname :username username :realname realname))) + #+sbcl (setf (sb-bsd-sockets::sockopt-keep-alive (usocket:socket socket)) t) (setf (user connection) user) (unless (null password) (pass connection password)) From ehuelsmann at common-lisp.net Sat Aug 18 21:28:47 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:28:47 -0700 Subject: [cl-irc-cvs] r216 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:28:46 2012 New Revision: 216 Log: Add an ACTION convenience method. Patch submitted by Daniel Lowe. Modified: trunk/command.lisp Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp Sat Aug 18 14:22:58 2012 (r215) +++ trunk/command.lisp Sat Aug 18 14:28:46 2012 (r216) @@ -57,6 +57,7 @@ (defgeneric wallops (connection message)) (defgeneric userhost (connection nickname)) (defgeneric ison (connection user)) +(defgeneric action (connection target message)) (defgeneric ctcp (connection target message)) (defgeneric ctcp-reply (connection target message)) (defgeneric ctcp-chat-initiate (connection nickname &key passive) @@ -390,6 +391,16 @@ (defmethod ctcp-reply ((connection connection) target message) (send-irc-message connection :notice target (make-ctcp-message message))) +(defmethod action ((connection connection) (target string) (message string)) + (ctcp connection target (concatenate 'string "ACTION " message))) + +(defmethod action ((connection connection) (user user) (message string)) + (action connection (nickname user) message)) + +(defmethod action ((connection connection) (channel channel) (message string)) + (action connection (name channel) message)) + + ;; Intermezzo: Manage outstanding offers (defvar *passive-offer-sequence-token* 0) From ehuelsmann at common-lisp.net Sat Aug 18 21:36:49 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:36:49 -0700 Subject: [cl-irc-cvs] r217 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:36:49 2012 New Revision: 217 Log: Add response codes to help cl-irc log in on Freenode. Patch submitted by antoska (Antoni Grzymala). Modified: trunk/variable.lisp Modified: trunk/variable.lisp ============================================================================== --- trunk/variable.lisp Sat Aug 18 14:28:46 2012 (r216) +++ trunk/variable.lisp Sat Aug 18 14:36:49 2012 (r217) @@ -188,6 +188,7 @@ (304 :rpl_away) (305 :rpl_unaway) (306 :rpl_noaway) + (307 :rpl_whoisidentified) (311 :rpl_whoisuser) (312 :rpl_whoisserver) (313 :rpl_whoisoperator) @@ -205,7 +206,9 @@ (325 :rpl_uniqopis) (326 :rpl_whoisoperprivs) ; Seen in dancer ircd source (327 :rpl_whoisrealhost) ; Seen in dancer ircd source + (328 :rpl_channel_url) (329 :rpl_creationtime) ; Seen in dancer ircd source + (330 :rpl_whoisidentified) (331 :rpl_notopic) (332 :rpl_topic) (333 :rpl_topicwhotime) ; Seen in dancer ircd source @@ -245,6 +248,7 @@ (393 :rpl_users) (394 :rpl_endofusers) (395 :rpl_nousers) + (396 :rpl_hiddenhost) (399 :rpl_message) ; Seen in dancer ircd source (401 :err_nosuchnick) (402 :err_nosuchserver) @@ -315,5 +319,8 @@ (513 :err_maxforwarding) ; Seen in dancer ircd source (514 :err_noforwarding) ; Seen in dancer ircd source (515 :err_nounidentified) ; Seen in dancer ircd source - (516 :err_last_err_msg))) ; Seen in dancer ircd source + (516 :err_last_err_msg) ; Seen in dancer ircd source + (671 :rpl_secureconnection) + (710 :rpl_noidea) ;; ## what's the real event? + )) From ehuelsmann at common-lisp.net Sat Aug 18 21:58:37 2012 From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net) Date: Sat, 18 Aug 2012 14:58:37 -0700 Subject: [cl-irc-cvs] r218 - trunk Message-ID: Author: ehuelsmann Date: Sat Aug 18 14:58:37 2012 New Revision: 218 Log: Fix Quakenet authentication bug as reported by Reinout Steven in http://lists.common-lisp.net/pipermail/cl-irc-devel/2010-January/000273.html Modified: trunk/command.lisp Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp Sat Aug 18 14:36:49 2012 (r217) +++ trunk/command.lisp Sat Aug 18 14:58:37 2012 (r218) @@ -344,8 +344,10 @@ (defmethod ping ((connection connection) (server string)) (send-irc-message connection :ping server)) -(defmethod pong ((connection connection) (server string) &optional (server2 "")) - (send-irc-message connection :pong server server2)) +(defmethod pong ((connection connection) (server string) &optional server2) + (if server2 + (send-irc-message connection :pong server server2) + (send-irc-message connection :pong server))) (defmethod error- ((connection connection) (message string)) (send-irc-message connection :error message))