[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp

[Brian Mastenbrook]

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