Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv10524
Modified Files:
event.lisp
Log Message:
calling apply-to-hooks on every irc-message-event
Date: Mon Nov 3 15:54:10 2003
Author: eenge
Index: net-nittin-irc/event.lisp
diff -u net-nittin-irc/event.lisp:1.1.1.1 net-nittin-irc/event.lisp:1.2
--- net-nittin-irc/event.lisp:1.1.1.1 Mon Nov 3 12:00:54 2003
+++ net-nittin-irc/event.lisp Mon Nov 3 15:54:10 2003
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.1.1.1 2003/11/03 17:00:54 eenge Exp $
+;;;; $Id: event.lisp,v 1.2 2003/11/03 20:54:10 eenge Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $
;;;; See LICENSE for licensing information.
@@ -11,245 +11,325 @@
message."))
(defmethod irc-message-event ((message irc-message))
+ (apply-to-hooks message)
(client-log (connection message) message "UNHANLDED-EVENT:"))
(defmethod irc-message-event ((message irc-error-reply))
+ (apply-to-hooks message)
(let* ((connection (connection message))
(stream (client-stream connection)))
(client-log connection message)))
(defmethod irc-message-event ((message irc-rpl_welcome-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_yourhost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_created-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_myinfo-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_bounce-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tracelink-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceconnecting-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tracehandshake-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceunknown-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceoperator-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceuser-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceservice-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tracenewtype-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceclass-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tracereconnect-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statslinkinfo-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statscommands-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statscline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsnline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsiline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statskline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsqline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsyline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofstats-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_umodeis-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsdline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_option-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endoptions-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_serviceinfo-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofservices-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_service-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_servlist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_servlistend-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsvline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statslline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsonline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statshline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statssline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsping-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsbline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsuline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_statsdebug-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_luserclient-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_luserop-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_luserunknown-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_luserchannels-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_luserme-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_adminme-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_adminloc1-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_adminloc2-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_adminemail-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tracelog-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_traceend-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_tryagain-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_localusers-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_globalusers-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_mode-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endmode-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_sitelist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_clientcapab-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_noservicehost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_none-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_away-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_userhost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_ison-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_unaway-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_noaway-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisuser-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisserver-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisoperator-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whowasuser-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofwho-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoischanop-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisidle-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofwhois-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoischannels-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_liststart-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_list-message))
+ (apply-to-hooks message)
(let ((connection (connection message))
(channel (second (arguments message)))
(user-count (parse-integer (or (third (arguments message)) "0")))
@@ -261,59 +341,77 @@
(channel-list connection))))
(defmethod irc-message-event ((message irc-rpl_listend-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_channelmodeis-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_uniqopis-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisoperprivs-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoisrealhost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_creationtime-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_notopic-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_topic-message))
+ (apply-to-hooks message)
(setf (topic (find-channel (connection message)
(second (arguments message))))
(trailing-argument message)))
(defmethod irc-message-event ((message irc-rpl_topicwhotime-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_inviting-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_summoning-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_invitelist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofinvitelist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_exceptlist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofexceptlist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_version-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_whoreply-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_namreply-message))
+ (apply-to-hooks message)
(let ((channel (find-channel (connection message) (car (last (arguments message))))))
(dolist (nickname (tokenize-string (trailing-argument message)))
(add-user channel
@@ -323,87 +421,115 @@
:hostname (host message))))))
(defmethod irc-message-event ((message irc-rpl_killdone-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_closing-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_closeend-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofnames-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_links-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endoflinks-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_banlist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofbanlist-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofwhowas-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_info-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_motd-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_infostart-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofinfo-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_motdstart-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofmotd-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_map-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofmap-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_forward-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_youreoper-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_rehashing-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_yourservice-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_myportis-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_time-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_usersstart-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_users-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_endofusers-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_nousers-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-rpl_message-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
;;
@@ -411,217 +537,288 @@
;;
(defmethod irc-message-event ((message irc-err_nosuchnick-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nosuchserver-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nosuchchannel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_cannotsendtochan-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_toomanychannels-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_wasnosuchnick-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nosuchservice-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_noorigin-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_services_offline-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_norecipient-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_notexttosend-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_notoplevel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_wildtoplevel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_badmask-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_unknowncommand-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nomotd-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_noadmininfo-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_fileerror-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nonicknamegiven-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_erroneusnickname-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nicknameinuse-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nickcollision-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_unavailresource-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_bannickchange-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_usernotinchannel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_notonchannel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_useronchannel-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nologin-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_summondisabled-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_userdisabled-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_targetninvite-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_sourceninvite-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_notregistered-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_needmoreparams-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_alreadyregistered-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nopermforhost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_passwdmismatch-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_yourebannedcreep-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_youwillbebanned-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_keyset-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_channelisfull-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_unknownmode-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_inviteonlychan-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_bannedfromchan-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_badchannelkey-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_badchanmask-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nochanmodes-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_banlistfull-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_badchanname-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_throttled-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_noprivileges-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_chanoprivsneeded-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_cantkillserver-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_restricted-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_uniqopprivsneeded-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_no_op_split-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_need_umode-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nooperhost-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_umodeunknownflag-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_usersdontmatch-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_ghostedclient-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_blocking_notid-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_sitelistfull-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_maxmapnodes-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_maxforwarding-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_noforwarding-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_nounidentified-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-err_last_err_msg-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-ping-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(pong (trailing-argument message) (connection message)))
(defmethod irc-message-event ((message irc-error-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-join-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(let* ((connection (connection message))
(user (find-or-make-user
@@ -636,12 +833,14 @@
(add-user channel user))))
(defmethod irc-message-event ((message irc-topic-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(setf (topic (find-channel (connection message)
(first (arguments message))))
(trailing-argument message)))
(defmethod irc-message-event ((message irc-part-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(let* ((connection (connection message))
(channel (find-channel connection (first (arguments message))))
@@ -651,10 +850,12 @@
(remove-user channel user))))
(defmethod irc-message-event ((message irc-quit-message))
+ (apply-to-hooks message)
(let ((connection (connection message)))
(remove-user-everywhere connection (find-user connection (source message)))))
(defmethod irc-message-event ((message irc-nick-message))
+ (apply-to-hooks message)
(when (self-message-p message)
(setf (nickname (user (connection message)))
(trailing-argument message)))
@@ -666,18 +867,22 @@
(source message))))))
(defmethod irc-message-event ((message irc-notice-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
;; if we don't know about the user, we should probably add him here to
;; the dangling-users as he is messaging us without being on a channel
;; we are.
(defmethod irc-message-event ((message irc-privmsg-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-mode-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message irc-kick-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(let* ((connection (connection message))
(channel (find-channel connection (first (arguments message))))
@@ -691,6 +896,7 @@
;;
(defmethod irc-message-event ((message ctcp-time-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(multiple-value-bind (second minute hour date month year day) (get-decoded-time)
(send-irc-message
@@ -701,9 +907,11 @@
(source message))))
(defmethod irc-message-event ((message ctcp-action-message))
+ (apply-to-hooks message)
(client-log (connection message) message))
(defmethod irc-message-event ((message ctcp-source-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(send-irc-message
(connection message)
@@ -715,6 +923,7 @@
(source message)))
(defmethod irc-message-event ((message ctcp-finger-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(let* ((user (user (connection message)))
(finger-info (if (not (zerop (length (realname user))))
@@ -727,6 +936,7 @@
(source message))))
(defmethod irc-message-event ((message ctcp-version-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(send-irc-message
(connection message)
@@ -738,6 +948,7 @@
(client-log (connection message) message))
(defmethod irc-message-event ((message ctcp-ping-message))
+ (apply-to-hooks message)
(client-log (connection message) message)
(send-irc-message
(connection message)
