Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv22399
Modified Files:
lisppaste.lisp
Log Message:
URL in realname
Date: Tue Feb 3 18:46:20 2004
Author: bmastenbrook
Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.5 lisppaste2/lisppaste.lisp:1.6
--- lisppaste2/lisppaste.lisp:1.5 Tue Jan 20 09:22:06 2004
+++ lisppaste2/lisppaste.lisp Tue Feb 3 18:46:20 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.5 2004/01/20 14:22:06 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.6 2004/02/03 23:46:20 bmastenbrook Exp $
;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -12,6 +12,7 @@
"Connect to specified server, join specified channel and start
accepting requests through the web."
(let ((connection (irc:connect :nickname nickname
+ :realname (araneida:urlstring *new-paste-url*)
:server server
:port port)))
(setf *connection* connection)
@@ -23,4 +24,4 @@
(defun join-new-channel (channel)
(setf *channels* (nconc *channels* (list channel)))
- (irc:join *connection* channel))
\ No newline at end of file
+ (irc:join *connection* channel))
