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(a)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.