Created
November 1, 2012 04:31
-
-
Save joekarma/3991747 to your computer and use it in GitHub Desktop.
CL-IRC Test. Seems to be pinging out. :depends-on (:cl-irc)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; Trying to instrument handled events as well as unhandled events by | |
;;; monkey patching cl-irc: | |
(in-package :cl-irc) | |
(defmethod irc-message-event (connection (message irc-message)) | |
(declare (ignore connection)) | |
(if (apply-to-hooks message) | |
(client-log (connection message) message "HANDLED-EVENT:") | |
(client-log (connection message) message "UNHANDLED-EVENT:"))) | |
(defmethod default-hook ((message irc-ping-message)) | |
(format t "SHOULD BE PONGING!~%") | |
(apply #'pong (connection message) (arguments message))) | |
;;; Unfortunately, no ping messages are being logged by the code below. | |
;;; My bot is exiting the channel after about 5 minutes on average. | |
(defpackage :cl-irc.trials | |
(:use :cl)) | |
(in-package :cl-irc.trials) | |
(defparameter *username* "joekarma") | |
(defun connect-and-join () | |
(let ((connection nil)) | |
(unwind-protect | |
(progn | |
(setf connection | |
(irc:connect :nickname (format nil "~a|~4,'0d" *username* (random 9999)) | |
:server "irc.freenode.net")) | |
(irc:join connection "#joekarma") | |
(irc:read-message-loop connection)) | |
(irc:part connection "#joekarma") | |
(irc:die connection) | |
(setf connection nil)))) |
More recent session, now with PING logs:
UNHANDLED-EVENT:3560738263: NOTICE: kornbluth.freenode.net * "*** Looking up your hostname..."
UNHANDLED-EVENT:3560738263: NOTICE: kornbluth.freenode.net * "*** Checking Ident"
UNHANDLED-EVENT:3560738263: NOTICE: kornbluth.freenode.net * "*** Found your hostname"
UNHANDLED-EVENT:3560738270: NOTICE: kornbluth.freenode.net * "*** No Ident response"
UNHANDLED-EVENT:3560738270: RPL_WELCOME: kornbluth.freenode.net joekarma|2393 "Welcome to the freenode Internet Relay Chat Network joekarma|2393"
UNHANDLED-EVENT:3560738270: RPL_YOURHOST: kornbluth.freenode.net joekarma|2393 "Your host is kornbluth.freenode.net[82.96.64.4/6667], running version ircd-seven-1.1.3"
UNHANDLED-EVENT:3560738270: RPL_CREATED: kornbluth.freenode.net joekarma|2393 "This server was created Sun Nov 13 2011 at 14:43:26 CET"
UNHANDLED-EVENT:3560738270: RPL_MYINFO: kornbluth.freenode.net joekarma|2393 kornbluth.freenode.net ircd-seven-1.1.3 DOQRSZaghilopswz CFILMPQbcefgijklmnopqrstvz "bkloveqjfI"
UNHANDLED-EVENT:3560738270: RPL_ISUPPORT: kornbluth.freenode.net joekarma|2393 CHANTYPES=# EXCEPTS INVEX CHANMODES=eIbq,k,flj,CFLMPQcgimnprstz CHANLIMIT=#:120 PREFIX=(ov)@+ MAXLIST=bqeI:100 MODES=4 NETWORK=freenode KNOCK STATUSMSG=@+ CALLERID=g "are supported by this server"
UNHANDLED-EVENT:3560738270: RPL_ISUPPORT: kornbluth.freenode.net joekarma|2393 CASEMAPPING=rfc1459 CHARSET=ascii NICKLEN=16 CHANNELLEN=50 TOPICLEN=390 ETRACE CPRIVMSG CNOTICE DEAF=D MONITOR=100 FNC TARGMAX=NAMES:1,LIST:1,KICK:1,WHOIS:1,PRIVMSG:4,NOTICE:4,ACCEPT:,MONITOR: "are supported by this server"
UNHANDLED-EVENT:3560738270: RPL_ISUPPORT: kornbluth.freenode.net joekarma|2393 EXTBAN=$,arx WHOX CLIENTVER=3.0 SAFELIST ELIST=CTU "are supported by this server"
UNHANDLED-EVENT:3560738270: RPL_LUSERCLIENT: kornbluth.freenode.net joekarma|2393 "There are 207 users and 67464 invisible on 34 servers"
UNHANDLED-EVENT:3560738270: RPL_LUSEROP: kornbluth.freenode.net joekarma|2393 37 "IRC Operators online"
UNHANDLED-EVENT:3560738270: RPL_LUSERUNKNOWN: kornbluth.freenode.net joekarma|2393 4 "unknown connection(s)"
UNHANDLED-EVENT:3560738270: RPL_LUSERCHANNELS: kornbluth.freenode.net joekarma|2393 39330 "channels formed"
UNHANDLED-EVENT:3560738270: RPL_LUSERME: kornbluth.freenode.net joekarma|2393 "I have 2580 clients and 1 servers"
UNHANDLED-EVENT:3560738270: RPL_LOCALUSERS: kornbluth.freenode.net joekarma|2393 2580 6861 "Current local users 2580, max 6861"
UNHANDLED-EVENT:3560738270: RPL_GLOBALUSERS: kornbluth.freenode.net joekarma|2393 67671 83497 "Current global users 67671, max 83497"
UNHANDLED-EVENT:3560738270: RPL_STATSDLINE: kornbluth.freenode.net joekarma|2393 "Highest connection count: 6862 (6861 clients) (141401 connections received)"
UNHANDLED-EVENT:3560738270: RPL_MOTDSTART: kornbluth.freenode.net joekarma|2393 "- kornbluth.freenode.net Message of the Day - "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Welcome to kornbluth.freenode.net in Frankfurt, DE, EU. "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Thanks to Probe Networks (www.probe-networks.de) for"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- sponsoring this server!"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- KORNBLUTH, CYRIL M. [1923-1958]. Born in New York City and"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- an active member of the Futurians, Cyril Kornbluth sold his"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- first story professionally at age 15. By the 1940's his"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- stories appeared widely under several pennames, including"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- S.D. Gottesman and Cecil Corman. He left his university"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- studies in Chicago to serve in the Army in Europe during"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- WWII, then returned to school and work in Chicago until he"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- began writing full-time in 1951. The author of �The Marching�"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- �Morons� and the novels �The Space Merchants� (with Frederik"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Pohl) and �The Syndic�, he's best known for his biting social"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- satire and his collaborations with Pohl and with Judith"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Merril."
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- You're using freenode, a service of Peer-Directed Projects"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Center Ltd (http://freenode.net/pdpc.shtml)."
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- By connecting to freenode you indicate that you have read"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- and agree to adhere to our policies and procedures as per"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- the website (http://freenode.net). We would like to remind"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- you that unauthorized public logging of channels on the"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- network is prohibited. Public channel logging should only"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- take place where the channel owner(s) has requested this"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- and users of the channel are all made aware (if you are"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- publically logging your channel, you may wish to keep a"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- notice in topic and perhaps as a on-join message)."
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- freenode runs an open proxy scanner. Your use of the network"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- indicates your acceptance of this policy. For details on"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- freenode network policy, please take a look at our policy"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- page (http://freenode.net/policy.shtml). Thank you for using"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- the network!"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Don't forget to check out these other Peer-Directed Projects:"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- FOSSCON [http://www.fosscon.org] and fossevents "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- [http://www.fossevents.org], and soon we'll repeat last years "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- success with Picnics for Geeks across the globe, more info at "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- [http://geeknic.org]"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- freenode is a service of Peer-Directed Projects Center Ltd,"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- a not for profit organisation registered in England and Wales."
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- If you support the work we do and wish to donate to the PDPC, "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- you may do so over at http://freenode.net/pdpc_donations.shtml"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Thank you for using freenode!"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- "
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- ***************************************************************"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- Please read http://blog.freenode.net/2010/11/be-safe-out-there/"
UNHANDLED-EVENT:3560738270: RPL_MOTD: kornbluth.freenode.net joekarma|2393 "- ***************************************************************"
UNHANDLED-EVENT:3560738270: RPL_ENDOFMOTD: kornbluth.freenode.net joekarma|2393 "End of /MOTD command."
UNHANDLED-EVENT:3560738270: MODE: joekarma|2393 joekarma|2393 "+i"
HANDLED-EVENT:3560738275: JOIN: joekarma|2393 "#joekarma"
UNHANDLED-EVENT:3560738275: RPL_NAMREPLY: kornbluth.freenode.net joekarma|2393 @ #joekarma "joekarma|2393 @joekarma"
UNHANDLED-EVENT:3560738275: RPL_ENDOFNAMES: kornbluth.freenode.net joekarma|2393 #joekarma "End of /NAMES list."
UNHANDLED-EVENT:3560738281: PRIVMSG: joekarma #joekarma "test"
UNHANDLED-EVENT:3560738283: PRIVMSG: joekarma #joekarma "hello"
SHOULD BE PONGING!
HANDLED-EVENT:3560738398: PING: "kornbluth.freenode.net"
From IRC client:
[10:57pm] joekarma|2393 joined the chat room.
[10:58pm] joekarma: test
[10:58pm] joekarma: hello
[11:02pm] joekarma: still there?
[11:04pm] joekarma|2393 left the chat room. (Ping timeout: 244 seconds)
CL-IRC picked up on the "test" message but failed to register "hello" or "still there", both of which were sent after the ping message.
It seems the above errors are unique to my OS, and possibly to my particular OS + Lisp implementation combo, Mac OS X Lion 10.7.4 + SBCL 1.0.57.56-2273f3a + CL-IRC revision 231. I tried with SBCL on my server (Ubuntu) and there was no problem with ping timeouts. Mac OS X + CCL failed, however.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Here's the log from one session:
As seen from my IRC client: