Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2
Modified Files: lisppaste.lisp Log Message: MORE HUP!
Date: Tue Feb 3 18:52:04 2004 Author: bmastenbrook
Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.6 lisppaste2/lisppaste.lisp:1.7 --- lisppaste2/lisppaste.lisp:1.6 Tue Feb 3 18:46:20 2004 +++ lisppaste2/lisppaste.lisp Tue Feb 3 18:52:04 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.6 2004/02/03 23:46:20 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.7 2004/02/03 23:52:04 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -25,3 +25,12 @@ (defun join-new-channel (channel) (setf *channels* (nconc *channels* (list channel))) (irc:join *connection* channel)) + +(defun hup-connection (nickname server) + (irc:quit *connection*) + (setf *connection* (irc:connect :nickname nickname + :realname (araneida:urlstring *new-paste-url*) + :server server + :port *default-irc-server-port*)) + (mapcar #'(lambda (channel) (irc:join *connection* channel)) *channels*) + (irc:read-message-loop *connection*)) \ No newline at end of file