Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv32206

Modified Files: event.lisp Log Message: removing all those methods with basically no content

Date: Sat Nov 22 13:55:53 2003 Author: eenge

Index: net-nittin-irc/event.lisp diff -u net-nittin-irc/event.lisp:1.7 net-nittin-irc/event.lisp:1.8 --- net-nittin-irc/event.lisp:1.7 Fri Nov 14 11:13:21 2003 +++ net-nittin-irc/event.lisp Sat Nov 22 13:55:53 2003 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.7 2003/11/14 16:13:21 eenge Exp $ +;;;; $Id: event.lisp,v 1.8 2003/11/22 18:55:53 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $

;;;; See LICENSE for licensing information. @@ -20,813 +20,53 @@ (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) - (let ((user (find-user (connection message) (second (arguments message)))) - (realname (trailing-argument message)) - (username (third (arguments message))) - (hostname (fourth (arguments message)))) - (setf (realname user) realname) - (setf (username user) username) - (setf (hostname user) hostname))) - -(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) - (client-log (connection message) message) - (let ((connection (connection message)) - (channel (second (arguments message))) - (user-count (parse-integer (or (third (arguments message)) "0"))) - (topic (trailing-argument message))) - (pushnew (or (find-channel connection channel) - (make-channel :name channel - :topic topic - :user-count user-count)) - (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) - (client-log (connection message) 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) - (client-log (connection message) message) - (let ((channel (find-channel (connection message) (car (last (arguments message)))))) - (dolist (nickname (tokenize-string (trailing-argument message))) - (add-user channel - (find-or-make-user (connection message) - (canonicalize-nickname nickname) - :username (user message) - :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)) - -;; -;; Error events -;; - -(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)) +(defmethod irc-message-event ((message irc-rpl_whoisuser-message)) (apply-to-hooks message) - (client-log (connection message) message)) + (client-log (connection message) message) + (let ((user (find-user (connection message) (second (arguments message)))) + (realname (trailing-argument message)) + (username (third (arguments message))) + (hostname (fourth (arguments message)))) + (setf (realname user) realname) + (setf (username user) username) + (setf (hostname user) hostname)))

-(defmethod irc-message-event ((message irc-err_noforwarding-message)) +(defmethod irc-message-event ((message irc-rpl_list-message)) (apply-to-hooks message) - (client-log (connection message) message)) + (client-log (connection message) message) + (let ((connection (connection message)) + (channel (second (arguments message))) + (user-count (parse-integer (or (third (arguments message)) "0"))) + (topic (trailing-argument message))) + (pushnew (or (find-channel connection channel) + (make-channel :name channel + :topic topic + :user-count user-count)) + (channel-list connection))))

-(defmethod irc-message-event ((message irc-err_nounidentified-message)) +(defmethod irc-message-event ((message irc-rpl_topic-message)) (apply-to-hooks message) - (client-log (connection message) message)) + (client-log (connection message) message) + (setf (topic (find-channel (connection message) + (second (arguments message)))) + (trailing-argument message)))

-(defmethod irc-message-event ((message irc-err_last_err_msg-message)) +(defmethod irc-message-event ((message irc-rpl_namreply-message)) (apply-to-hooks message) - (client-log (connection message) message)) + (client-log (connection message) message) + (let ((channel (find-channel (connection message) (car (last (arguments message)))))) + (dolist (nickname (tokenize-string (trailing-argument message))) + (add-user channel + (find-or-make-user (connection message) + (canonicalize-nickname nickname) + :username (user message) + :hostname (host message))))))

(defmethod irc-message-event ((message irc-ping-message)) (apply-to-hooks message) (client-log (connection message) message) (pong (connection message) (trailing-argument 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) @@ -878,10 +118,6 @@ (format nil "Could not find user with nick ~A~%" (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. @@ -889,10 +125,6 @@ (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) @@ -903,10 +135,6 @@ (remove-channel connection channel) (remove-user channel user))))

-;; -;; CTCP events -;; - (defmethod irc-message-event ((message ctcp-time-message)) (apply-to-hooks message) (client-log (connection message) message) @@ -918,10 +146,6 @@ (make-time-message second minute hour date month year day))) (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) @@ -956,10 +180,6 @@ (format nil "VERSION ~A" *ctcp-version*)) (source message)))

-(defmethod irc-message-event ((message ctcp-userinfo-message)) - (apply-to-hooks message) - (client-log (connection message) message)) - (defmethod irc-message-event ((message ctcp-ping-message)) (apply-to-hooks message) (client-log (connection message) message) @@ -968,10 +188,6 @@ :notice (make-ctcp-message (format nil "PING ~A" (trailing-argument message))) (source message))) - -;; -;; DCC events (which are a variant of CTCP events) -;;

(defmethod irc-message-event ((message ctcp-dcc-chat-request-message)) (apply-to-hooks message)