Hi Mikhail, I'm CC-ing the development list because I've seen this question before and that way it will be available in the archives for posterity. I hope you don't mind. See my comments inline below. In summary, there are 2 problems in your code. On 5/9/07, Mikhail Shevchuk <mikhail.shevchuk@gmail.com> wrote:
Hi, Eric There are two following threads in my application:
IRC-UTR-BOT> (make-thread #'irc-read-loop) #<THREAD {B30F869}> IRC-UTR-BOT> (server-2) #<THREAD {B3801F1}>
Here is the source of the package:
(defpackage :irc-utr-bot (:use "CL" "SB-THREAD" "SB-EXT"))
(in-package :irc-utr-bot)
(defvar *irc-channel* (string "#utr"))
;; connect to IRC-server (defvar *irc-connection* (cl-irc:connect :nickname "xmpp-" :server "irc.tomsk.ru" :port 6667))
You need to do 2 additional things to make the connection work: 1) You need to add the default hooks for the cl-irc library to work correctly 2) You need to call read-message-loop on the connection to handle the incoming IRC messages. The above means that this code is missing: (cl-irc:add-default-hooks *irc-connection*)
(defvar *jabber-bot-conn* (usocket:socket-stream (usocket:socket-connect "213.183.100.107" 9999)))
(cl-irc:join *irc-connection* *irc-channel*) ;; joining channel
(defvar *serv*)
(defun server-2 () (let ((sock (usocket:socket-listen "88.204.87.138" 3690 :backlog 4 :reuseaddress t))) (setf *serv* sock) (sb-thread:make-thread #'(lambda () (let ((csock (usocket:socket-accept sock))) (let ((cstream (usocket:socket-stream csock))) (when cstream (loop for line = (read-line cstream nil)
Here you may want to check whether the socket is actually still connected before reading from it. See cl-irc:read-message.
while line do (progn (cl-irc:privmsg *irc-connection* *irc-channel* (format nil "~A" line)))) (close cstream))))))))
(defun msg-hook (message) (progn (format *jabber-bot-conn* "_~A_: /~a/" (cl-irc:source message) (second (cl-irc:arguments message))) (force-output *jabber-bot-conn*) (format t "_~a_: /~a/" (cl-irc:user message) (second (cl-irc:arguments message)))))
(cl-irc:remove-hooks *irc-connection* 'cl-irc-privmsg-message) (cl-irc:add-hook *irc-connection* 'cl-irc:irc-privmsg-message #'msg-hook)
(defun irc-read-loop () (cl-irc:read-message-loop *irc-connection*))
But this doesn't work well because of the following exception, that is raised after some time. I don't know the reason of this crash, but I hope you have some ideas.
The problem is that the server sends you IRC messages to which you have to send an answer. The default cl-irc library does that for you IFF you configure it correctly; by adding the default hooks to allow it to handle those messages. By not adding the hooks, you are effectively telling cl-irc *not* to handle any IRC traffic for you - meaning that you'll have to provide all protocol behaviours implemented in cl-irc yourself. HTH, Erik.